当前位置:文档之家› fortran语法手册

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 程序名称字符串某行的第1个字符至第5个字符位为标号区,只能书写语句标号或空着或注释内容;某行的第1个字符为C或*号时,则表示该行为注释行,其后面的内容为注释内容;某行的第6个字符位为非空格和非0字符时,则该行为上一行的续行,一个语句最多可有19个续行;某行的第7至72字符位为语句区,语句区内可以任加空格以求美观;某行的第73至80字符位为注释区,80字符位以后不能有内容。

4 FORTRAN77关系运算符.GT. 大于.GE. 天于或等于.LT. 小于.LE. 小于或等于.EQ. 等于.NE. 不等于 .AND. 逻辑与.OR. 逻辑或.NOT. 逻辑非.EQV. 逻辑等.NEQV. 逻辑不等运算符优先级由高到低顺序为:()→**→*或/→+或-→.GT.或.GE.或.LT.或.LE.或.EQ.或.NE.→.NOT.→.AND.→.OR.→.EQV.或.NEQV5 FORTRAN77语句6 FORTRAN77选择判断语句6.1 逻辑IF语句IF (逻辑表达式) 程序语句6.2 无ELSE块IF (逻辑表达式) THEN程序块END IF6.3 标准选择IF (逻辑表达式) THEN程序块1ELSE程序块2END IF6.4 多重选择块IF (逻辑表达式1) THEN程序块1ELSE IF (逻辑表达式2) THEN程序块2ELSE IF (逻辑表达式2) THEN程序块2......ELSE IF (逻辑表达式N) THEN程序块NELSE程序块N+1END IF7 FORTRAN77循环语句7.1 GO TO语句标号程序行程序块GO TO 标号7.2 DO语句DO 标号,记数变量=起始值,终止值,步距”语句,如DO 标号,N=1,100,1程序块标号CONTINUE7.3 DO WHILE 语句DO 标号,WHILE(PI.EQ.3.14159)程序块标号CONTINUE7.4 DO UNTIL语句DO 标号,UNTIL (逻辑表达式)”语句,如DO 标号,UNTIL(PI.GT.3.14159)程序块标号CONTINUE8 FORTRAN77内部函数9 FORTRAN77函数与子程序9.1 FORTRAN77语句函数当函数十分简单,用一条语句足以定义时(允许使用继续行)才用;应该放在所有可执行语句之前和有关类型说明语句之后,是非执行语句;只在其所在程序单位中有意义;语句函数中的虚参就是变量名,不能是常量、表达式或数组元素等;语句函数定义语句中的表达式可以包含已经定义过的语句函数、外部函数或内部函数。

语句函数通过表达式得一个函数值,此数值类型必须与函数名的类型一致。

语句函数的使用同内部函数相同。

语句函数例子:YMJ(R)=3.14159265*R*RZMJ=YMJ(5)9.2 FORTRAN77自定义函数定义格式:类型说明FUNCTION 函数名(虚拟参数1,虚拟参数2,……,虚拟参数N)程序块(可以含有RETURN)函数名=函数值END调用格式与内部函数相同。

9.3 FORTRAN77子程序定义格式:SUBROUTINE 子程序名(虚拟参数1,虚拟参数2,……,虚拟参数N) 程序块(可以含有RETURN)END调用格式:CALL 子程序名(实在参数1,实在参数2,……,实在参数N)数据块子程序:只是用来给有名公用区中的变量赋初值,格式如下:BLOCK DATA 子程序名DATA语句块END附录一、FORTRAN77控制输入输出格式1.2.3.输出字段宽度不够时用*号填充。

附录二、FORTRAN77控制输入输出格式语句目录:一、说明二、概述三、数据类型及基本输入输出四、流程控制五、循环六、数组七、函数八、文件一、说明本文多数内容是我读彭国伦《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的一些不同其实很多,在下面涉及具体方面时可以看到。

这里只是大致提一些。

(1)不分大小写(2)每句末尾不必要写分号(3)程序代码命令间的空格没有意义(4)不像C,Fortran不使用{ } (5)数据类型多出了复数和逻辑判断类型。

比如复数类型complex :: a !声明复数的方法。

复数显然方便了科学计算,满足了工程方面需求a=(1.0,2.0) ! a=1+i (6)多出了乘幂运算(**)。

乘幂除了整数还可以是实数形式。

如开方,开立方a=4.0**0.5,a=8.0**(1.0/3.0)。

(7)数组有一些整体操作的功能;可以方便的对部分元素进行操作(8)有些情况下可以声明大小待定的数组,很实用的功能4、Fortran 的基本程序结构先看一看所谓的"Hello Fortran"程序。

program main !程序开始,main是program的名字,完全自定义write(*,*) "Hello" !主程序stop !终止程序end [program[main]] !end用于封装代码,表示代码编写完毕。

[ ]中的内容可省略,下同。

再看一段实用一些的程序,好有点感性认识。

程序用于计算圆柱的表面积,要求输入底面半径和。

其中展示了Fortran的一些特色用法。

程序摘自维基。

其实是一个叫的网上引的维基的网页。

推荐去看看!能查到不少有意思的东西。

program cylinder !给主函数起个名字! Calculate the area of a cylinder.! Declare variables and constants.! constants=pi! variables=radius squared and heightimplicit none ! Require all variables to be explicitly declared !这个一般都是要写上的。

下面会进一步说明。

integer :: ierrcharacter :: ynreal :: radius, height, areareal, parameter :: pi = 3.1415926536 !这是常量的声明方法interactive_loop: do !do循环,Fortran 中的循环可以加标签,如d前面的 !interactive_loop就是标签! Prompt the user for radius and height and read them.write (*,*) 'Enter radius and height.' !屏幕输出read (*,*,iostat=ierr) radius,height !键盘输入。

相关主题