第2章 FORTRAN语法基础

1 FORTRAN77四则运算符+ - * / ** （其中**表示乘方）在表达式中按优先级次序由低到高为： +或-→*或/→**→函数→（)2 FORTRAN77变量类型2.1 隐含约定:I—N规则凡是以字母I，J，K，L，M，N六个字母开头的,即认为是整型变量，其它为实型变量。

2.2 用类型说明语句确定变量类型：可以改变I—N规则2。

3 用IMPLICIT语句将某一字母开头的全部变量指定为所需类型如 IMPLICIT REAL (I，J)三种定义的优先级别由低到高顺序为：I—N规则→IMPLICIT语句→类型说明语句,因此，在程序中IMPLICIT语句应放在类型说明语句之前。

2。

4 数组的说明与使用使用I-N规则时用DIMENSION说明数组，也可在定义变量类型同时说明数组，说明格式为：数组名（下标下界,下标上界）,也可省略下标下界，此时默认为1,例：DIMENSION IA(0：9),ND(80：99),W（3,2）,NUM（—1:0),A(0：2,0:1，0：3)REAL IA(10），ND(80：99)使用隐含DO循环进行数组输入输出操作：例如WRITE(*,10) ('I=’，I,’A=’,A（I）,I=1，10，2)10FORMAT（1X，5（A2，I2,1X,A2,I4)）2。

5 使用DATA语句给数组赋初值变量表中可出现变量名，数组名，数组元素名,隐含DO循环，但不许出现任何形式的表达式：例如DATA A,B,C/—1.0，-1。

0，—1。

0/DATA A/-1.0/,B/-1.0/，C/—1。

0/DATA A，B，C/3＊-1.0/CHARACTER*6 CHN（10)DATA CHN/10＊’’/INTEGER NUM(1000)DATA (NUM（I)，I=1,500)/500*0/,（NUM（I）,I=501，1000）/500＊1/3 FORTRAN77程序书写规则程序中的变量名，不分大小写；变量名称是以字母开头再加上1到5位字母或数字构成,即变更名字串中只有前6位有效;一行只能写一个语句；程序的第一个语句固定为PROGRAM 程序名称字符串某行的第１个字符至第５个字符位为标号区,只能书写语句标号或空着或注释内容;某行的第１个字符为Ｃ或＊号时，则表示该行为注释行,其后面的内容为注释内容;某行的第６个字符位为非空格和非０字符时，则该行为上一行的续行，一个语句最多可有19个续行;某行的第７至７２字符位为语句区，语句区内可以任加空格以求美观;某行的第７３至８０字符位为注释区，８０字符位以后不能有内容.4 FORTRAN77关系运算符。

第四节
表控输入语句
在应用READ语句进行表控输入操作时，输入的数据应 该符合READ语句中的要求，即输入的数据个数应该与 READ语句中的变量个数一致；输入数据的类型应与 READ语句中相应变量的类型一致。如果输入的数据不 够，READ语句将会等待用户继续输入，直到输入所需 的全部数据为止。如果输入的数据过多，则多余的数 据不起作用。如果输入的数据与READ语句中的变量类 型2 bx c 0
（设Δ>=0)
4ac
x
1, 2

b
b
2
2a
第三节
赋值语句
三、赋值过程的类型转换作用 □在不同的类型之间进行转换是有限制条件的：数值型以及逻辑 型数据之间允许相互赋值转换；数值型数据与字符型数据之间则 不允许进行直接赋值转换，需要使用专用的字符函数；逻辑型数 据不允许与字符型数据之间进行直接或间接的转换。 □整型数据与实型数据的相互转换遵循如下规则：整型向实型转 换时，保持数值的大小不变；实型向整型转换时，直接将实型的 小数部分截去。 □在由整型数据向逻辑型数据转换时，逻辑型数据的值由整型数 据的奇偶来决定：当整型数据为奇数时，转换成的逻辑型数据的 值为TRUE；当整型数据为偶数（包括0）时，转换成的逻辑型数据 的值为FALSE。 □在由实型数据向逻辑型数据转换时，实型数据会首先转换成整 型，然后再由整型向逻辑型转换。
⑹ 类型说明时，可进行变量的初始化，此时一定要 注意变量名前的::符号不可省略。 real::score=89.5
Parameter 语句
（1）功能：用一个符号代表一个常量，称为符号常量（常
数），这样在程序中用到这个常数时直接写这个常数名即可，
从而给编写程序、阅读程序以及修改程序带来方便。 （2）写法： Parameter（PI=3.14159，g=9.81) （3）位置：位于所有可执行语句之前。符号常量的定名规则 与定变量名相同。名字本身隐含类型，也遵循I－N规则。可以 用类型说明语句定义符号常量的类型。例： INTEGER P

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) 产生一个种别值，它表示某一精度和范围。

2.1.2 符号常量
￡ 符号常量，是用一个标识符来代表一个常量。符号常量常用 PARAMETER语句来定义。例如： PARAMETER (PI=3.1416，M=10)
￡ 该语句定义了两个符号常量PI和M，在该程序单位内，PI代表3.1 416，M代表10
￡ PARAMETER为特有的常量定义标识，要定义的项必须放在（） 内，如果有多项，项之间要用逗号隔开。
FORTKAINND值中字变节量二的进位类型精度的定义取有值三范种围(方绝对式值：)
1.
类型说4 明语4句
8
8
32 64
7位 15位
0，[10-38，10+38] 0，[10-308，10+308]
￡格式为：类型说明符 变量名1，变量名2…
说明：大于最大值，产生上溢错，小于最小值，按0处理。
￡其中类型说明字为：
￡ 符号常量与变量有着本质的区别，PARAMETER语句是非执行语 句，变量对应于一个存储单元，程序执行时，可将表达式的值存 放到变量所对应的存储单元中（即给变量赋值）或从变量所对应 的存储单元中取出相应的值。 符号常量不能当变量使用
例1 输入圆柱体的半径和高，求圆柱体的表面积和体积
PROGRAM fex REAL R, H, S, V PARAMETER (PI=3.141593) PRINT *, “请输入半径和高：” READ *, R, H S=PI*R*2*H V=PI*R**2*H PRINT *, “表面积为：”, S PRINT *, “体积为：”, V END
SIN(x)
实型 求正弦
sinx
SQRT(x)
实型 求平方根 √x
TAN(x)
实型 求正切