F O R T R A N第2章FORTRAN90基础知识:程序单元的概念:fortran90程序是一种分块形式的程序,整个程序由若干程序单元块组成。
每个程序只有一个主程序单元。
各单元体的程序体形式上相同。
程序单元可以是主程序、子程序(外部过程或内部过程)、模块MODULE (供其他程序单元引用即把该程序单元内的全部语句复制到程序单元中)或块数据程序单元BLOCK 。
语言元素:指在程序设计中用到的基本成分,如字符集、常量、变量、记号(标号、关键字、名字、常数、运算符和定界符)以及其他的基本结构等。
字符集:英文字母、阿拉伯数字、下划线、21个特殊字符($和?没有规定用法)。
数据结构:整型INTEGER (34-2下划线后面是种别参数),n 位字长的计算机的数据表示范围一般为12~211-+---n n ,种别参数由内在询问函数KIND 送回,种别值提供的最小范围由内在函数SELECTED-INT-KIND 送回,表示十进制幂的范围由内在函数RANGE 送回;实型REAL ,小数形式和指数形式;复型COMPLEX (种别类型参数值取实部与虚部中较大者);字符型CHARACTER,由一对单撇号或双撇号之间的字符序列组成;逻辑型LOGICAL。
派生数据类型TYPE;数组INTEGER,DIMENSION(1,50)::A,可直接对数组元素进行运算如3*A,SQRT(A);字符子串,在字符串CHARACTER(LEN=80)::ROW中,ROW(1:3)就表示字符串ROW中第1到第3个元素组成的子串。
变量名的命名规则:不能超过31个字符;组成成分是字母、数字、下划线;第一个字符必须是字母。
第3章基本语句:类型说明语句:类型说明(种别说明),属性说明::变量名表尽量避免把两个实数作相等或不相等的比较。
淘汰隐式说明IMPLICIT NONE种别说明:种别参数即对可移植数据精度和范围进行选择的机制KIND(X) 返回变元X的种别参数值SELECTED-REAL-KIND(n,m) 产生一个种别值,它表示某一精度和范围。
N指十进制有效位数,m指明值范围内以10为底的幂次。
种别表示方法:数值型常数、逻辑型常数的种别用后缀法表示,字符型用前缀法。
属性说明:PARAMETER常量名属性,如INTEGER,PARAMETER::N=5(N值不可更改);DIMENSION数组属性,如INTEGERDIMENDION(1:10)::X。
算术表达式:**乘方。
-→→括号+→→**或*求函数值/或ABS绝对值;MAX最大值;MIN最小值;SQRT平方根;MOD 求余数。
COS,SIN,TAN,ATAN,LOG 自然对数,LOG10常用对数,EXP指数,SIGN符号。
输入:READ(部件号,格式说明)输入如READ(5,'(I7)')X,Y I7表示每行输入一个整数,每个数占7个字符。
表控格式READ*,输入表;READ(*,*)输入表。
输出:WRITE(部件号,格式说明)输出表WRITE(6,'(1X,2F6.2)')X,Y 1X表示一个空格,F表示作实型编辑,6表示每个数占六列,2表示小数部分占两列,F前的2表示重复系数。
省略设备号PRINT格式说明,输出表表控格式WRITE(*,*)X,Y PRINT*,X,Y第4章选择结构程序设计:关系与逻辑表达式:> < == >= <= /=; .NOT. .AND..OR..EQV. .NEQV.混合运算符的优先级别:逻辑运算符→→关系运算符算数运算符括号→IF语句与IF结构的区别:IF语句:IF(e) SIF结构:IF(e1) THEN块1ELSEIF(e2) THEN块2ELSE块nENDIFCASE结构:SELECT CASE(MONTH)CASE(2)DAYS=28CASE(4,6,9,11)DAYS=30.........ENDSELECT第5章循环结构程序设计:不带循环变量的DO:[结构名:] DO循环体ENDDO[结构名] EXIT语句:停止循环,将控制转移到当前循环之外。
EXIT [DO结构名]CYCLE语句:在循环执行到该语句时,跳过循环体在它后面的那些语句,再从循环体的第1条语句开始执行。
CYCLE [DO结构名]带循环变量的DO:[结构名:] DO[,]v=u1,u2,[u3]循环体ENDDO[结构名]DOWhile结构: [结构名:] DOWHILE (逻辑表达式)循环体ENDDO[结构名]隐DO循环:(list,v=u1,u2,u3)如READ*,(A(I),I=1,5)第6章程序单元和过程:函数子程序:必须提供一个值,这个值赋给结果变量,成为函数的值。
[RECURSIVE]FUNCTION函数名(虚元表)RESULT(结果名)子例子程序:本身并不返回值,其计算结果全部通过虚实结合传递给主调程序。
必须通过CALL语句来调用。
CALL子程序名(实元表)[RECURSIVE]SUBROUTINE子程序名(虚元表)接口块:INTERFACE必须使用:实元是关键字变元时;实元是缺省的可选变元时;一个外部函数使用系统中的内部运算符扩展了原有的功能时;外部过程扩展了赋值号的使用范围时;使用一个类属名调用过程时;调用一个外部过程,该过程的结果是一个数组。
虚实结合:实元和虚元的个数相等,相应位置上的类型一致。
关键字变元:虚元名=实元表达式可选择变元:OPTIONAL属性:一虚元的类型说明语句中有OPTIONAL 属性便是可选变元。
PRESENT(X)函数:用来检查它的自变量X是否在程序执行部分出现。
当X出现时,函数值为“真”,否则为“假”。
虚过程:如果虚元是一个过程名时,作为虚元的过程称为虚过程。
只有潜逃调用至少两层以上时才能用虚过程。
模块:MODULE包含程序说明语句和过程,但不能直接运行。
其他程序引用模块实际就是将该模块中的全部语句复制到本程序单元,并且所有与模块中的名字相同的变量彼此取值相通,共享存储单元。
模块名对程序来说是全局的,不能与本程序中的任何程序单元名、外部名相同,也不得与模块内的任何局部名重名。
引用:USE模块1,模块2,....,模块nUSE模块名,ONLY:实体名表递归:递归调用是指过程内直接或间接地调用自己。
内部过程:如果一个过程不是写在主程序外,而是写在主程序单元之内,作为主程序内包含的一个过程,则该过程为内部过程。
通常没有说明语句,一般没有虚元。
类属过程:允许不同类型的实元与同一虚元结合,放宽了虚实结合必须一致的条件。
超载运算符:标准FORTRAN运算符通过恰当的过程扩展其功能,使其具有新的含义。
自定义运算符。
超载赋值:指把赋值的含义扩展到新的数据类型。
赋值号两边的类型必须相容。
第7章数组:数组基本概念:用DIMENSION属性说明之,同时给出数组元素的起止下标;使用数组时,即可直接使用数组某个元素,也可直接使用数组名。
数组片段:代表数组中的部分元素,可连续也可不连续。
如:A(3:6) 或A(10:30:2) 步长是2 数组构成器:赋值4个元素的数组:A=(/1,2,3,4/)其中(/1,2,3,4/)就是数组构成器例:A=(/(SQRT(REAL(I)),I=1,4)/)或A=(/V(3),V(6),V(7),V(9),/)二维数组按列存放:A→→A→→A→)1,1(A)2,2()2,3()2,1()1,3(A)1,2(ARESHAPE函数:将数组构成器中的一维数据重新构成任意形的数组。
例:A=RESHAPE(SOURCE=(/1,2,3,4,5,6,7,8,9,-1,-2,-3/)),SHAPE=(/3,4/)数组形式:常数组 REAL,DIMENSION(3:5+7)::A可调数组REAL,DIMENSION(M,N)::A假定形状数组REAL,DIMENSION(:,:)::A动态数组(可变)REAL,DIMENSION(:),ALLOCATABLE::A数组做变元,只能作为过程的实元不能是虚元。
数组运算:数组赋值A=B;数组表达式A+B(对应元素相加);数组与标量A-5 (每个元素减5);数组作为内在函数的实元B=ABS(A) B与A形状相同。
数组内在函数:求数组大小SIZE(A);求数组最大值元素MAXVAL(A);求数组最小值元素MINVAL(A);求数组最大值元素下标MAXLOC(A);求数组最小值元素下标MINLOC(A).;数组各元素之和SUM(A);数组各元素之积PRODUCT(A);求数组维的下界LBOUND(A);求数组维的上界UBOUND(A);数组转置TRANSPOSE(A). 屏蔽数组赋值:如WHERE(A<0)B=0 (相应元素)第8章字符型数据:字符常量:''或''''之间的若干字符字符变量(特有长度属性):如CHARACTER(LEN=10,KIND=2)::A 字符子串:字符变量名(e1:e2)如NAME=''DAQINGPETROLUEM''则NAME(1:6)='DAQING' 字符表达式:指用字符运算符吧字符常量、字符变量或字符数组元素等字符型数据连接起来的有意义的式子。
字符运算符只有一个,就是字符连接符“//”。
如'HE'//'LLO'='HELLO'字符关系表达式,比较按字符的代码进行。
两字符串比较,以第一次出现不同字符的比较结果为准,字符个数不够时以空格补齐。
字符函数:求字符长度函数LEN(String)或LEN-TRIM(String);除去字符串尾部空格函数TRIM(String);字符与字符序号相互转化,字符向字符序号ICHAR(CH)或IACHAR(CH),字符序号向字符CHAR(I)或ACHAR(I);子串位置函数INDEX(String1,String2),String2是String1的子串,结果为正整数表示String2在String1最左边的子串的起始位置;字符串比较函数LGE(String1,String2)表示是1否大于等于2,LGT、LLE、LLT 分别表示是否大于、是否小于或等于、是否小于;首、尾部空格调整函数调左函数(把空格全调到尾部)ADJUSTL(String)或调右函数(把空格全调到首部)ADJUSTR(String)第9章派生类型和指针:派生类型:TYPE[存取方式描述::]派生类型名成员组i类型说明ENDTYPE[派生类型名]说明:TYPE(派生类姓名)::变量名[,...]指针:REALPOINTER::PT1,PT2 PT1=>XPT1=>PT2表示PT1指向PT2所指的目标,PT1和PT2都指向Y;PT1=PT2表示将PT2所指的目标的值赋给PT1所指的目标,X=Y。