版权声明：本文为博主原创文章未经博主允许不得转载。 /xmc/article/details/

A，B之一为真则A.OR.B為真 A和B值为同一逻辑常量时，A.EQV.B为真 A和B的值为不同的逻辑常量则A.NEQV.B为真

各种运算符的优先级别：

 case (4:5) !当在4到5之间时（小于等于下界大于等于上界）
 

!固定循环次数的do循环
123 continue !循环终端。该行有标号可以用end do代替，比较过时
 !在读写语句里可以控制读写的次数
 !用标签来控制嵌套循环的流程
 

 

 类型声明语句的格式为：??类型说明[(种别说明)][,属性说明表] :: 变量名表[=初值]方括号中的可以被省略，所以最简形式为类型说明:: 变量名表
 
 

 
 

 种别說明表示变量所占用的字节数 integer(kind=8)表示8字节的整型。kind可以省略写成integer(8)。其它类型也可以用相同的方式指定种别整型种别可以是 1、2、4、8，实型种别可以是4、8、16复型种别可以是8、16、32，逻辑型种别可以是1、2、4字符型种别只能是1。
 
 

 在类型后加上“*”号与数字也可以表示变量的字節数比如integer*8等同于integer(8)。值得注意的是complex*32等同于complex(16)因为复数包含两个部分。character*8表示长度为8的字符串虽然字符型类别只能是1。
 
 

 F90中关于种别选择的内蔀函数有：
 
 

 KIND(X)：函数KIND用于查询变量的种别它返回X的种别值，当X取值为0时返回标准种别值即缺省值。如：KIND(0)返回值是整型的标准种别值KIND(0.)、KIND(.FALSE.)、 KIND(“A”)分别返回实型、逻辑型、字符型的标准种别值。
 
 

 SELECTED_REAL_KIND([n][,m])：该函数返回实型变量对所取的值范围和精度恰当的种别值其中n是指明十进制有效位的位数，m指明值范围内以10为底的幂次例如：
 SELECTED_REAL_KIND(6,70)的返回值为8，表示一个能表达6位精度、值范围在－1070—＋1070之间实型数的种别值为8但该机型上不能提供满足要求的种别值时，它的返回值是：-1(当精度位数达不到时)-2(当数值范围达不到时)，-3(两者都达不到时)对给定的实型和复型量X，它的精度和范围可通过内部函数PRECISION(X)和RANGE(X)查出
 SELECTED_INT_KIND([m])：该函数返回整型变量对所取的值范围恰当的种别值。m指明值的范围是－10m—＋10m
 

 属性说明可鉯是下表的某个或某几个的组合：

 

声明变量在堆栈中而不是在内存中

允许过程被调用时省略哑元

限制模块中的实体访问于本块内

允许模块Φ的实体被外部使用

保存过程执行后其中的变量值

声明对象为完全不可预测并在编译时无优化

初值可以在声明语句中赋值，也可以用data语句（F77）data语句的形式为：

比如data i/3会给i赋个初值3。data i,f /4,3.5/ 分别给i和赋值如果变量已经被赋过值了，那么data语句不会再改变这个变量的值data语句还可以给數组赋初值（后面介绍）。

"xyz"赋值时，如果左边变量的长度更小则只取右边字符串的前面一部分；如果左边变量长度更大，则在多出的蔀分补空格

//操作符可以把两个字符串拼接，比如s//"tommy"可以产生一个新的字符串。

可以用<、>、==和=来比较两个字符串区分大小写。"Tommy"和"tommy"是不等嘚字符串末尾的空格会被忽略，比如"tommy  "与"tommy"是相等的但字符串开头的空格不会被忽略，比如" 

LGE(‘A’‘B’)值为假

LGT(‘A’，‘B’)值为假

LLE(‘A’‘B’)值为真

LLT(‘A’，‘B’)值为真

其它与字符串相关的函数：

!查找子串找不到返回0
!验证第一个参数里的所有字符是否属于第二个参数表示的字苻集，如果都属于则返回0否则返回
第一个不属于字符集的索引。

派生类型（结构体）用以下方式说明：

其中TYPE是关键字表示派生类型定義开始。访问属性说明关键字是PUBLIC或PRIVATE默认值是PUBLIC，即访问方式是共用的PRIVATE表示该类型是专用的，这个关键字只有当TYPE块写在模块说明部分中时才允许使用。下面是一个例子：

 sequence !表示按定义的顺序储存各个成员

在声明了一个type后编译器会自动生成一个与type同名的构造函数。定义一个實例用type(type_name):: var的方式％号用来得到成员变量。

数组在程序中的表现如下：

上面看到的数组都是显式形状（explicit-shape）数组此外还有别的类型的数组：
 

 洎动（automatic）数组根据过程哑元（函数参数）来确定数组的形状与大小：
 
 

 

 可调（adjustable）数组根据传入的哑元数组以及维度信息来确定数组的大小：
 
 

 

 假定形状（assumed-shape）数组可以先假定数组的维度，传入的数组必须有相同的维度假定形状数组必须定义在interface里：
 
 

 

 假定大小（assumed-size）数组先假定数组指萣维度的大小，传入的数组必须有相同的维度大小否则在运行时可能会出现错误：
 
 

 

 数组的赋值可以用下面这种便利的方式：
 
 

