Fortan77 程序基础.pptVIP

数组的定义 类型说明 [::] 数组名([下标下界：]下标上界[，…])[，…] 如 real runoff（365） real runoff（12，31） real runoff（1：12，1：31） 数组下标下界缺省时，值为1 数组可用DIMENSION语句定义 DIMENSION runoff（365） Real runoff ※使用数组必须先定义 数组引用 （1）引用数组元素 数组名(下标），如 runoff（15），rain（3，5） （2）引用全部数组 数组名，如： real B（10），A（10） B=A （3）引用数组片段 数组名(下标范围) PROGRAM TEST IMPLICIT NONE ! 变量定义 REAL :: A1, A2,A3,A4,A5,B(5,5) READ(*, *)A1,A2,A3,A4,A5 ! 数组片断的引用 B(1,1:5) = A1 B(2,1:5) = A2 B(3,1:5) = A3 B(4,1:5) = A4 B(5,1:5) = A5 END PROGRAM TEST 数组赋值 （1）赋值语句 数组对象 = value （2）data语句（赋初始值） data days/31,28,31,30,31,30,31,31,30,31,30,31/ （3）do循环 do i=1,12 do j=1,31 runoff(i,j)=0 enddo enddo 数组的运算包括数组之间的运算及数组元素之间的运算 数组的运算，如数组间的数学运算（+，-，*，/，**）,数组的合并、转置运算等，直接以数组为操作对象。 数组元素之间的运算多通过循环语句进行 数组的输入输出 数组的输入输出多通过do循环语句或隐式do循环语句进行 如 do i=1,12 do j=1,days(i) write(*,*)runoff(i,j) enddo enddo 又可写成 do i=1,12 write(*,*)(runoff(i,j),j=1,days(i)) enddo 一个Fortran程序中通常不是只由一个主程序组成，而是由几个按某种方式划分的不同程序单元来共同组成。尽管Fortran程序中允许只有主程序而没有子程序，但绝不允许只有子程序而没有主程序。在Fortran中，程序的执行总是从主程序开始的。程序可以有一个或多个子程序。 函数子程序（ FUNCTION ） 子例行子程序（SUBRIOUTINE） 各子程序间的数据传递 函数子程序和子例行子程序是子程序的两种常用基本形式。它们的共同特征就是作为数据处理过程的集合。但是这两种子程序也不完全相同，函数子程序会返回一个函数值，且通常不会改变哑元的数值。因此，函数子程序更像是数学上的一个函数。而子例行子程序通常用于完成一项更为复杂的任务，通过哑元或者其他手段返回几个结果，哑元的数值通常会在程序的执行过程中改变。 函数子程序的一般形式为： [prefix] FUNCTION name ([d-arg-list]) [RESULT (r-name)] ... END [FUNCTION name] 1．prefix说明项 prefix说明项是一个可选参数，可以使用如下两种形式来书写： type [keyword] 或 keyword [type] 2．d-arg-list d-arg-list表示函数的哑元列表。如果函数子程序不包含哑元，则哑元列表可以省略，但是函数名后的括号不能省略。 3．RESULT关键字 RESULT关键字用于声明将函数的返回值保存在其后的变量名中，称为函数结果名。 函数子程序的调用与内在函数的调用形式一样。在主调程序的任意位置，可以通过下面的语句形式将函数子程序的计算结果赋值给变量： V = 函数名(实元表) 其中，V表示用于接收函数计算结果的变量；实元表是程序中实际传入函数子程序的变量列表，除非有特殊说明，变量列表中的实元个数以及类型必须与函数子程序定义时的虚参在个数和类型上一致。如果函数不包含哑元，则调用形式是在表达式中直接写上函数名再跟空括号即可： V = 函数名() 子例行子程序同函数子程序非常相似，但是子例行子程序不会有返回值。这种形式的子程序是以SUBROURTINE语句开始，END语句结束的过程。其一般语法形式如下： [前缀] SUBROUTINE子程序名 [([哑元列表])] …… END [SUBROUTINE[子程序名]] 程序调用 call 子程序名 各子程序间的数据传递 （1）虚实结合 （2）common语句 （3）数据定义模块 Common语句（公共区