(完整)Fortran经典编程语言笔记(你值得拥有)

FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中（如航空航天、地质勘探、天气预报和建筑工程等领域）发挥着极其重要的作用。

经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。

目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :<说实话，从科技发展的趋势来说这不是好事。

您可以设想一下，如果需要用鹅毛笔抄写大量的古籍是什么感受！强烈建议阅读《发掘C#特性赋予科学计算项目以威力》1 FORTRAN77四则运算符+ - * / ** (其中**表示乘方)在表达式中按优先级次序由低到高为： +或-→*或/→**→函数→()2 FORTRAN77变量类型隐含约定：I-N规则凡是以字母I，J，K，L，M，N六个字母开头的，即认为是整型变量，其它为实型变量。

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

数组的说明与使用使用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))使用DATA语句给数组赋初值变量表中可出现变量名,数组名,数组元素名,隐含DO循环，但不许出现任何形式的表达式：例如DATA A,B,C/,,DATA A/,B/,C/DATA A,B,C/3*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个续行；·某行的第７至７２字符位为语句区，语句区内可以任加空格以求美观；·某行的第７３至８０字符位为注释区，８０字符位以后不能有内容。

不要把两个独立的程序文件放入同一个Project中，否则会导致编译过程的出现错误。

不区分大小写，小写字母会被视为大写。

有自由格式（.F90）和固定格式(.F/.FOR)两种，建议用.F90。

运算符+-*、**（乘幂，两个星号要连续）比如2的2次方要写成2**2。

注意括号的使用，如（(A+B)*(C+D)）/(2*(E+F))，不要漏掉。

乘号不能省略，2*A不能写成2A。

Program描述开头，后面接自定义的程序名称。

想不出名称建议使用MAIN。

程序最后END。

STOP程序结束。

连续两个双引号可以打出一个双引号。

！后面是注释，最后&，下一行与这一行连接；开头是&，与上一行连接。

同一个单次也可以用&分在两行。

空格无意义。

每行132个字符。

数据类型：整型INTEGER、浮点数REAL、复数COMPLEX、字符CHARACTER、逻辑判断LOGICAL 1代表TRUE，0代表FALSE。

可以integer a; a=2*3+1 a=一个表达式，若a=3/2 会得到1，因为整型会舍去小数部分。

Integer (kind=2) a 或者integer*2 a或者integer(2) a短整型integer (kind=4) a 长整形integer a,b,c同时声明多个。

Real(kind=4) b 单精度浮点数，Real(kind=8) b 双精度浮点数，单精度有效位数为6-7位，双精度为15-16位，精确到时候应使用双精度。

注意：real a;a=2.5+3/2会得到3.5，因为3/2被当成了整型，应改成a=2.5+3.0/2.0保证被当成浮点数而不是整型来处理。

单精度浮点数用E，2.5E11表示2.5乘以10的11次方。

双精度浮点数用D，2.2D3=230字符character(len=10) character(10) character*10 a 申明字符数为10的字符串。

fortran语言程序设计知识点Fortran语言是一种面向科学与工程计算的编程语言，因其在数值计算和科学应用方面的高效性而受到广泛使用。

本文将重点介绍Fortran语言程序设计的一些重要知识点。

一、基础语法1.1 变量与数据类型在Fortran中，变量是用于存储数据的容器。

常见的数据类型包括整型（INTEGER）、实型（REAL/DOUBLE PRECISION）、复数型（COMPLEX）、逻辑型（LOGICAL）等。

变量的命名需遵循一定规则，如以字母开头，长度不超过31个字符等。

1.2 运算符与表达式Fortran支持常见的算术运算符（如+、-、*、/）以及逻辑运算符（如. AND.、. OR.、. NOT.）等。

表达式由变量、常数和运算符组成，可以进行数值运算和逻辑判断。

1.3 控制结构Fortran提供循环结构（DO）、条件结构（IF-THEN-ELSE）和选择结构（SELECT CASE）等控制语句，用于控制程序的流程。

二、数组与数据处理2.1 数组定义与操作Fortran中数组是由相同类型的数据元素组成的集合。

