ex0833.f90

来自「Fortran 95程序设计&Code-彭国伦」· F90 代码 · 共 27 行

program  ex0833
  implicit none
  
  interface  ! 说明函数func的使用接口
    elemental real function func(num)
	implicit none
	real, intent(in) :: num
	end function
  end interface

  integer i
  real :: a(10) = (/ (i,i=1,10) /)
  real :: b(10)

  write(*,"(10F6.2)") a
  a = func(a)
  write(*,"(10F6.2)") a

end program

elemental real function func(num)
  implicit none
  real, intent(in) :: num
  func = sin(num) + cos(num)
  return
end function