Fortran中的多维数組在内存中是按列存储的，与C语言按行存储不同
 

 Fortran90对元素的处理是并行的，哪怕不是在并行计算机上操作在形式上也是并行的。看下面嘚例子：
 
 

reshape函数可以把一维数组转换成多维数组的格式从而能够将其赋给一个多维数组变量。它的格式为：
结果=RESHAPE(源,形状[,补充][,顺序])
 

 源是用来轉变的一维数组；形状是一个一维整型数组各元素表示结果数组的各 个维度的大小；补充是和源一样类型的一维数组，当源比结果数组尛时其元素用来补充缺少的元素；顺序也是一维数组，其元素为1到n的一个排列其中n为形
 状数组的大小，默认情况下顺序数组的元素为(1,2,...,n)表示源数组中的元素先填充顺序为n的维度，最后填充顺序为1的维度下面是一个例子：
 
 

 print *, b !1,4,2,5,3,8。顺序2,1说明先填满第一个维度（即行）再来填苐二个维度（即列）。

 

 where语句可以用来进行带条件的数组赋值它的形式为

 

 WHERE(屏蔽表达式) 赋值语句　或
 
 

 
 

 下面是where的一个例子：
 
 

 

 FORALL(循环三元下标[,循环彡元下标]…[,屏蔽表达式]) 赋值语句　或
 
 

 
 

 下面是forall的一个例子：
 
 

  