可以使用DIMENSION语句定义数组的维度和大小，通过下标访问和修改数组元素。

2.2 数组运算与函数Fortran提供了许多对数组进行运算和处理的函数，如数组求和（SUM）、最大最小值（MAX、MIN）、数组重排（RESHAPE）等，方便对数据进行统计和处理。

2.3 文件读写操作Fortran支持对文件进行读写操作，可以通过OPEN语句打开文件，使用READ和WRITE语句读取和写入数据。

可以根据需要设置文件的访问模式和格式。

三、过程与模块3.1 过程（Subroutine/Function）过程是一段独立的代码块，可接受传入参数并返回值。

在Fortran中，过程可以是子程序（Subroutine）或函数（Function）。

子程序用于完成一系列操作，而函数则返回一个值。

3.2 模块（Module）Fortran中的模块是一个编译单元，用于组织和管理相关的过程和变量。

fortran知识点总结一、语法结构Fortran语言的语法结构遵循一套严格的规则。

下面是一些常见的语法结构：1. 程序单元：Fortran程序由一个或多个程序单元组成。

每个程序单元由一个或多个声明和执行语句组成。

2. 注释：在Fortran中，注释可以用来提高代码的可读性。

注释以感叹号（!）开头，直到行末为止。

3. 标识符：Fortran中的标识符由字母、数字和下划线组成，且区分大小写。

标识符用于表示变量、函数、子程序等。

4. 变量声明：在Fortran中，变量声明使用关键字“REAL”、“INTEGER”、“LOGICAL”等来指定变量的数据类型。

例如，REAL :: x 表示声明了一个实数类型的变量x。

5. 程序控制结构：Fortran提供了多种控制结构，包括顺序结构、条件结构和循环结构。

这些结构提供了程序的流程控制和逻辑控制。

6. 函数和子程序：Fortran支持函数和子程序的定义和调用。

函数和子程序可以帮助程序员组织和重用代码。

7. 模块和接口：Fortran中的模块和接口提供了一种组织代码的方式。

模块可以包含多个子程序和全局变量，接口可以用来定义子程序的接口。

二、数据类型在Fortran中，数据类型用于表示数据的类型和大小。

Fortran提供了多种数据类型，包括整数、实数、逻辑值、字符、复数等。

下面是一些常见的数据类型：1. 整数：整数类型用于表示整数值。

在Fortran中，整数类型包括“INTEGER”、“LOGICAL” 和“CHARACTER”类型。

2. 实数：实数类型用于表示实数值。

在Fortran中，实数类型包括“REAL”和“COMPLEX”类型。

REAL类型用于表示实数，COMPLEX类型用于表示复数。

3. 字符：字符类型用于表示字符值。

在Fortran中，字符类型使用CHARACTER关键字进行声明。

字符类型可以表示单个字符或者字符数组。

4. 数组：数组类型用于表示多个相同类型的数据。

Fortran语法（转载）2010-08-02 09:45目录：一、说明二、概述三、数据类型及基本输入输出四、流程控制五、循环六、数组七、函数八、文件一、说明本文多数内容是我读彭国伦《Fortran 95 程序设计》的笔记。

只读到第九章，主要是3~9章，都是些最基本的用法（原书共16章）。

这里主要摘录了我看书过程中总结的一些Fortran和C不同的地方，主要是语法方面。

希望这份笔记能够给学过C但没有接触过Fortran 的同学带去一些帮助。

要想弄得更清楚些，推荐看一下原书，觉得作者真的写得很好，很清楚；如果有C语言的基础，看完前九章应该很快的，花一两天就行了。

觉得如果耐心看完本文，基本功能应该也可以顺利用起来了。

另外，由于我之前没有用过Fortran，这次为了赶文档看书又看得很粗浅，大多数东西看过之后都没来得及仔细想，只是按着作者的意思去理解。

所以这份笔记还处于纸上谈兵的层次。

文中蓝色的部分是程序代码，!后面的内容为注释。

二、概述1、名词解释Fortran=Formula Translator/Translation一看就知道有什么特色了：可以把接近数学语言的文本翻译成机械语言。

