FORTRAN90用法总结.docVIP

FORTRAN90用法总结 数据类型 整型 INTEGER 实型 REAL 复型 COMPLEX 字符型 CHARACTER 逻辑型 LOGICAL 特殊函数 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.(=) .EQ.(=) .NE.(/=) .GT.() .GE.(=) 13.AND.与 .OR.或 .NOT.非 .EQV.等于 .NEQV.不等 .XOR.异或 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 可执行语句3 CASE块 SELECT CASE(表达式) CASE(表达式1) 块语句1 ... CASE(表达式N) 块语句N CASE DEFAULT 默认块语句 END SELSCT 循环函数 1循环控制语句 IF(e) EXIT 终止循环 2CYCLE 跳出此次循环 3DO循环 DO i=e1,e2[,e3] 循环体 END DO 4DO WHILE循环 DO WHILE(逻辑表达式) 循环体 END DO 输入输出 1表控输入输出 READ *,变量表 PRINT *,输出表 WRITE(*,*)输出表 2自定义输入输出 标号 FORMAT（格式说明） 3其他编辑符 ① nX 向右跳过n个字符 ② nH 输出字符串 ③ / 换行 ④ \ 连接 数组 1说明数组 DIMENSION 数组名 类型说明，DIMENSION(维说明）：：数组名 2数组赋初值 DATA 数组名 /....../,数组名 /....../,... 3动态数组 ①声明 [类型]，DIMENSION(：[，：]...)，ALLOCATABLE：：数组名 [类型]，ALLOCATABLE：：数组名(：[，：]...)... ②申请 ALLOCATE(数组名(维说明）) ③释放 DEALLOCATE(数组名) 8、子程序 1子程序 CONTAINS(内部子程序的标志（外部EXTERNAL)） [类型说明] FUNCTION 函数名(虚参表) 函数体 END 2子例行程序 SUBROUTINE 子例行程序名(虚参表)