fortran学习笔记

Fortran学习笔记——吴登将2014.10.15

小技巧:

！写出到excel

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

1.新建项目：步骤

2. 面向过程的方法--就是程序的组成单位是函数（过程），也就是说，一个程序是由若干个函数组成的。“结构化程序设计方法”应该与“面向过程的程序设计方法”是同义词。面向对象的方法--就是程序的组成单位是类class ，程序是由若干个类组成的。当然类里面有成员函数，所以这2种方法并不是相互排斥的。

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

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

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

而面向对象的设计则是从另外的思路来解决问题。整个五子棋可以分为1、黑白双方，这两方的行为是一模一样的，2、棋盘系统，负责绘制画面，3、规则系统，负责判定诸如犯规、输赢等。第一类对象（玩家对象）负责接受用户输入，并告知第二类对象（棋盘对象）棋子布局的变化，棋盘对象接收到了棋子的i变化就要负责在屏幕上面显示出这种变化，同时利用第三类对象（规则系统）来对棋局进行判定。

可以明显地看出，面向对象是以功能来划分问题，而不是步骤。同样是绘制棋局，这样的行为在面向过程的设计中分散在了总多步骤中，很可能出现不同的绘制版本，因为通常设计人员会考虑到实际情况进行各种各样的简化。而面向对象的设计中，绘图只可能在棋盘对象中

出现，从而保证了绘图的统一。

功能上的统一保证了面向对象设计的可扩展性。比如我要加入悔棋的功能，如果要改动面向过程的设计，那么从输入到判断到显示这一连串的步骤都要改动，甚至步骤之间的循序都要进行大规模调整。如果是面向对象的话，只用改动棋盘对象就行了，棋盘系统保存了黑白双方的棋谱，简单回溯就可以了，而显示和规则判断则不用顾及，同时整个对对象功能的调用顺序都没有变化，改动只是局部的。

再比如我要把这个五子棋游戏改为围棋游戏，如果你是面向过程设计，那么五子棋的规则就分布在了你的程序的每一个角落，要改动还不如重写。但是如果你当初就是面向对象的设计，那么你只用改动规则对象就可以了，五子棋和围棋的区别不就是规则吗？（当然棋盘大小好像也不一样，但是你会觉得这是一个难题吗？直接在棋盘对象中进行一番小改动就可以了。）而下棋的大致步骤从面向对象的角度来看没有任何变化。

当然，要达到改动只是局部的需要设计的人有足够的经验，使用对象不能保证你的程序就是面向对象，初学者或者很蹩脚的程序员很可能以面向对象之虚而行面向过程之实，这样设计出来的所谓面向对象的程序很难有良好的可移植性和可扩展性。

3. 对数据的描述，即数据结构：对数据处理的描述，即计算机算法。

4. 程序=数据结构+算法

5. 在CASE结构中，选择表达式和控制表达式可以为整型、逻辑型或字符型。（带小数点的实型式不行的）并且整数两头不能重叠，case（0:10）case（11-20）（如果case（10-20）就会出现错误）

6.在if的条件中，只允许一个方向，只能表示一个方向，两个方向会出现错误a<1没问题，1

7.函数int（a）表示取整，不考虑四舍五入。Int（2.6）=2

!建议用自由格式写fortran

（fortran用！表示注释，！后面不读。）

！字符串特有

（1.第5行等于string（6:20）=”evening”）

(2.两个除号可以连接俩字符串。)

（3.trim(string)表示去掉字符串后面的空格，即去掉空格后的字符串）

！格式输出、输入

（例子：）

（！一个字母是两个字节。）

!其他声明

(常数的声明：)

或者

（！直接附上初值）

或者

（声明要靠前，在执行程序代码之前）

（混合运算时候，注意定义的类型。）

或者（c=a*1.0/b*1.0那输出的也是正确结果）

（定义自定义变量。）

（逻辑运算）

！流程控制语句（if 、select case、goto语句）

（注：加减乘除可以自己输入了。应用select case语句）

