FORTRAN90用法总结.doc

FORTRAN90用法总结1、 数据类型 整型 INTEGER 实型 REAL 复型 COMPLEX 字符型 CHARACTER 逻辑型 LOGICAL2、 特殊函数 1定值函数 PARAMETER(变量列表) 或 类型说明符，PARAMETER:变量列表 2IMPLICIT 类型说明符（字母表）类型定义函数（默认I-N规则，取消IMPLICIT NONE） 3* 乘方 4STOP标号终止执行 5PAUSE标号暂停程序 6字符串长度函数 LEN（String）、 LEN_TRIM(String) 7除去字符串尾部空格 TRIM(String) 8字符串位置函数 INDEX(String1,String2) 9字符串比较函数 LGE(String1,String2) LGT(String1,String2) LLE(String1,String2) LLT(String1,String2) 10字符串空格首位调整 ADJUSTL(String)、ADJUSTR(String) 11字符串、ASSII码互相转化函数 化为ASSII码 ICHAR(String)、IACHAR(String) 化为字符串CHAR(I)、ACHAR(I) 12.LT.() .LE.() .GE.(=) 13.AND.与 .OR.或 .NOT.非 .EQV.等于 .NEQV.不等 .XOR.异或3、 IF函数 1 单支IF IF(逻辑表达式) THEN 块语句 END IF 2 双支IF IF(逻辑表达式) THEN 块语句1 ELSE 块语句2 END IF 3多支IF IF(逻辑表达式1) THEN 块语句1 ELSE IF(逻辑表达式2) THEN 块语句1 . ELSE IF(逻辑表达式N) THEN 块语句N ELSE 块语句N+1 END IF 4逻辑IF IF(条件表达式) 可执行语句 5算术IF IF(算术表达式)标号1，标号2，标号3 标号1 可执行语句1 标号2 可执行语句2 标号3 可执行语句34、 CASE块 SELECT CASE(表达式) CASE(表达式1) 块语句1 . CASE(表达式N) 块语句N CASE DEFAULT 默认块语句 END SELSCT5、 循环函数 1循环控制语句 IF(e) EXIT 终止循环 2CYCLE 跳出此次循环 3DO循环 DO i=e1,e2,e3 循环体 END DO 4DO WHILE循环 DO WHILE(逻辑表达式) 循环体 END DO6、 输入输出 1表控输入输出 READ *,变量表 PRINT *,输出表 WRITE(*,*)输出表 2自定义输入输出 标号 FORMAT（格式说明） 3其他编辑符 nX 向右跳过n个字符 nH 输出字符串 / 换行 连接7、 数组 1说明数组 DIMENSION 数组名 类型说明，DIMENSION(维说明）：数组名 2数组赋初值 DATA 数组名 /./,数组名 /./,. 3动态数组 声明 类型，DIMENSION(：，：.)，ALLOCATABLE：数组名 类型，ALLOCATABLE：数组名(：，：.). 申请 ALLOCATE(数组名(维说明）) 释放 DEALLOCATE(数组名)8、子程序 1子程序 CONTAINS(内部子程序的标志（外部EXTERNAL)） 类型说明 FUNCTION 函数名(虚参表) 函数体 END 2子例行程序 SUBROUTINE 子例行程序名(虚参表) 函数体 END 调用 CALL 子例行程序名(实参表) 3递归调用 RECURSIVE FUNCTION(SUBROUTINE)函数名(虚参表) RESULT(返回值) 函数体END9、 结构体 1定义TYPE ,ACCESS: 派生类名称（ACCESS=PRIVATE(私有),PUBLIC(公有)分量表END TYPE 派生类名称 2类型定义 TYPE(派生类名称):结构体变量名 3结构体成员引用 结构体名%成员名 结构体名.成员名 4定义的同时赋值 TYPE(派生数据类型名):结构体变量名=派生数据类型名（成员初值表） 5结构体数组TYPE(派生数据类型名),DIMENSION(维说明符):结构体数组名10、 指针 1定义指针 类型说明，POINTER:指针变量名. 类型说明，TARGET:目标变量名. P=A 2动态变量 例：INTEGER,POINTER:P INTEGER S ALLOCATE(P) P=4 S=P DEALLOCATE(P) PRINT *,S END 3指针数组变量定义 类型说明，DIMENSION(:.:),POINTER:指针变量名 ALLOCATE(X(20) DEALLOCATE(X) 4定义结点 TYPE NODE INTEGER VALUE TYPE(NOPE),POINTER:NEXT END TYPE NODE 5定义头指针 TYPE LIST PRIVATE TYPE(NODE)