的确，从一开始，IBM设计它的时候就是为了方便数值计算和科学数据处理。

设计强大的数组操作就是为了实现这一目标。

Fortran奠定了高级语言发展的基础。

现在Fortran在科研和机械方面应用很广。

2、Fortran的主要版本及差别按其发展历史，Fortran编译器的版本其实很多。

现在在广泛使用的是Fortran 77和Fortran90。

Fortran 90在Fortran 77基础上添加了不少使用的功能，并且改良了77编程的版面格式，所以编程时推荐使用90。

鉴于很多现成的程序只有77版本，有必要知道77的一些基本常识，至少保证能够看懂77程序。

以下是77和90的一些格式上的区别。

Fortran 77：固定格式（fixed format），程序代码扩展名：.f或.for（1）若某行以C,c或*开头，则该行被当成注释；（2）每行前六个字符不能写程序代码，可空着，或者1~5字符以数字表明行代码（用作格式化输入输出等）；7~72为程序代码编写区；73往后被忽略；（3）太长的话可以续行，所续行的第六个字符必须是"0"以外的任何字符。

读有限元程序笔记1.ALLOCATABLE::COORD(:,:),PROPS(:,:,:) !声明两个可变大小的数组，COORD(:,:)是二维数组，PROPS(:,:,:)是三维数组。

2.Fortran程序行首为C代表改行为注释，不会被编译3.全局变量（common），不同的程序之间，也就是在不同的函数之间或者是主程序跟函数之间，除了可以通过传递参数的方法来共享内存，还可以通过“全局变量”来让不同程序中声明出来的变量使用相同的内存位置。

4.Dimensional维的，viscoplastic塑性的，elastic有弹力的，finite有限的，element元素，program程序。

5.THREE DIMENSIONAL ELASTIC-VISCOPLASTIC FINITE ELEMENT PROGRAM三维弹塑性有限元程序6.Module可以用来封装程序模块，通常是用来把程序中，具备相关功能的函数及变量封装在一起。

程序在开始定义了一个module模块，在模块中定义了MXKKK=50000000，MXGSJ=1000，MXGSJ=1000三个常量（PARAMETER表示常量），并且每个常量都赋了值。

在module模块中定义了NELEM,NPOIN,NPROP,MXDFN,NSTEP,IDEVP,IDDP,LTYPE以及NFIX1,NPL,NVL,NSL,NHL,NTL,IDCVG,NTOTV,NKK以及DTIME,TOLER,SCALE,DSCALE这些全局变量（common表示全局变量），定义了ICM(3,8),CGAUS(2),VSHAP(8,8),DERIV(3,8,8)以及POSGP(3),COPG(3),EJ(3,3),EJACI(3,3),R(8,8)这些维数与大小都确定的全局数组变量，定义了COORD(:,:),PROPS(:,:,:)以及STRSG(:,:,:),DJ(:,:),CARTD(:,:,:,:)以及TRANJ(:,:,:,:),DJRMX(:,:,:)以及DREMX(:,:,:),DJEMX(:,:,:,:)以及CREMX(:,:,:),CJEMX(:,:,:,:)以及MELEM(:,:),MPROP(:),ISSOR(:,:),NNDEX(:)以及MPFIX(:,:),MPSJ(:),MMATP(:),MPIV(:)以及TSTIF(:)以及ADISP(:),TDISP(:),ALOAD(:)以及PSNBR(:,:,:),PSNBJ(:,:)以及PSTNR(:,:,:),PSTNJ(:,:)以及STRSP(:,:),STRSJ(:,:)这些维数确定但是大小不确定的可变大小的数组，ALLOCA TABLE表示可变大小的数组变量。

FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中（如航空航天、地质勘探、天气预报和建筑工程等领域）发挥着极其重要的作用。

经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。

目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :<说实话，从科技发展的趋势来说这不是好事。

您可以设想一下，如果需要用鹅毛笔抄写大量的古籍是什么感受！强烈建议阅读《发掘C#特性赋予科学计算项目以威力》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个续行；•某行的第７至７２字符位为语句区，语句区内可以任加空格以求美观；•某行的第７３至８０字符位为注释区，８０字符位以后不能有内容。

