ex0710.f90

fortran 95书的源程序全集

program ex0710
implicit none
  integer :: i
  integer :: a(5)=(/ (i,i=1,5) /)
  integer :: b(5)=0
  
  ! 把a(1～5)中小于3的元素值赋值给b
  where( a<3 )
    b = a
  end where
     
  write(*,"(5(I3,1X))") b
  stop
end