（注：goto语句能跳跃到任意行，通常与stop合用。一般不用。）

（循环do 、if、cycle、exit语句组合）

（注：exit语句跟在if后，执行到直接退出循环。）

（注：逻辑可以用在do while语句当中）

（注：字符串也可以定义组character：：string（20）表示含20个字符串的字符串组，在打开多个文件时候用到）

（注：二维数组从文件.inp中读取时，可以用利用隐式循环读取数组各个位置的值，例如read(10,*)((w(I,j),j=1,3),i=1,2014）,如果默认则read(10,*)((w(I,j),i=1,3),j=1,2014）=

read(10,*)w(I,j)低维的是内层循环默认。

（！数组部分内容的操作）

（数组中where语句）

（！数组大小size，一个多维数组w，看其大小，数组元素总数size（w），第一维个数size（w，1），第二维数size（w，2））

（数组中forall语句）

）

（大小可变数组，声明语句allocatable、定义语句allocate、释放语句deallocate）

(！子程序subroutine)

（注:子程序之间可以互相调用，也可以调用自己；子程序中的变量是独立的，即使和主程序中的变量名一样，也不会赋值；子程序拥有独立的行代码，和主程序中不冲突。）

（！子程序中的参数传递，可以利用数组，按顺序排列位置，技巧多。参数可以是函数，子程序，比较牛逼。）

（子程序名称后面跟上括号，括号里是参数，可以传递。也可以用数组来传递参数，此时用到循环。）

（！自定义函数，自变量导入后出来应变量。没有call语句，但在调用前先声明，自带的函数不用声明如sin（a）、cos（b），参数的传递规则和子程序中一样。）

（！全局变量common，位置对应，可以用数组。变量的类型一定要保持一致。）

（common全局变量的初值赋值可以用block data）

fortran语法手册

1 FORTRAN77四则运算符 + - * / ** (其中**表示乘方) 在表达式中按优先级次序由低到高为：+或-→*或/→**→函数→() 2 FORTRAN77变量类型 2.1 隐含约定：I-N规则 凡是以字母I，J，K，L，M，N六个字母开头的，即认为是整型变量，其它为实型变量。 如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关系运算符 .GT. 大于 .GE. 天于或等于 .LT. 小于 .LE. 小于或等于 .EQ. 等于 .NE. 不等于 .AND. 逻辑与 .OR. 逻辑或 .NOT. 逻辑非 .EQV. 逻辑等 .NEQV. 逻辑不等 运算符优先级由高到低顺序为:()→**→*或/→+或-→.GT.或.GE.或.LT. 或.LE.或.EQ.或.NE.→.NOT.→.AND.→.OR.→.EQV.或.NEQV 5 FORTRAN77语句

Fortran常用函数

1、RANDOM_NUMBER Syntax ['sint?ks] n. 语法 CALL RANDOM_NUMBER (harvest结果) Intrinsic Subroutine（固有子程序）：Returns a pseudorandom number greater than or equal to zero and less than one from the uniform distribution. 返回大于或等于0且小于1，服从均匀分布的随机数 2、RNNOA/ DRNNOA （Single/Double precision） Generate pseudorandom numbers from a standard normal distribution using an acceptance/rejection method. 产生服从标准正态分布的随机数 Usage（用法） CALL RNNOA (NR, R) Arguments（参数） NR— Number of random numbers to generate. (Input) 要产生随机数的个数 R— Vector of length NR containing the random standard normal deviates. (Output) 输出长度为NR，随机正态分布的向量 Comments（注解） The routine RNSET can be used to initialize the seed of the random number generator. The routine RNOPT can be used to select the form of the generator. 程序RNSET可以用来初始化随机数发生器的种子 Example In this example, RNNOA is used to generate five pseudorandom deviates from a standard normal distribution. INTEGER ISEED, NOUT, NR REAL R(5) EXTERNAL RNNOA, RNSET, UMACH C CALL UMACH (2, NOUT) NR = 5 ISEED = 123457 CALL RNSET (ISEED) CALL RNNOA (NR, R) WRITE (NOUT,99999) R 99999 FORMAT (' Standard normal random deviates: ', 5F8.4) END Output Standard normal random deviates: 2.0516 1.0833 0.0826 1.2777 -1.2260

FORTRAN知识点总结

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) 产生一个种别值，它表示某一精度和范围。N指十进制有效位数，m指明值范围内以10为底的幂次。

fortran心得

Read 的规则： 按行读取，每次读一行，读完后光标自动跳到下一行的开头，空格和逗号代表结束（所以空格和逗号也是读取的一部分的话，需要使用“输入输出格式”） 如果想要将一行数据读入数组，代码为： Read(10,*) s(:,:,:) 不用规定输入输出格式，因为会根据s(:,:,:)确定需要读入的数字的个数，然后fortran会按部就班的读取，甚至文件中当前这一行的数字个数不足以填满s(:,:,:)的时候，read会自动跳到下一行继续搜索数字，直到填满s(:,:,:)为止。 但是需要注意给数组赋值的顺序：read会把它搜索到的第一个数字给s(1,1,1),第二个给s(2,1,1),第三个给s(3,1,1)… 程序9 1: 将read(unit=field,fmt="(A79)",iostat=status)buffer 中的A79改为A2，结果只输出每行的前两个字符，说明read是按整行整行读取的。 中间空了几行之后，空行之后的内容还是能被读取和输出，这说明，空行和空白是不一样的：空行也算是一种文本内容，因此不会终止读取，而空白意味着结束。 !读取文件 program main implicit none character(len=79)::filename="number.txt",buffer integer,parameter::field=10 integer::status=0 logical alive inquire(file=filename,exist=alive) if(alive)then open(unit=field,file=filename) do while(.true.) read(unit=field,fmt="(A79)",iostat=status)buffer if(status/=0)exit write(*,"(A79)")buffer end do else write(*,*)filename,"does't exist." end if pause stop end program main ============================================= 附number.txt =============================== 1234555666

FORTRAN 90 程序编程规范

FORTRAN 90 程序编程规范 Fortran 90 编程规范，使程序代码高度组织化，更加易读、易懂、易于维护，程序更加高效。使编出的程序更易懂、易于维护。 1 语言选择 数值预报创新系统软件开发应避免使用Fortran77 的某些过时特征以Fortran 90不一致的特征。选择Fortran 90 作为开发语言，并采用Fortran 90 的新功能，如动态内存的分配(dynamic memory allocation)、递归（recursion ）, 模块(modules)、POINTER 、长变量名、自由格式等。 Fortran 77其中某些只是一些冗余的功能，这些功能已经过时，另外，还有一些在Fortran90 中被证明是不好的用法，建议不要使用。 2 Fortran 90 的新特性 2.1.1 建议使用的Fortran 90 新特性 建议使用Fortran 90 提供的模块（module ），并用Use ONLY 指定module 中哪些变量或派生类型定义可用于调用程序。 尽量使用数组下标三元组，这样可优化并减少所需的代码行数。为提高可读性，要在括号内表明数组的维数，例如： 1dArrayA(:) = 1dArrayB(:) + 1dArrayC(:) 2dArray(: , :) = scalar * Another2dArray(: , :) 当访问数组的子集时，例如在有限差分等式中，可以通过使用下标三元组实现。例如：2dArray(: , 2:len2) = scalar *（ & Another2dArray(:, 1:len2 -1) & - Another2dArray(:, 2:len2) & ) 对程序单元（program units ）命名，并使用End program ，End subroutine ，End interface ，End module 等结构再次指定“program unit ”的名称。 在逻辑表达式中使用>、 >=、 ==、 <、 <=、 /=，它们分别代 替.gt.、.ge.、.eq.、.lt.、.le.、.ne. 。新的表示方法更接近标准的数学符号 在变量定义中始终使用“：：”；始终用“DIMENSION ”定义数组形状；始终用（len=）的语法格式声明字符变量的长度。

fortran语法手册

1F O R T R A N77四则运算符+ - */ ** (其中**表示乘方) 在表达式中按优先级次序由低到高为：+或-→*或/→**→函数→() 2 FORTRAN77变量类型 隐含约定：I-N规则 凡是以字母I，J，K，L，M，N六个字母开头的，即认为是整型变量，其它为实型变量。 如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程序书写规则

fortran用法总结

我的Fortran基本用法小结 周日, 10/14/2007 - 21:00 — gator 一、说明 二、概述 三、数据类型及基本输入输出 四、流程控制 五、循环 六、数组 七、函数 八、文件 一、说明 本文多数内容是我读彭国伦《Fortran 95 程序设计》的笔记。只读到第九章，主要是3~9 章，都是最基本的用法（原书共16章）。这里主要摘录了我看书过程中总结的一些Fortran和C不同的地方，主要是语法方面。希望这份笔记能够给学过C但没有接触过Fortran的同学带去一些帮助。要想得更清楚些，推荐看一下原书，觉得作者真的写得很好，很清楚；如果有C语言的基础， 看完前九应该很快的，花一两天就行了。觉得如果耐心看完本文，基本功能应该也可以顺利用起 来了。外，由于我之前没有用过Fortran，这次为了赶文档看书又看得很粗浅，大多数东西看过 之后都没得及仔细想，只是按着作者的意思去理解。所以这份笔记还处于纸上谈兵的层次。如果 有不妥的方，希望大家指正。谢谢！ 文中蓝色的部分是程序代码，!后面的内容为注释。 二、概述 1、名词解释 Fortran=For mula Tran slator/Translation 一看就知道有什么特色了：可以把接近数学语言的文本翻译成机械语言。的确，从一开始 ，IBM设计的时候就是为了方便数值计算和科学数据处理。设计强大的数组操作就是为了实现这一 目标。ortran奠定了高级语言发展的基础。现在Fortran在科研和机械方面应用很广。 2、Fortran的主要版本及差别 按其发展历史，Fortran编译器的版本其实很多。现在在广泛使用的是Fortran 77和Fortr an90。ortran 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"以外的任何字符。 Fortran 90：自由格式（free format），扩展名：.f90 （1）以"!"引导注释； （2）每行可132字符，行代码放在每行最前面； （3）以&续行，放在该行末或下行初。 以下都是讨论Fortran 90。 3、Fortran的一些特点，和C的一些不同 其实很多，在下面涉及具体方面时可以看到。这里只是大致提一些。

Fortran基本用法小结档

Fortran基本用法小结 目录： 一、说明 二、概述 三、数据类型及基本输入输出 四、流程控制 五、循环 六、数组 七、函数 八、文件 一、说明 本文多数内容是我读彭国伦《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学习中的一些小心得

FORTRAN 心得 第一部分：一些小心得 1 Fortran不区分大小写 2 Fortran有5种基本数据类型，integer，real, character, logical, complex 3 fortran fixed format格式中的变量赋初值一般用DATA，因为它不能用:: 4 real(kind=8) a这种格式只使用于Fortran90，Fortran77中要使用real*8或real(8) 5 FORTRAN中FREE与FIXED两种格式do循环的区别： Fortran 95使用end do来结束循环。 ： Fortran 77使用DO循环要麻烦一点，它不使用END DO来结束循环，而是使用行号来结束循环，程序代码要在DO的后面写清楚这个循环到哪一行程序代码结束。 Fortran 77中，经常会使用CONTINUE这个命令来结束循环。因为CONTINUE这个命令没有实际的用途，刚好可以拿来做封装使用。 6 循环的流程控制： 循环中的cycle命令相当于c++里的continue命令，用于结束一次循环 循环中的exit命令好比c里面的break，用于结束循环 7 不使用do循环，单纯用GOTO语句也能设计循环程序，但不推荐使用GOTO语句 7 fortran有等价声明：即用equivalence(a,b),这样使得a,b使用同一块内存，这样可以节省内存，有时可精简代码。 、 8 fortran77中只能用单引号。（还有疑问，因为fixed format能用双引号） 9 逻辑运算符 == /= > >= < <= !Fortran90用法 .EQ. .NE. .GT. GE. .LT. .LE. !Fortran77用法 9 PAUSE,CONTINUE，STOP pause 暂停程序执行，按enter可继续执行 continue 貌似没什么用处，可用作封装程序的标志 % STOP 命令用来结束程序，要谨慎使用 10 数组元素之间要用逗号分隔，而不能像matlab一样既可以用逗号也可以用空格，fortran 的数组元素之间不能用空格。 11 数组的声明： Fortran 77中数组的声明，必须使用DIMENSION命令 Integer a; !先声明a是整型 Dimension a(10) !再声明a是大小为10的数组 Fortran 95中可以用简单的方法： `

Fortran基本用法小结

【以下文字转载自D_Atmosphere 讨论区】 【原文由superjyq 所发表】 我的Fortran基本用法小结 高级语言和算法组heavensky 目录： 一、说明 二、概述 三、数据类型及基本输入输出 四、流程控制 五、循环 六、数组 七、函数 八、文件 一、说明 本文多数内容是我读彭国伦《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编程的版面格式，所

Fortran6.5 使用流程

简单说明一次编译程序的过程： 1.建立一个新的Project（File-new-选择Project选项卡-Utility Project,给定project的名称）， 确定生成Project。 2.生成一个新的程序文件（File-new-选择Files选项卡-Fortran Free Format Source File，给 定文件名），或是插入一个已有的程序文件（选项Project/Add to Project/Files）. 3.用Build菜单中的Excute选项来编译并运行程序，或是只单击Build选项来只做编译， 不运行程序。 4.要写新的程序可以另外建立一个新的Project,或是直接跟换Project中的文件。千万不要 把两个独立的程序文件放入同一个Project中，否则导致编译过程出现错误。 5.下次修改程序时，可以直接使用File/Open Workspace来打开*.dsw的Project工程文件。 一、安装 Fortran6.5安装包中包括以下文件（夹） 本人电脑-x86 64位-win7 进入X86文件夹，运行，中间需要输入序列号，记事本打开 获取，进过中间一些文件位置的选择，到百分之九十多的时候，需要选择是否安装运行环境，选是，最后安装完成。 二、运行 开始---Compaq Visual Fortran 6---Developer Studio

如果提示打开失败，则选中Developer Studio，右键----管理员获得所有权---就可以了 三、打开 出现如下对话框： 熟悉一些tips: 第一条： If your program hangs应用程序瘫痪while running outside the debugger在调试器外运行程序, attach贴上、附加the debugger调试器to your program程序by choosing Start Debug调试、除错form the Build menu, and then choosing Attach to Process. 如果你的程序在调试器外运行，导致应用程序瘫痪，通过选择Build---Start Dubug---attach to program，讲调试器连接到你的程序。 第二条： Visual可视化Fortran【公式翻译程式语言（formula translator）】uses the file extension文件扩展名. F90 to indicate表示Free Form source code自由形式的源代码, and the extensions .FOR or .F to indicate Fixed Form source code. Visual Fortran采用拓展名为.F90的文件来表示自由形式的源代码，扩展名为.FOR或.F 的文件来表示固定形式的源代码。 第三条：

Fortran学习总结 - 我不是企鹅的日志 - 网易博客

Fortran学习总结- 我不是企鹅的日志- 网易博客 Fortran学习总结 目录： 一、说明 二、概述 三、数据类型及基本输入输出 四、流程控制 五、循环 六、数组 七、函数 八、文件 一、说明 本文多数内容是读彭国伦《Fortran 95 程序设计》的笔记。 二、概述 1、名词解释 Fortran=Formula Translator/Translation 一看就知道有什么特色了：可以把接近数学语言的文本翻译成机械语言。的确，从一开始，IBM设计的时候就是为了方便数值计算和科学数据处理。设计强大的数组操作就是为了实现这一目标。fortran奠定了高级语言发展的基础。现在

Fortran在科研和机械方面应用很广。 2、Fortran的主要版本及差别 按其发展历史，Fortran编译器的版本其实很多。现在在广泛使用的是Fortran 77和Fortran90。ortran 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"以外的任何字符。 Fortran 90：自由格式（free format），扩展名：.f90 （1）以"!"引导注释； （2）每行可132字符，行代码放在每行最前面； （3）以&续行，放在该行末或下行初。 以下都是讨论Fortran 90。 3、Fortran的一些特点，和C的一些不同 其实很多，在下面涉及具体方面时可以看到。这里只是大致

fortran帮助

1implicit none：就是强制，标识符先定义后使用fortran 里面有一项不好的功能，就是变量不经定义就可以使用，而且根据变量的开始字母自行给变量规定类型，加上implicit none后可以防止这个东西。 2parameter：定义常量。 3Data 语句意思是为后面的变量做初始化这样的赋值发生在所有代码执行以前。只赋值一次。 4Data a/2,3,1,1/：对a定义一个数组。 5call GRKT1 (Y,W,F,D)：GRKT1 (Y,W,F,D) 是个子程序，Y,W,F,D分别为子程序的参数，call为调用它。 6FORMAT：一般形式：Iw 或：Iw.m 其中：w 一个数据占的位数宽度（又称“字段宽度”），m 需要输出的最少数字位数。例如：WRITE (* , 100) I,J,K 100 FORMAT(1X,I5.3,I6.3,I4) 若I=1234，J=-24，K=24689 则输出 为: ?1234 ???-24 **** 7write(UNIT=eunit,FMT=format)：eunit为输出设备编号，format为输出格式控制符，具体符号请查阅手册。Write（*，*）：第一个星号表示默认输出设备，即显示器 第二个星号表示默认输出格式 8FORTRAN中大于等于用(.ge.)表示，例如X>=Y可以表示为（X.GE.Y）不等于：/=和.ne.都是可以的GE是大于等于号（>=），GT是大于号(>)，LE是小于等于号(<=),LT 是小于号(<) 在用fortran编程的时候如果要写到A

FORTRAN90用法总结

FORTRAN90用法总结 1、数据类型 整型 INTEGER 实型 REAL 复型 COMPLEX 字符型 CHARACTER 逻辑型 LOGICAL 2、特殊函数 1>定值函数 PARAMETER(变量列表) 或类型说明符，PARAMETER::变量列表 2>IMPLICIT 类型说明符（字母表）类型定义函数（默认I-N规则，取消IMPLICIT NONE） 3>** 乘方 4>STOP[标号]终止执行 5>PAUSE[标号]暂停程序 6>字符串长度函数 LEN（String）、 LEN_TRIM(String) 7>除去字符串尾部空格 TRIM(String) 8>字符串位置函数 INDEX(String1,String2) 9>字符串比较函数 LGE(String1,String2) LGT(String1,String2) LLE(String1,String2) LLT(String1,String2) 10>字符串空格首位调整 ADJUSTL(String)、ADJUSTR(String) 11>字符串、ASSII码互相转化函数 ①化为ASSII码 ICHAR(String)、IACHAR(String) ②化为字符串CHAR(I)、ACHAR(I) 12>.LT.(<) .LE.(<=) .EQ.(=) .NE.(/=) .GT.(>) .GE.(>=) 13>.AND.与 .OR.或 .NOT.非 .EQV.等于 .NEQV.不等 .XOR.异或 3、IF函数 1> 单支IF IF(逻辑表达式) THEN 块语句 END IF 2> 双支IF IF(逻辑表达式) THEN 块语句1 ELSE 块语句2 END IF 3>多支IF IF(逻辑表达式1) THEN 块语句1 ELSE IF(逻辑表达式2) THEN

Fortran基本用法小结

[转载] Fortran 基本用法小结 上一篇[1] / 下一篇[2] 2008-09-08 10:24:14 / 个人分类：专业资料[3] [转载] Fortran基本用法小结 [转载]F o r t r a n基本用法小结z F r i J u l2721:28:582007 【以下文字转载自D_A t m o s p h e r e讨论区】 【原文由s u p e r j y q所发表】 我的F o r t r a n基本用法小结 高级语言和算法组h e a v e n s k y 目录： 一、说明 二、概述 三、数据类型及基本输入输出 四、流程控制 五、循环 六、数组 七、函数 八、文件 一、说明 本文多数内容是我读彭国伦《F o r t r a n95程序设计》的笔记。只读到第九章，主要是3~9 章，都是 些最基本的用法（原书共16章）。这里主要摘录了我看书过程中总结的一些F o r t r a n和C不

同的地 方，主要是语法方面。希望这份笔记能够给学过C但没有接触过F o r t r a n的同学带去一些帮 助。要想 弄得更清楚些，推荐看一下原书，觉得作者真的写得很好，很清楚；如果有C语言的基础， 看完前九 章应该很快的，花一两天就行了。觉得如果耐心看完本文，基本功能应该也可以顺利用起来了。 另外，由于我之前没有用过F o r t r a n，这次为了赶文档看书又看得很粗浅，大多数东西看过 之后都没 来得及仔细想，只是按着作者的意思去理解。所以这份笔记还处于纸上谈兵的层次。如果 有不妥的 地方，希望大家指正。谢谢！ 文中蓝色的部分是程序代码，!后面的内容为注释。 二、概述 1、名词解释 F o r t r a n=F o r m u l a T r a n s l a t o r/T r a n s l a t i o n 一看就知道有什么特色了：可以把接近数学语言的文本翻译成机械语言。的确，从一开始 ，I B M设计 它的时候就是为了方便数值计算和科学数据处理。设计强大的数组操作就是为了实现这一 目标。 F o r t r a n奠定了高级语言发展的基础。现在F o r t r a n在科研和机械方面应用很广。

Fortran用法小结

目录： 一、说明 二、概述 三、数据类型及基本输入输出 四、流程控制 五、循环 六、数组 七、函数 八、文件 一、说明 本文多数内容是我读彭国伦《Fortran 95 程序设计》的笔记。只读到第九章，主要是3~9 章，都是最基本的用法（原书共16章）。这里主要摘录了我看书过程中总结的一些Fortran和C不 同的地方，主要是语法方面。希望这份笔记能够给学过C但没有接触过Fortran的同学带去一些帮 助。要想得更清楚些，推荐看一下原书，觉得作者真的写得很好，很清楚；如果有C语言的基础， 看完前九应该很快的，花一两天就行了。觉得如果耐心看完本文，基本功能应该也可以顺利用起 来了。外，由于我之前没有用过Fortran，这次为了赶文档看书又看得很粗浅，大多数东西看过

之后都没得及仔细想，只是按着作者的意思去理解。所以这份笔记还处于纸上谈兵的层次。如果 有不妥的方，希望大家指正。谢谢！ 文中蓝色的部分是程序代码，!后面的内容为注释。 二、概述 1、名词解释 Fortran=For mula Tran slator/Translation 一看就知道有什么特色了：可以把接近数学语言的文本翻译成机械语言。的确，从一开始 ，IBM设计的时候就是为了方便数值计算和科学数据处理。设计强大的数组操作就是为了实现这一 目标。ortran奠定了高级语言发展的基础。现在Fortran在科研和机械方面应用很广。 2、Fortran的主要版本及差别 按其发展历史，Fortran编译器的版本其实很多。现在在广泛使用的是Fortran 77和Fortr an90。ortran 90在Fortran 77基础上添加了不少使用的功能，并且改良了77编程的版面格式， 所以编程时推荐使用90。鉴于很多现成的程序只有77版本，有必要知道77的一些基本常识，至少保 证能够看77程序。以下是77和90的一些格式上的区别。

给fortran新手的一些实用建议

Fortran导引 1、Fortran学习的一些建议 相信大家都对C语言有一定的了解，其实Fortran跟C相差不是很多。 我把自己认为比较合理快速学习Fortran的方法说下。 学习Fortran，会遇到Fortran77&Fortran90等等，两者差别不大，建议学习Fortran90或更高，更加自由些（仅对一般用而言，其他优势可能体现不出来），对自己以后学习他的程序包也会有好处。 大家一般只是为了编程，为了计算而学Fortran，而不是为了学习Fortran而学Fortran，所以我的建议是学习Fortran不要像学C那样拿一本很详细的教材从头至尾学下来，一个大家都有不错的C语言基础，而且也没有太多的精力去专门研究这些，倒不如看些简易的教材（我会附上），掌握基本语句之后直接从看最简单的程序开始。这样，很快就会体会到Fortran的格式，可以开始自己写程序了。学习的顺序我建议如下： 1、 编一些仅含输入输出的程序，然后可以尝试把输入输出同文件结合起来（从文件里读数据、写数据）； 2、 然后可以学条件判断、循环语句，通过几个实例也可以很快掌握； 3、 再往后就是写子程序，就是程序的调用，相信那个时候，看了我的第一个例子（PROGRAM A）就应该能写出简单的含函数调用的程序，到了这里，基本上可以算告一段落，可以进行结构上复杂的程序的编写； 4、 最后，可以学一下多个程序的编译甚至是多种语言程序的混编（如既有C又有Fortran的多个程序一起编译）。多个程序的编译我不并不熟悉，就留给siriusbobo同志来解说吧:-) 在编程中遇到困难然后再去查找资料和用法不失为一种好的方法，不必刻意去求学全。当然，有足够时间和精力的同学强烈建议好好看教材，不必急于求成，有一个好的基础总是一件很好的事。Fortran相比C的优势的话在于它丰富的资源，C的优势可能是更加简洁，编译效率更高。但对于我的平时使用来说，这两者的优势、劣势都体现不出来，自己的感觉是Fortran更接近平时的科学语言，比较严谨些，更容易读懂不出错，比较符合习惯，变量、函数的声明上也比C更方便灵活，以外函数的使用为例： ****************************************************************************** PROGRAM A real z read *,z call f(z) y=z print *,y end subroutine f(x) x=x**2 return end ****************************************************************************** 只需要加一个"subroutine"程序段，主函数即可用"call"调用，当然也可以写多个子程序，其中一个子程序也可以通过"call"来调用其他子程序。就一般学习而言，除了子程序的编写，另外一个用得比较多的是文件的读写操作，读用"read",写用"write"，如下： ****************************************************************************** PROGRAM B real x open (1,file='in.dat',status='unknown') open (2,file='out.dat',status='unknown')

FORTRAN 知识点总结

FORTRAN 第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) 产生一个种别值，它表示某一精度和范围。N 指十进制有效位数，m 指明值范围内以10为底的幂次。 种别表示方法：数值型常数、逻辑型常数的种别用后缀法表示，字符型用前缀法。 属性说明：PARAMETER 常量名属性，如INTEGER,PARAMETER::N=5（N 值不可更改）；DIMENSION 数组属性，如INTEGER DIMENDION （1:10）：：X 。 算术表达式：**乘方。-*/**或或求函数值括号+→→→→ ABS 绝对值；MAX 最大值；MIN 最小值；SQRT 平方根；MOD 求余数。 COS,SIN,TAN,ATAN,LOG 自然对数,LOG10 常用对数，EXP 指数，SIGN 符号。 输入：READ(部件号，格式说明)输入 如READ(5，'(I7)')X,Y I7表示每行输入一个整数，每个数占7个字符。表控格式 READ *,输入表；READ(*，*)输入表。