fortran学习.docVIP

fortran学习 return：fortran中的return语句与C语言是不同的。当在fortran的子程序中出现return时，代表的是提前结束子程序，返回主程序。当子程序中有多个return语句时，就表明子程序有多个出口。 ------------------------------------------------------------------------------ function接受多个参数，返回一个计算结果。调用的时候，可以直接插入表达式，比如x = AVRAGE(a,b,c)。function AVRAGE 的构造如下： REAL FUNCTION AVRAGE(X,Y,Z) REAL X,Y,Z,SUM SUM = X + Y + Z AVRAGE = SUM /3.0 RETURN END Subroutine适用在当需要返回多个变量数值的情形，但是，调用subroutine的时候，只能用call语句，不能像function那样直接插入表达式。 下面这个subroutine是对A,B,C的求和，以及求和的平方。用call语句调用后，位于sum和sumsq的变量将被改变数值： SUBROUTINE CALC(A,B,C, SUM,SUMSQ) REAL A,B,C,SUM,SUMSQ SUM = A + B + C SUMSQ = SUM **2 RETURN END ------------------------------------------------------------------------------ CALL GRKT1 (Y,W,F,D)大概是什么意思 GRKT1 (Y,W,F,D) 是个子程序，Y,W,F,D分别为子程序的参数，call为调用它 ------------------------------------------------------------------------------ 使用 ENTRY 叙述，可在子程序中设定多个进入点。 ENTRY 叙述的形式如， ENTRY name (argument-list) 其中 name 是进入点的名称， 而 argument-list 和 FUNCTION 或 SUBROUTINE 叙述 的自变量串行相似。 ENTRY 叙述是不可执行的， 也不影响子程序的正常执顺序。其进入点是在 ENTRY 叙述 之后的第一个可执行叙述。 ------------------------------------------------------------------------------ 变量等价声明,三个例子: equivalence(a,b) 注意：变量a和b占用同一块内存 equivalence(c(3),d) 数组c的第3个元素和变量d等价，数组名较长的时候可以用一个短名的变量等价，比较方便 equivalence(e(1),f(2)) ------------------------------------------------------------------------------ FORTRAN 函数列表 符号约定： I代表整型;R代表实型;C代表复型;CH代表字符型;S代表字符串;L代表逻辑型;A代表数组;P代表指针;T代表派生类型;AT为任意类型。 s:P表示s类型为P类型(任意kind值)。s:P(k)表示s类型为P类型(kind值=k)。 […]表示可选参数。 *表示常用函数。 数值和类型转换函数 ABS(x)* 求x的绝对值∣x∣。x:I、R, 结果类型同x; x:C, 结果:R AIMAG(x) 求x的虚部。x:C, 结果:R AINT(x[,kind])* 对x取整,并转换为实数(kind)。x:R, kind:I, 结果:R(kind) AMAX0(x1,x2,x3,…)* 求x1,x2,x3,…中最大值。xI:I, 结果:R AMIN0(x1,x2,x3,…)* 求x1,x2,x3,…中最小值。xI:I, 结果:R ANINT(x[,kind])* 对x四舍五入取整,并转换为实数(kind)。x:R, kind:I, 结果:R(kind) CEILING(x)* 求大于等于x的最小整数。x:R, 结果:I CMPLX(x[,y][,kind])) 将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,kind:I, 结果:C(kind) CONJG(x) 求x的共轭复数。x: