real(8) function f(x) implicit none real(8), intent(in) :: x f = x**2 end function f ! 实现梯形积分法 real(8) function trapezoid(a, b, n, f) implicit none real(8), intent(in) :: a, b integer, intent(in) :: n real(8), external :: f real(8) :: h, sum integer ...
real在Fortran中表示实数类型。其中有两种精度:单精准度(REAL*4)双精准度(REAL*8)相应的实数范围:real(kind=4):±1.18*10-38 ~ ±3.40*1038,有效6-7位 real(kind=8):±2.23*10-308 ~ ±1.79*10308,有效15位
external moment_get_js integer(4) jd real(8) js call moment_new(foo, 1, 2d0) jd = moment_get_jd(foo) js = moment_get_js(foo) write(*,*) jd, js end 以Fortran的call moment_new(foo, 1, 2d0)语句为例,其中foo为void*格式,1与2d0分别为INTEGER*4与REAL*8的常量,那么该语句的调用...
REAL*8@ REAL*16@ fun Symbolic name assigned to function ar Formal argument name (COMPLEX*32andREAL*16are SPARC only.) An alternate nonstandard syntax for length specifier is as follows:@ [type] FUNCTIONname[*m]([ar[,ar] ]) Parameter ...
当使用已提升为 REAL*8 常量的 REAL*4 常量调用需要 REAL*4 参数的子例程或函数时,此选项标志可能会导致接口问题。此选项标志还可能导致那些读取无格式数据文件的程序出现问题,这些文件是由无格式写入功能使用 I/O 列表上的 REAL*4 常量写入的。 3.4.90 –reduction 识别循环中的约简操作。 在自动并行化期间...
INTEGER\REAL\COMPLEX\LOGICAL语句 IMPLICIT语句 EXTERNAL语句 INTRINSIC语句 SAVE语句 类型语句的一边形式: typ V[,v]... 例子: COMPLEX COMPA,COMPB REAL*8:: I(15,20,30),IJIM,NET INTEGER:: AT(10,10,20),HIT,OTT(10,20) LOGICAL SWITCH,CODE,LIGHT ...
在泛型接口内部,通过复制过程的定义部分来指定外部过程(external procedures)的接口。 对于在同一模块中定义的过程,我们需要使用module procedure<nameOfModuleProcedure>来指定。 下面的示例说明了这两种情况: 该示例将外部子例程swapReal和模块过程swapInteger分组,以便通过通用名称swap调用它们 ...
real :: a = 1 real :: b = 2 1. 2. 3. 4. 5. 6. 7. real, external :: add !声明add是一个函数,而不是变量。调用函数不必使用call命令。 write (*, *) add(a, b) stop end program ex0807 function add(a, b) implicit none ...
real, external :: function !自定义函数 real, intrinsic :: sin !库函数 external sub !子程序 1. 2. 3. (7)函数使用接口(interface):一段程序模块。以下情况必需: a.函数返回值为数组 b.指定参数位置来传递参数时 c.所调用的函数参数个数不固定 ...
绘图功能是VisualFortran在FORTRAN标准外所扩充的功能。使用VisualFortran的绘图功能时需要moduledflib。编译带有VisualFortran的绘图功能的程序时,需要选择FortranStandardGraphicsorQuickWinApplication模式。使用StandardGraphics模式时,会出现一个绘图窗口来画图。使用QuickWin模式时,除了绘图窗口外,还有内定...