ex0710.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 16 行

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