Fortran学习笔记——吴登将2014.10.15小技巧:！写出到excelexcel的默认格式，估计是大家所期望的输出格式。

方法很简单，只要知道xls文件的分列符号是tab键就行了，于是在同行的各数据间加上" "字符(按一下tab键，在fortran 输出时两边加上英文引号)就搞定了。

1.新建项目：步骤2. 面向过程的方法--就是程序的组成单位是函数（过程），也就是说，一个程序是由若干个函数组成的。

“结构化程序设计方法”应该与“面向过程的程序设计方法”是同义词。

面向对象的方法--就是程序的组成单位是类class ，程序是由若干个类组成的。

当然类里面有成员函数，所以这2种方法并不是相互排斥的。

面向过程就是分析出解决问题所需要的步骤，然后用函数把这些步骤一步一步实现，使用的时候一个一个依次调用就可以了。

面向对象是把构成问题事务分解成各个对象，建立对象的目的不是为了完成一个步骤，而是为了描叙某个事物在整个解决问题的步骤中的行为。

例如五子棋，面向过程的设计思路就是首先分析问题的步骤：1、开始游戏，2、黑子先走，3、绘制画面，4、判断输赢，5、轮到白子，6、绘制画面，7、判断输赢，8、返回步骤2，9、输出最后结果。

把上面每个步骤用分别的函数来实现，问题就解决了。

而面向对象的设计则是从另外的思路来解决问题。

整个五子棋可以分为1、黑白双方，这两方的行为是一模一样的，2、棋盘系统，负责绘制画面，3、规则系统，负责判定诸如犯规、输赢等。

第一类对象（玩家对象）负责接受用户输入，并告知第二类对象（棋盘对象）棋子布局的变化，棋盘对象接收到了棋子的i变化就要负责在屏幕上面显示出这种变化，同时利用第三类对象（规则系统）来对棋局进行判定。

可以明显地看出，面向对象是以功能来划分问题，而不是步骤。

同样是绘制棋局，这样的行为在面向过程的设计中分散在了总多步骤中，很可能出现不同的绘制版本，因为通常设计人员会考虑到实际情况进行各种各样的简化。

Fortran语法备忘录（初级）转自：最简单的fortran程序：END•目录：•【注释】•【并行】•【续行】•【程序开始】•【常量】◆整型◆实型◆复型◆逻辑型◆字符◆例子◆其他进制•【变量】•【变量声明】◆类型说明&种别说明◆属性说明◆例子◆赋初值•【数组】◆三元下标◆向量下标◆数组赋值◆数组运算◆WHERE构造◆FORALL构造◆函数名称◆动态数组•【派生类型】•【算术运算】•【关系运算】•【逻辑运算】•【判断IF构造】•【GOTO循环】•【DO循环】◆隐DO循环◆无循环变量◆跳出循环◆DO WHILE •【多重选择CASE构造】•【READ,WRITE 输入输出】◆文件◆WRITE语句◆READ◆I/O列表◆OPEN◆CLOSE◆定位语句◆内部文件•【FORMAT语句】•【一些说明】•【一些建议】••【注释】•整行注释，第一个字母为 C 或者 *•附加注释，与句后面用！•!--------------------------------------------------------•! 说明(F90)•!--------------------------------------------------------•【并行】•!--------------------------------------------------------•a=1.0 ; b=2.0•!--------------------------------------------------------•【续行】•F90中一行为132列，允许有39个续行。

在语句行最后加上续行符“&”号。

如果字符串被打断，跨2行以上,则在续行的开始位置也要加&号。