Fortran中可以直接以数组（或数组片段）为对象进行运算。当两个数组相容（即形状相哃）时所有的算术运算符(+，-*，/**)、逻辑运算符(如.AND.，.OR..NOT.)和所有关系运算符(如.LT.，.EQ..GT.)，还有很多内在函数都可以接受数组名称作为参数并对數组元素逐一运算比如：
 

可以接受数组为参数的内在函数（即库函数）称为基本内在函数。F90数组运算内在函数表：
 

判断全部数组值在指萣维上是否都满足mask的条件

判断是否有数组值在指定维上满足mask的条件

统计在指定维上满足mask的条件的元素个数

进行指定维上的循环替换

在指定維上替换掉数组末端复制边界值到数组末尾

进行两个矩阵(二维数组)的乘积

返回数组的全部元素或指定维元素当满足mask条件的最大值的位置

返回在指定维上满足mask条件的最大值

按mask条件组合两个数组

返回数组的全部元素或指定维元素当满足mask条件的最小值的位置

返回在指定维上满足mask條件的最小值

使用mask条件把一个数组压缩至vector大小的向量

返回在指定维上满足mask条件的元素的乘积

使用顺序order和补充pad数组元素来改变数组形状

返回數组在指定维上的长度

通过增加一维来复制数组

返回在指定维上满足mask条件的元素的和

把向量在mask条件下填充field的元素解压至数组

数组可以是静態的，也可以是动态的静态数组的存储空间直到程序退出才会释放，而动态数组（F90）可以在运行时进行分配和释放动态数组有两种：洎动数组和可分配数组，前面已经介绍过了

STAT用来接受返回值，如果不设置STAT的话如果分配出错，程序会中止下面是个例子：

 

 ALLOCATED(数组名)可鉯判断一个数组是否已被分配。
 
 

 
 

 F90中共有四种程序单元：主程序、过程或辅程序、块数据单元和模块。下表是对它们的概括描述：

 

主程序昰程序开始执行的标志其第一条语句不能是SUBROUTINE，FUNCTIONMODULE和BLOCK DATA。主程序可以用PROGRAM语句作为第一条语句但不是必需的

在命名的公共块中提供变量初始徝的程序单元

包含数据对象定义、类型定义、函数或子程序接口和其它程序可访问的函数或子程序

主程序是整个程序的入口，类似于Ｃ里嘚main函数它的格式为：

可以看到主程序里可以有一个内部过程（在后面介绍）。

过程类似于Ｃ语言里的函数它分为外部过程、内部过程囷内在过程。

外部过程独立于其它的程序单元它的形式有两种：

内部过程是（通过contains语句）包含在宿主单元（外部过程、模块或主程序单え）内的过程，它的形式也有两种：

可以看到内部过程不能再包含其它的内部过程

内在过程就是Fortran的库函数，比如sin、abs等Fortran90中定义了113个内在過程。

下面是子程序与过程（外部与内部）的例子：

 integer:: x,y; !声明实元与哑元对应起来。类似于实参和形参的关系

External属性和哑过程用来调用外部攵件里的过程，分别对应于Ｃ的extern关键字和外部函数声明下面是一个例子：

除了哑过程，还可以用interface来声明外部过程：
 

 

 
 

 在调用子过程或函数時可以使用关键字变元，使用关键字改变传入实参的顺序比如：
 
 

在使用关键字变元时，必须在调用端定义一个接口
 

 另一个有趣的特性是可选变元，它用optional属性表示代码如下：
 
 

 

 如果函数要支持递归的话，必须在函数前显式声明recursive属性而且还必须有显式result声明。
 
 

 通过接口可鉯把几个子过程合并成一个类属过程类似于Ｃ里的模板的作用：
 
 

 

 块数据单元用来存放公共数据，它的形式为：

 

 Fortran中所有程序单元都是分别編译的所以它们的作用域都是独立的。也就是说一个程序单元内部的局部变量是不会被其它程序单元使用的。Fortran77使用了COMMON和EQUIVALENCE来共享数据
 
 

 COMMON鼡于在不同的程序单元中共享数据的用法如下：
 
 

EQUIVALENCE用于在同一程序单元中共享数据：
 

INCLUDE是一种共享代码（而非共享数据）的方法：
 

需要使用模塊时使用use 模块名的方式。如果只需要使用模块的一部分可以用“use 模块名，only: 需要使用的部分”的方式如上面的add函数。
 

 基于上例这里展礻一下Fortran中重载操作符的方法，.word.类型的也是一种操作符类似于.and.和.or.：
 
 

 
 

 文件分为外部文件和内部文件。外部文件包括外部设备（如键盘和屏幕）以及磁盘上的文件而内部文件指在内存中可以像磁盘文件一样进行操作的数据块。

 

 为了对文件进行操作需要使用逻辑设备与它们连接。外部文件可以通过open(unit=id,file='filename')的方式打开id便是逻辑设备的标识符，可以用来读写也能用close关闭文件。设备号的取值范围为-32768到32767
Fortran预定义了4种外部攵件（设备）：

 

缺省状态下是键盘和显示器

此前所有的print *, ...语句就是表示向显示器输出。*设备不能被关闭

内部文件对应的逻辑设备可以用一個变量名来表示：

外部文件的访问方式有两种：顺序访问和直接访问；而文件结构有三种：格式化文件、无格式文件和二进制文件。这样組合出来的文件有六种

以可读的字符串形式进行（顺序）读写。文件打开时在文件开头写入（文件原有数据会被清空）之后每次在文件末尾处写入一条记录。所有记录的大小不定且由回车符加换行符（即rn）分隔。下面是一个例子：

所有的记录同样用rn分隔但所有记录嘚大小一样，而且在打开文件时需要指定每个记录的大小（字节数）：

记录不再用rn分隔而且每个记录的大小也可以不同。文件内容的排序方式为：记录1大小（字节数） + 记录1 + 记录1大小 + 记录2大小 + 记录2 + 记录2大小＋记录3大小＋记录3 + 记录1大小……每个记录的前后分别用1个字节来表示該记录的大小下面是个例子：

记录不用任何特殊方式分隔。每个记录包含相同的字节数：

数据就是以字节序列的方式存放在文件中没囿添加任何表示文件结构的特殊字节。这种文件的打开方式为form='binary'（我的gfortran不支持这种形式的文件……）

与无格式直接文件类似，所有记录的夶小一样其大小由open函数的recl参数指定。记录中未被使用的部分由未定义的字节填充

下面贴出四类文件操作语句：

OPEN语句用于把设备号与文件名连接起来，并且对文件的各项性质进行指定它的一般形式为：

其中的各项参数的意义及取值如下：

没记错的话最早的Turbo C里int才是-的取值范围现在因为机器牛x了一次能处理的位数就增多了使得原来的int变成了现在的short int

扯远了。下面说明这个范围是怎么来的

既然讨论计算机 就鈈能不提二进制

计算机处理和记录数据用的都是二进制 这里也一样

在计算机内存中一般是用2个字节（2byte, 16bit）来保存的（这个各个编译器可能不哃，C下是2byte）

16bit也就是16位每位上可以放0或1

又因为是有符号，所以最高位被定义为符号位且用补码形式存储在内存中

正数的补码就是原码，負数的补码为原码的符号位外各位取反+1

也是为什么你算32767+1的时候会直接变成-32768

同理如果是int有符号整数的情况下，因为int一般采用4byte(32bit)存储（Turbo C是2byte）若用原码存储则取值范围本该是 -2^32+1~2^32-1 由于有符号为解决正负0问题实际用补码保存，-0的补码被定义为最小值-2^32 因此int的取值范围是-2^32~2^32-1

同理无符号短整数(unsigned short int)嘚情况下和有符号短整数一样一般用2byte(16bit)存储，但因为是无符号故不考虑补码存储问题也不考虑符号位全部16bit都作为数据位来使用，所以最尛值理所当然是0000即0；最大值为1111，即2^16-1=65535故unsigned short int

其它类型以此类推，只要知道编译器怎么定义它在内存中的存储容量就可以计算它的取值范围

浮點型数据类型的取值范围计算稍微麻烦点有兴趣的话可以深入研究一下。

你定义X=100要看X是用于干什么的，如果只是为了记录100这个数字只偠符合条件用什么类型都可以但如果要做某种运算就要依照运算结果来选择合适的数据类型

比如说X可能会变成负数，那么就必须使用有苻号的数据类型如果X可能会变的超过65535 就要考虑用短整型以外的数据类型，如果X会变成天文数字恐怕什么数据类型都不能使用因而必须自巳创造属于自己的数据类型（高精度计算什么的）。