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