•第6列上写一个非空格和非零的字符(任何ASCII字符), 常用C •【程序开始】•!--------------------------------------------------------•PROGRAM main•END PROGRAM main•!--------------------------------------------------------•【常量】•◆整型 (默认4字节)•100_1 !单字节整型常量•2000•2000_4 !4字节整型常量•◆实型 (默认4字节)•print *, 3.14159265358979_8 ! 直接打印双精度数•print *, 3.14159265358979_4 ! 直接打印单精度数(7位有效数字)•◆复型 (默认2×4字节)•(a,b)=(实数,实数)•◆逻辑型 (默认4字节) .TRUE. 和 .FALSE.•a=.TRUE.•◆字符型 (F90用"")•name="char"•例："I'm a boy." (长为10字节)•'I''m a boy.' (长为10字节)•字符子串：•A(3:11) -> 'CDE12345F'，•A(I+4:9) -> 'E1234'(I=1)，'1234'(I=2)•A(:5) -> 'ABCDE'•A(11:) -> 'FGH'•A(:) -> 'ABCDE12345FGH'•A(3:3) -> 'C'•A=A(:5)//A(6:) !字符串的合并运算•求字符串长度的函数：LEN(字符串)•不计尾部空格的字符串长度函数：LEN_TRIM(字符串)•求子串在父串位置的函数：INDEX•验证字符串的函数：VERIFY•除去尾部空格函数：TRIM•比较字符大小的函数：LGE、LGT、LLE、LLT•••◆例如：•21_2+7.6_4 表示整型种别为2的数21与实型种别为4的数7.6相加。

《FORTRAN 95程序设计》学习笔记66RPG gg★目录★《FORTRAN 95程序设计》学习笔记 (1)基础知识(基础、字符串、FORMAT、隐式、TYPE) (1)流程与控制(if、select、do) (4)数组(声明、隐式循环、整体操作、可变数组) (5)函数与子程序(子程序、函数、全局变量) (6)MODULE与面向对象(重载操作符、虚函数) (9)文件相关(OPEN、WRITE、READ) (10)指针（指向变量、数组、函数） (11)Visual Fortran 编译器（DLL，VB调用） (12)数值算法与IMSL（数值算法插件） (14)常用库函数（数学、数组、零碎、子程序） (15)基础知识(基础、字符串、FORMAT、隐式、TYPE)★【小玩意】二进制观察器：装在M.. Visual Studio\DF98\bin，有一个Bitviewer，可以观察变量储存方式★【语法】续行：行结尾或行开头使用& 符号；注释：使用! 符号★【语法】数学表达式：+ ；- ；* ；/ ；( ；) ；**乘幂★【语法】程序结束：STOP (Ruby的exit)★【语法】输出：write(*,*)，完整写法：write(unit=*,fmt=*)⏹建议：少用print，尽量用write★【语法】声明⏹整型：integer(kind=4) a ；其中kind是使用的bytes数，4 or 2◆其他写法：integer*4 a; integer(4) a⏹浮点：real(kind=4) a ；有效数位6位（12345678存为1.234567E7），如果是kind8则为15位有效数字◆此外：1E10：单精10^10，1D10：双精10^10⏹复数：complex :: a=(2,3)◆实部：real(a) ；虚部：imag(a)⏹布尔型：Logical，.true. 和.false.★【语法与函数】字符串：character(20) string⏹注意理解，fortran的弱智字符串就是一个长度不能变的一维的东西，极其猥琐，和Java、Ruby不能相提并论的⏹string(13:13) = “a” ：对第13个字节的读、存⏹string(2:3) = “go”⏹string(6) = “我的妈呀”：从第6个位置开始设置为“我的妈呀”⏹ a = string_a // string_b：用“//”连接两个字符串⏹【常用函数】char(num)，ichar(char)：ASCII码的转换相关功能⏹【常用函数】len(string)，len_trim(string)：长度，去掉尾部空格后的长度⏹【常用函数】index(string,key)：找key在string首出现的位置⏹【常用函数】trim(string)：返回去掉尾部空格的字符串(用途不大)⏹【函数】repeat(char,int)：返回一个重复int次的char串⏹character(len=20) string 普通声明；character(len=*) string 接收的时候可自动长度★【规范格式】FORMAT格式化⏹ e.g.◆write (*,100) A◆100 format(I4) ←这里是100号标识调用的格式⏹参数控制符(前面加数字为重复次数，如4I6或<a>I6。

