fortran 95书的源程序全集

源代码在线查看: ex0833.f90

软件大小: 1964 K
上传用户: sheng_xia
关键词: fortran 源程序
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源