fortran90-知识点整理

例1．设J=10，K=-12，L=12
WRITE (*,”(I3，I5，I7)”)J,K,L
□10□□-12□□□□123
注意：
1．数字在指定的区域内右端对齐，不足w则左边补空格。
2．负数的符号也包含在字段宽度内
3．如果应输出的列数超过了规定的字段宽度，则不输出有效数据，以w个*填充。
4、BN, BZ：Blank interpretation
3、假IF的下一个语句
注意：
1.右边通常为一条且只一条可执行语句。
错例：IF (A<B) T=A;A=B;B=T
2.不能为以下语句：
END、另一个逻辑IF、块IF、ELSIF、ENDIF、DO
错例：IF（X<2）END
3.常应用于简单的条件赋值或条件转移（在循环结构中）
4、不论条件真假都执行IF的下一个语句
注意：5/2=2 1/2=0！！
运算对象类型不同时，系统一般先转换成相同类型后再运算
转换规则是：较低级的类型转换为较高级的类型
数据类型隐含的高低次序为（由低到高）：
整型→实型→双精度→复型
例：8/5+2.0*5/2=6.0（逐步转化）
赋值语句
1、类型要求
逻辑型、字符型的赋值语句要求“=”两边类型相同
数值型赋值，不区别整型、实型和复型
2、种别方面
字符型要求种别相同
其余类型的e、V种别允许不同
输入输出语句
1、I/O的对象——列在<I/O表>中
I/O是相对于内存而言的，
键盘属于输入设备，
显示器属于输出设备，
优盘、硬盘既是输入设备，又是输出设备。
2、I/O的方向及语句
READ（U，f）<I/O表> U:设备(部件) f:格式
COMPLEX(X,Y,KIND):将X，Y转换为复型，以KIND的值作为种别参数
查询函数
KIND()
SELECTED_INT_KIND()
SELECTED_REAL_KIND
PRECISION()
RANGE()
……
不轻易使用整型量除整型量1.0/2 2.0**(-1)
运算对象类型相同时，运算结果的类型为同一类型
IF结构可:无名或有名
IF结构的取名与变量的取名方法相同
IF结构名：IF (e1) THEN
块1
ELSEIF (e2) THEN[IF结构名]
块2
…
ELSEIF(en) THEN[IF结构名]
块n
ELSE [IF结构名]
块n+1
END IFIF结构名
同一IF结构中的结构名一定要一致！
CASE结构
使用范围：多分支结构
3.如果均不匹配，则执行默认块
4.执行END Select的下一个语句
情况表达式：
整型变量、逻辑变量、字符型变量或相应的表达式
不能是实型或复型表达式
表达式列表（情况选择器）：
只能是常量，不能为变量，可有多条语句；
类型与情况表达式类型应一致，尤其字符型时种别参数必须一致，但长度可以不同；
，(逗号)分隔符表示分隔单个值的列表。
Eg : SIGN(-3.0，2.0)=3.0
SIGN(3.0，-2.0)=-3.0
某些函数参数只能为实型
如：log(2.0) (loG（2）错)
转换函数
函数名
含义
FORTRAN举例
INT(X)
实型转换整型、
复型的实部转换整型
INT(2.3)=2
INT((1.2，3.5))=1
REAL(X)
整型转换实型、
Fortran90关于变量说明的新功能：
1.在变量说明的同时，可以给变量赋初值。
INTEGER::I=5，J=126
REAL::X=7.2，Z，W=774.2
2.在说明变量的同时也可说明其种别
REAL(KIND=4)::X,Y或REAL(4)::X,Y
3.在说明变量的同时，还可说明变量的属性
INTEGER，PARAMETER::I=5，J=123
TYPE（STUDENT）::PERSON
变量的赋值：
PERSON=（”COMPUTER”，”92_2”，”LI LIN”，21）
成员的表示：
PERSON%CLASS=“92_2”
PERSON%NAME=“LI LIN”
主程序其他限制
主程序的可执行部分不能包含有RETURN语句或者ENTRY语句。
程序名对可执行程序是全局的，而且不得于该可执行程序中的任何其它程序单元名、外部过程名或公用块名相同，也不得于主程序内的任何局部名相同。
Specifies interpretation of blanks in numeric fields（空格是否当0处理）仅用于输入格式语句，如
read“(BN,2I3)”,I,J
例2．如果将格式串改为：
“（I3，I5.4，I7.5）”
则输出：
□10-0012□□00123
例3．如果L=123456
WRITE
其中:输入READ语句
输出PRINT语句,只输出到显示器
WRITE语句,适合任何输出设备
U(部件)、文件号)
表控格式I/O（*）:系统约定的格式。
f(格式)基本格式(自定格式)I/O：按用户要求的格式组织I/0。
带控制信息表的I/O：
I：碰到回车（ENTER）为一个记录。
注意：
1. IF—then标记语句的开始，ENDIF与之匹配，标记语句块结束
2.条件表达式写法
IF结构的缺省形式：
缺省ELSE块：
IF（lexp）THEN
语句体1
ENDIF
缺省THEN块：
IF（lexp）THEN
ELSE
语句体2
ENDIF
多分支结构
方法1：转化为单分支，逻辑IF语句并列
方法2：逐次二分，转化为块IF结构嵌套
O：一行为一个记录。
程序执行过程中按表控格式输入数据
各数据间有分隔符：，或空格
类型匹配：整型:带小数点只取整数部分；
复数：（实部，虚部）；
字符：‘一串字符’：赋值时长度转化或一串字符即‘’可省略。
逻辑：以T或F作为第一个字母的字符串（点号1个、空格多个在前忽略）
3.输入的数据必须是常数，不能是变量和表达式
如：TYPE STUDENT (定义开始)
CHARACTER(LEN=20)::DEPARTMENT
CHARACTER(LEN=10)::CLASS
CHARACTER(LEN=15)::NAME
INTEGER::NUMBER（成员定义）
END TYPE STUDENT（定义结束）
派生类型变量的定义：
关系运算符：
>、>=、<、<=、==(等于)、/=(不等于) (常用)
.GT.、.GE.、.LT.、.LE.、.EQ.、.NE.
注意
1、每个关系表达式中的关系运算符只准出现1次，运算符两侧都是表达式；
错例：2<X<3（2.LT.X.LT.3）或(a>b)<c
2、运算对象：
关系运算符两边的运算对象类型应相容：
□10-0012□123456
！！Iw.m：m<位数，则按照实际数输出
实型编辑符
1．编辑符格式
[r]Fw.d将数据按小数形式输出
[r]Ew.d将数据按指数形式输出
[r]Gw.d根据数据大小决定采用E或F格式
r—重复系数
w—字段宽度（总宽度）
d—小数部分宽度
F编辑符
功能：用于实数编辑，小数形式的输出(定点数：单精度实数，4个字节，7个有效数字)
如输入2+1，则出错。
4.输入数据个数：
1）不得少于变量的个数；
2）可分行输入；
3）多余的数据不起作用
5.空格可以多个，/表示输入数据结束，后面的数据被取消，没有输入数据的变量值为原值；
Read*，A，B，C
输入：2，1/3
结果：A=2 B=1 C=0
6、如果几个连续变量需要赋同一个值，可以使用重复因子r,即r*[c]：r为重复数
类型运算符优先级
括号（）1
算术运算**2
*，/3
+，-4
关系运算>,>=,<,<=,==,/=5
逻辑运算.NOT.6
.AND.7
.OR.8
.EQV.,.NEQV.9
IF语句
使用范围：特殊单分支
语句写法：
IF（条件）一条语句
例：IF (X>0) PRINT*,X
执行过程：
1、计算条件表达式的值
2、真右边语句IF的下一个语句
SELECT CASE（情况表达式）
CASE（情况选择器1）
block1（块1）
CASE（情况选择器2）
block（块2）
--------
CASE（情况选择器n）
block n
[CASE DEFAULT
默认块]
END SELECT
执行过程:
1.计算情况表达式的值
2.顺序匹配各情况选择器，执行相应的block1,再到END Select下一个语句
嵌套过多容易出错，也不易维护，因此应尽量减少嵌套的层次；
方法是把条件分细，列成多条ELSEIF语句，ELSEIF结构为：
Elseif结构:
IF（e1）THEN
block1
ELSEIF（e2）then
block2
ELSEIF（e3）then
block3
--------
ELSE
block n
ENDIF
IF结构的取名