1、external 用来声明自定义函数2、intrinsic 用来声明库函数3、intent(in) 指定参数为只读，不能改变值4、intent(out) 指定参数在程序中应重新设置数值。

5、intent(inout) 参数既可读又可写6、interface 使用接口当函数名称当成参数传递出去时，这两个声明不可以省略；如果纯粹氢函数拿来讲算使用，不把它当成参数传递出去，声明者自定义函数可以省略EXTERNAL,声明库函数的一行都可以完全省略。

注：在一般情况下，使用函数时不需要特别说明它们的“使用接口”，不过在下面这些情况下是必要的：（1）函数返回值为数组时（2）指定参数位置来传递参数时（3）所调用的函数参数数目不固定时（4）输入指标参数时（5）函数返回值为指针时7、random函数注：使用随机数前要先调用random_seed这个子程序来启动随机数生成器，启动之后就可以经过调用random_number来得到一个0～1之间的随机数。

8、recursive递归时使用（回归的，递归的）Result的使用能够递归执行的函数有一个必要条件，那就是递归函数每次被调用执行时，函数中所声明的局部变量都会使用不同的内存地址。

简单地说，函数中的局部变量在每次调用时都是独立存在的。

Fortran90标准中，递归函数一定要作用Result 来改名。

9、saveStatement and Attribute Preserves thevalues of a variable after the execution of aRETURN or END statement in a procedure.Statement SyntaxSAVE [name]10、pure 用来配合并行运算使用。

使用pure函数时有很多限制：（1）pure函数的参数都是只读intent(in)。

（2）pure子程序的每个参数都要赋值属性。

（3）pure函数中不能使用save。

/share/detail/24946126Just as in Basic we use TAB and PRINT USING commands to more precisely control program output, in Fortran we can usewrite commands with format statements. While these can get complicated, the most commonly used options are pretty easy to use. A typical write statement iswrite (*,20) x, y, z .The "*" in the parentheses instructs Fortran to write to the screen, while "20" refers to the label ofthe format statement for thiswrite command. The x, y, and z are the variables to be printed.A format statement for this write command might be20 format (3f10.4) .Inside the parentheses, the "3" indicates that 3 entities will be printed, the "f" denotes that these willbe floating point real numbers (not exponential notation), the "10" stipulates that 10 places will be used for printing (counting the sign, decimal point, and the digits), and ".4" mandates 4 digits after the decimal point. Some printouts formatted this way are12345.6789 , -1234.5678 , 10002.3400 .The letter "f" in this context is a format code letter; here are some of the more commonly used format code letters, with their implications:f real number, floating point formate single precision real number, exponential notationd double precision real number, exponential notationi integera text string (character)x space/vertical space (line feed)t tab indicatorStrings (in quotes) may be placed in format statements, separated by commas. Here are examples of write statements with corresponding format statements; at the right of each is a description of the corresponding output:write (*,10) n, x, y10 format (i4,4x,f10.4,2x,f10.4)integer n printed using 4 places, then 4 spaces, then real numbers x and y printed with 2 spaces between, each using 10 places and 4 decimal placeswrite (*,20) area20 format ("The area is ",f8.5)string in quotes is printed, then the real number area is printed, using 8 places with 5 decimal placeswrite (*,30) "The area is ", area30 format (a,f8.5)same output as immediately abovewrite (*,40) x, y, z 40 format (3d20.14)3 double precision numbers x, y, z printed, each reserving 20 spaces, with 14 decimal placeswrite (*,50) student, score 50 format (a20,4x,i3)student, a text string up to 20 characters, is printed, then 4 spaces, then score, an integer using a maximum of 3 placeswrite (*,60) r, A60 format (t10,f4.2,/,t10,f6.2)tabs to column 10, prints real number r, goes to next line, tabs to column 10, prints real number AYou can use loops with format statements to print arrays; here are examples:do i = 1, 10 write (*,70) a(i) end do an array a of real numbers, indexed from 1 to 10, is printed; each entry occupies 5 places with70 format (f5.2) 2 decimal places, and is printedon a separate linewrite (*,80) (a(i), i = 1, 10)80 format (f5.2)same output as immediately abovewrite (*,90) (a(i), i = 1, 10) 90 format (10f5.2)same output as above, except that all entries are printed on the same linedo i = 1, 5write (*,7) (m(i,j), j = 1, 6) 7 format (6i3)end do prints a 5 x 6 two-dimensional array m of integers, with each integer entry m(i,j) occupying 3 places. Each row of the matrix appears on its own line.Following are examples of stored values, formatting specifications for printing the values, and resulting output. (The "^" symbol indicates a blank).Stored Value Format Specifier Output1.234567f8.2^^^^1.230.00001f5.30.000-12345i5*****-12345i6-1234512345i6^123450.00001234e10.3^0.123E-040.0001234e12.4^^0.1234E-031234567.89e9.2^0.12E+07aloha a8^^^aloha1.23456789123D0d17.10^0.1234567891E+01 Fortran format格式说明2. 字符返回。

（完整）Fortran经典编程语言笔记（你值得拥有）FORTRAN笔记2014.10.07目录第七讲_FORTRAN的基本知识.ppt (2)FORTRAN语言程序设计初步 (2)FORTRAN源程序的书写格式（以77为例） (2)变量 (2)变量类型 (2)算术运算符和运算优先级 (3)赋值语句 (3)参数语句（PARAMETER语句） (3)END语句 (3)PAUSE语句 (3)逻辑运算和选择结构 (4)关系表达式 (4)FORTRAN中数组的定义及使用 (4)其他 (5)1. fortran语言定义CHARACTER*6 TTL(14,3),CNAM(400)是什么意思? (5)2. fortran里character*10 是什么意思 (5)3. Fortran中kind是什么函数？ (5)第七讲_FORTRAN的基本知识.pptFORTRAN语言程序设计初步FORTRAN是Formula Translation的缩写，意为“公式翻译”，它是为科学、工程问题或企事业管理中的那些能够用数学公式表达的问题而设计的，其数值计算的功能较强。

常用的是FORTRAN77和FORTRAN90两种标准。

1、一个程序由若干个程序单位组成。

主程序和每一个子程序分别是一个独立的程序单位。

2、每一个程序单位都是以“END”结束的。

3、一个程序单位包括若干行。

1）语句行。

由一个FORTRAN语句组成。

2）非语句行，即注释行。

4、FORTRAN程序中的语句可以没有标号，也可以有标号，根据需要而定。

标号的作用是标志一个语句以便被其他语句引用。

5、一个程序单位中各类语句的位置是有一定规定的。

6、FORTRAN源程序必须按一定的格式书写。

FORTRAN源程序的书写格式（以77为例）每一行有80列，分别如下：1、第1-5列为标号区。

一行中第一列为“C”或“*”，该行即被认为是注释行。

2、第6列为“续行标志区”，如果在一行的第6列上写一个非空格和非零的字符，则该行作为其上一行的续行。

FORTRAN程序是最常用的一种语言。

现在从最简单的FORTRAN程序结构整理，方便入门。

FORTRAN程序的结构是由主程序和主程序体，还有END组成的。

在解决某个问题时，可使用FORTRAN程序，其中，需要对一些变量进行定义，只有对变量进行定义了，才可以是程序顺利的运行下去。

因为，就像人一样，只有对各个部门的人进行分类，才能是人们能够井然有序的参加工作。

首先主程序的结构如下所示：PROGRAM MAIN。

END其中，PROGRAM翻译为“程序”的意思。

对于一个主程序，可以对其进行命名，比如，MAIN就是一个主程序的名字。

中间的省略号指的就是主程序的主体语句，问题的描述与解答均是位于主程序范围内。

但是，必须注意的是，一个程序，必须有结束语句，也就是END语句。

否则程序将无法正常运行。

1.变量定义的介绍：在进行编制程序的时候，首先要对问题中用到的变量进行定义。

最常用的一些变量定义有，整型变量，实型变量，字符型变量等。

就像数学中的数字定义一样，分实数、整数，所以整型变量就是定义一些表示整数的一些变量，比如说，整型变量NN，用NN表示节点的数目（Number of Nodes），因为点的数量就是整数，所以要用整型变量来定义。

用INTEGER 来表示整型变量。

例如，定义的语句可以这么写：INTEGER NN对于实型变量，用REAL表示，但是通常来说REAL的精度没有DOUBLE PRECISION 的精度高，通常使用DOUBLE PRECISION来表示实型变量。

因为REAL是8字节的，而DOUBLE PRECISION是16字节的，所以是双精度的。

因此DOUBLE PRECISION就翻译为“双精度的实型变量”。

例如，想要定义一个矩形的边长，因为边长不一定是整数，所以要定义为实型变量，则程序语句应该这么写：DOUBLE PRECISION L,H在此说明一点，就是在编写程序语句的时候，一定要在英文状态下编写，尤其是标点符号，虽然可以直接写出来，但是如果是在汉语状态下写入的标点符号，在程序运行的时候，会认为是错误，这一点一定要注意。

fortran90/95/20031.把Fortran90/95/2003当成一门新的语言学习（虽然和Fortran77有关系！）；2.直接学习Fortran90或Fortran95或Fortran2003，不要只学Fortran773.初学者最好先看《Fortran 95程序设计【彭国伦】》,不要因为FORTRAN95很难而转向Fortran77，即使我们自己是初学者；4.不要放过任何一个看上去很简单的小编程问题——他们往往并不那么简单，或者可以引伸出很多知识点；5.会用Fortran 77，能解决很多问题；会用Fortran90，能更加简单的解决更多问题；6.学习如何编写和使用module，type，allocate并不难，point，函数重载，binding（c）也是如此——难的是长期坚持实践和不遗余力的博览群书；7.学Fotran90是为了解决实际的数学、物理等问题的，不是用来编漂亮的界面的8.看Fortran77的书，是学不会Fortran90语言的；9.浮躁的人容易说：XX语言不行了，应该学YY；——是你自己不行了吧！？10.浮躁的人容易问：我到底该学什么；——别问，学就对了；11.浮躁的人容易问：XX有钱途吗；——建议你去抢银行；12.浮躁的人容易说：我要中文版！我英文不行！——不行？学呀！13.浮躁的人容易问：XX和YY哪个好；——告诉你吧，都好——只要你学就行；14.浮躁的人分两种：a)只观望而不学的人；b)只学而不坚持的人；15.把时髦的技术挂在嘴边，还不如把过时的技术记在心里；16.Fortran90也是支持面向对象的程序设计语言；17.学习编程最好的方法之一就是阅读源代码；18.在任何时刻都不要认为自己手中的书已经足够了；19. 请深入理解IEEE浮点数，至少读读《What Every Computer Scientist Should Know About Floating- Point Arithmetic》或是《IEEE Standard 754 Floating Point Numbers》20.看得懂的书，请仔细看；看不懂的书，请硬着头皮看；21.别指望看第一遍书就能记住和掌握什么——请看第二遍、第三遍、第N遍；22. Fortran90也可以设计windows程序，也可以链接数据库，但请牢牢记住，Fortran 被设计的目的是用最简单的语言（与数学语言最接近的语言）来做科学计算的23. 请看《Fortran 90-95 Explained》，《Object-Oriented Programming Via F95》和《Numerical Recipes In Fortran 77 & 90》，以及《Introduction to FORTRAN90》和《Fortran90 Course Notes》；24.不要停留在集成开发环境的摇篮上，要学会控制集成开发环境，还要学会用命令行方式处理程序；25.和别人一起讨论有意义的Frotran90知识点，而不是争吵XX行不行或者YY与ZZ哪个好；26.请看《程序设计实践》，并严格的按照其要求去做；27. 请经常上Fortran的论坛了解Fortran的最新进展和讨论Fortran的有关问题，国内可以上/club/bbs.asp?bbsid=16，国外可以上http: ///Top/Computers/Programming/Languages/Fortran/；http: ///ISN/Community/en-US/forums/1005 /ShowForum.aspx ，最好的老师是网络，不会的问题问请记住以下名言：在外边有问题找google解决，在家里有问题找老婆（老公）解决。