《fortran语言语法精品资料.doc》由会员分享，可在线阅读，更多相关《fortran语言语法精品资料.doc（33页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中（如航空航天、地质勘探、天气预报和建筑工程等领域）发挥着极其重要的作用。经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :X2时,等于X1-X2,当X1X2时,等于0DPROD(X1,X2)双精度乘(X1,X2均为实数)AIMAG(X)返回字符串X的虚部CONJG(X)返回字符串X的共轭MAX(X1,X2,X3,.,XN)返回
2、X1,X2,X3,.,XN中最大值MIN(X1,X2,X3,.,XN)返回X1,X2,X3,.,XN中最小值SQRT(X)返回X的平方根(X0)EXP(X)返回E的X次方LOG(X)返回以E为底的X的对数即自然对数(X0)LOG10(X)返回以10为底的X的对数即常用对数(X0)SIN(X)返回弧度值X的正弦值COS(X)返回弧度值X的余弦值TAN(X)返回弧度值X的正切值ASIN(X)返回弧度值X的反正弦值ACOS(X)返回弧度值X的反余弦值ATAN(X)返回弧度值X的反正切值SINH(X)返回X的双曲正弦值COSH(X)返回X的双曲余弦值TANH(X)返回X的双曲正切值LEN(X)返回字符
3、串X的长度INDEX(X1,X2)返回字符串X2在字符串X1中的位置,不包含时返回0LGE(X1,X2)如果字符串X1X2则等于.TRUE.,否则等于.FALSE.LGT(X1,X2)如果字符串X1X2则等于.TRUE.,否则等于.FALSE.LLE(X1,X2)如果字符串X1X2则等于.TRUE.,否则等于.FALSE.LLT(X1,X2)如果字符串X1X2则等于.TRUE.,否则等于.FALSE.9 FORTRAN77函数与子程序9.1 FORTRAN77语句函数 当函数十分简单，用一条语句足以定义时（允许使用继续行）才用； 应该放在所有可执行语句之前和有关类型说明语句之后，是非执行语句；
4、 只在其所在程序单位中有意义； 语句函数中的虚参就是变量名，不能是常量、表达式或数组元素等； 语句函数定义语句中的表达式可以包含已经定义过的语句函数、外部函数或内部函数。 语句函数通过表达式得一个函数值，此数值类型必须与函数名的类型一致。语句函数的使用同内部函数相同。语句函数例子：YMJ(R)=3.14159265*R*RZMJ=YMJ(5)9.2 FORTRAN77自定义函数定义格式：类型说明 FUNCTION 函数名(虚拟参数1,虚拟参数2,虚拟参数N)程序块(可以含有RETURN)函数名=函数值END调用格式与内部函数相同。9.3 FORTRAN77子程序定义格式：SUBROUTINE
5、子程序名(虚拟参数1,虚拟参数2,虚拟参数N)程序块(可以含有RETURN)END调用格式：CALL 子程序名(实在参数1,实在参数2,实在参数N)数据块子程序：只是用来给有名公用区中的变量赋初值，格式如下：BLOCK DATA 子程序名DATA语句块END附录一、FORTRAN77控制输入输出格式1.在打印输出时，每一行第1个字符不显示，用来控制纵向走纸或显示行。第1个字符作用空格正常回车换行0回车并跳过1行1换页+只回车不换行其它通常是回车换行2.输入小数时，自带小数点优先。3.输出字段宽度不够时用*号填充。附录二、FORTRAN77控制输入输出格式语句1IW或IW.M整数型W为字段宽度,
6、M为最少数字位数2FW.D实数型D为小数位数3EW.D或EW.DEE指数实数型E为指数位数，通常为3或44GW.M自动实数型5DW.D双精度型6LW逻辑型7A或AW字符型不指定W时自动8字符串插入字符串两个表示一个字符9NH字符串插入长度为N的字符串10NX插入N个空格11RIW,R(NX,IW.M)R个IW,R个(NX,IW.M)R为重复系数12/换行13,$禁止换行附录三、FORTRAN77相关资源FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中（如航空航天、地质勘探、天气预报和建筑工程等领域）发挥着极其重要的作用。经过40多年的发展，伴随着FORTR
7、AN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :FORTRAN教程（幻灯片）http:/www.jinr.ru/programs/cpc_ind8/ind_cd8.htmhttp:/www.csit.fsu.edu/burkardt/f_src/f_src.htmlhttp:/www.devlib.org/Programming/Languages/Fortran/index.php编程爱好者下载Fortran 90 Handbook(Comp
8、lete ANSI / ISO Reference) Compaq Visual Fortran Programmers GuideFortran 90 and Computational ScienceFortran 90 chinese免费的F90数值计算程序库 WHIGG F90 LIB本软件提供F77和F90语言的子程序库和函数库，主要应用在地球科学领域。此软件只提供给个人使用，主要面向科学计算，可以复制传播安装程序，但要保证内容的完整性，不得进行任何修改，不得删节任何内容。不经本作者同意，不可用于任何商业用途。本软件只供学习使用，不提供任何担保，如出现任何问题，请自己承担风险。免费F
9、ORTRAN编译器下载Free CompilerIntel fortran compilerftp:/Salford Fortran95, Fortran77 Compilerhttp:/www.salfordsoftware.co.uk/compilers/support/downloads.html附录资料:不需要的可以自行删除bat文件的基本应用bat是dos下的批处理文件 .cmd是nt内核命令行环境的另一种批处理文件 从更广义的角度来看，unix的shell脚本以及其它操作系统甚至应用程序中由外壳进行解释执行的文本，都具有与批处理文件十分相似的作用，而且同样是由专用解释器以行为单位解
10、释执行，这种文本形式更通用的称谓是脚本语言。所以从某个程度分析，batch, unix shell, awk, basic, perl 等脚本语言都是一样的，只不过应用的范围和解释的平台各有不同而已。甚至有些应用程序仍然沿用批处理这一称呼，而其内容和扩展名与dos的批处理却又完全不同。 = 首先批处理文件是一个文本文件，这个文件的每一行都是一条DOS命令（大部分时候就好象我们在DOS提示符下执行的命令行一样），你可以使用DOS下的Edit或者Windows的记事本(notepad)等任何文本文件编辑工具创建和修改批处理文件。 = 注 = 批处理文件中完全可以使用非dos命令，甚至可以使用不具有
11、可执行特性的普通数据性文件，这缘于windows系统这个新型解释平台的涉入，使得批处理的应用越来越边缘化。所以我们讨论的批处理应该限定在dos环境或者命令行环境中，否则很多观念和设定都需要做比较大的变动。 = 其次，批处理文件是一种简单的程序，可以通过条件语句(if)和流程控制语句(goto)来控制命令运行的流程，在批处理中也可以使用循环语句(for)来循环执行一条命令。当然，批处理文件的编程能力与C语言等编程语句比起来是十分有限的，也是十分不规范的。批处理的程序语句就是一条条的DOS命令（包括内部命令和外部命令），而批处理的能力主要取决于你所使用的命令。 = 注 = 批处理文件(batch
12、file)也可以称之为批处理程序(batch program)，这一点与编译型语言有所不同，就c语言来说，扩展名为c或者cpp的文件可以称之为c语言文件或者c语言源代码，但只有编译连接后的exe文件才可以称之为c语言程序。因为批处理文件本身既具有文本的可读性，又具有程序的可执行性，这些称谓的界限是比较模糊的。 = 第三，每个编写好的批处理文件都相当于一个DOS的外部命令，你可以把它所在的目录放到你的DOS搜索路径(path)中来使得它可以在任意位置运行。一个良好的习惯是在硬盘上建立一个bat或者batch目录（例如C:BATCH），然后将所有你编写的批处理文件放到该目录中，这样只要在path中
13、设置上c:batch，你就可以在任意位置运行所有你编写的批处理程序。 = 注 = 纯以dos系统而言，可执行程序大约可以细分为五类，依照执行优先级由高到低排列分别是：DOSKEY宏命令（预先驻留内存），COMMAND.COM中的内部命令（根据内存的环境随时进驻内存），以com为扩展名的可执行程序（由 直接载入内存），以exe位扩展名的可执行程序（由 重定位后载入内存），以bat位扩展名的批处理程序（由 解释分析，根据其内容按优先级顺序调用第2，3，4，5种可执行程序，分析一行，执行一行，文件本身不载入内存） = 第四，在DOS和Win9x/Me系统下，C:盘根目录下的AUTOEXEC.BAT批
14、处理文件是自动运行批处理文件，每次系统启动时会自动运行该文件，你可以将系统每次启动时都要运行的命令放入该文件中，例如设置搜索路径，调入鼠标驱动和磁盘缓存，设置系统环境变量等。下面是一个运行于Windows 98下的autoexec.bat的示例： ECHO OFF PATH C:WINDOWS;C:WINDOWSCOMMAND;C:UCDOS;C:DOSTools; C:SYSTOOLS;C:WINTOOLS;C:BATCH LH SMARTDRV.EXE /X LH DOSKEY.COM /insert LH CTMOUSE.EXE SET TEMP=D:TEMP SET TMP=D:TEM
15、P = 注 = AUTOEXEC.BAT为DOS系统的自动运行批处理文件，由COMMAND.COM启动时解释执行； 而在Win9x环境中，不仅增加支持了 DOSSTART.BAT, WINSTART.BAT 等许多其它自动运行的批处理文件，对AUTOEXEC.BAT 也增加了 .DOS .W40 .BAK .OLD .PWS 等许多变体以适应复杂的环境和多变的需求。 = willsort 编注 = 以下关于命令的分类，有很多值得推敲的地方。常用命令中的本不是命令，而dir、copy等也很常用的命令却没有列入, 而特殊命令中所有命令对我来说都是常用命令。建议将批处理所引用的命令分为内部命令、外部
16、命令、第三方程序三类。而内部命令和外部命令中别有一类是专用于或常用于批处理中的命令可称之为批处理命令。 以下摘录MS-DOS 6.22 帮助文档中关于批处理命令的文字，当然，其中有些概念和定义已经有些落后了。 批处理命令 批处理文件或批处理程序是一个包含若干MS-DOS命令的正文文件，扩展名为.BAT。当在命令提示符下敲入批处理程序的名称时，MS-DOS成组执行此批处理程序中的命令。 任何在命令提示符下可使用的命令都可用在批处理程序中。此外，下面MS-DOS命令是专门在批处理程序中使用的。 = 常用命令 echo、call、pause、rem(小技巧：用:代替rem)是批处理文件最常用的几个命
17、令，我们就从他们开始学起。 = 注 = 首先, 不是一个命令, 而是DOS 批处理的一个特殊标记符, 仅用于屏蔽命令行回显. 下面是DOS命令行或批处理中可能会见到的一些特殊标记符: CR(0D) 命令行结束符 Escape(1B) ANSI转义字符引导符 Space(20) 常用的参数界定符 Tab(09) ; = 不常用的参数界定符 + COPY命令文件连接符 * ? 文件通配符 字符串界定符 | 命令管道符 文件重定向符 命令行回显屏蔽符 / 参数开关引导符 : 批处理标签引导符 % 批处理变量引导符 其次, : 确实可以起到rem 的注释作用, 而且更简洁有效; 但有两点需要注意: 第
18、一, 除了 : 之外, 任何以 :开头的字符行, 在批处理中都被视作标号, 而直接忽略其后的所有内容, 只是为了与正常的标号相区别, 建议使用 goto 所无法识别的标号, 即在 :后紧跟一个非字母数字的一个特殊符号. 第二, 与rem 不同的是, :后的字符行在执行时不会回显, 无论是否用echo on打开命令行回显状态, 因为命令解释器不认为他是一个有效的命令行, 就此点来看, rem 在某些场合下将比 : 更为适用; 另外, rem 可以用于 config.sys 文件中. = echo 表示显示此命令后的字符 echo off 表示在此语句后所有运行的命令都不显示命令行本身 与echo
19、 off相象，但它是加在每个命令行的最前面，表示运行时不显示这一行的命令行（只能影响当前行）。 call 调用另一个批处理文件（如果不用call而直接调用别的批处理文件，那么执行完那个批处理文件后将无法返回当前文件并执行当前文件的后续命令）。 pause 运行此句会暂停批处理的执行并在屏幕上显示Press any key to continue.的提示，等待用户按任意键后继续 rem 表示此命令后的字符为解释行（注释），不执行，只是给自己今后参考用的（相当于程序中的注释）。 = 注 = 此处的描述较为混乱, 不如直接引用个命令的命令行帮助更为条理 - ECHO 当程序运行时，显示或隐藏批处理程
20、序中的正文。也可用于允许或禁止命令的回显。 在运行批处理程序时，MS-DOS一般在屏幕上显示（回显）批处理程序中的命令。 使用ECHO命令可关闭此功能。 语法 ECHO ON|OFF 若要用echo命令显示一条命令，可用下述语法： echo message 参数 ON|OFF 指定是否允许命令的回显。若要显示当前的ECHO的设置，可使用不带参数的ECHO 命令。 message 指定让MS-DOS在屏幕上显示的正文。 - CALL 从一个批处理程序中调用另一个批处理程序，而不会引起第一个批处理的中止。 语法 CALL drive:pathfilename batch-parameters 参数
21、 drive:pathfilename 指定要调用的批处理程序的名字及其存放处。文件名必须用.BAT作扩展名。 batch-parameters 指定批处理程序所需的命令行信息。 - PAUSE 暂停批处理程序的执行并显示一条消息，提示用户按任意键继续执行。只能在批处 理程序中使用该命令。 语法 PAUSE REM 在批处理文件或CONFIG.SYS中加入注解。也可用REM命令来屏蔽命令（在CONFIG.SYS 中也可以用分号 ; 代替REM命令，但在批处理文件中则不能替代）。 语法 REM string 参数 string 指定要屏蔽的命令或要包含的注解。 = 例1：用edit编辑a.bat
22、文件，输入下列内容后存盘为c:a.bat，执行该批处理文件后可实现：将根目录中所有文件写入 a.txt中，启动UCDOS，进入WPS等功能。 批处理文件的内容为: 命令注释： echo off 不显示后续命令行及当前命令行 dir c:*.* a.txt 将c盘文件列表写入a.txt call c:ucdosucdos.bat 调用ucdos echo 你好 显示你好 pause 暂停,等待按键继续 rem 准备运行wps 注释：准备运行wps cd ucdos 进入ucdos目录 wps 运行wps 批处理文件的参数 批处理文件还可以像C语言的函数一样使用参数（相当于DOS命令的命令行参数）
23、，这需要用到一个参数表示符%。 %1-9表示参数，参数是指在运行批处理文件时在文件名后加的以空格（或者Tab）分隔的字符串。变量可以从%0到%9，%0表示批处理命令本身，其它参数字符串用%1到%9顺序表示。 例2：C:根目录下有一批处理文件名为f.bat，内容为： echo off format %1 如果执行C:f a: 那么在执行f.bat时，%1就表示a:，这样format %1就相当于format a:，于是上面的命令运行时实际执行的是format a: 例3：C:根目录下一批处理文件名为t.bat，内容为: echo off type %1 type %2 那么运行C:t a.txt
24、 b.txt %1 : 表示a.txt %2 : 表示b.txt 于是上面的命令将顺序地显示a.txt和b.txt文件的内容。 = 注 = 参数在批处理中也作为变量处理, 所以同样使用百分号作为引导符, 其后跟0-9中的一个数字构成参数引用符. 引用符和参数之间 (例如上文中的 %1 与 a: ) 的关系类似于变量指针与变量值的关系. 当我们要引用第十一个或更多个参数时, 就必须移动DOS 的参数起始指针. shift 命令正充当了这个移动指针的角色, 它将参数的起始指针移动到下一个参数, 类似C 语言中的指针操作. 图示如下: 初始状态, cmd 为命令名, 可以用 %0 引用 cmd ar
25、g1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 经过1次shift后, cmd 将无法被引用 cmd arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 经过2次shift后, arg1也被废弃, %9指向为空, 没有引用意义 cmd arg1 arg2 arg3 arg4 arg5 arg6 ar
26、g7 arg8 arg9 arg10 | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 遗憾的是, win9x 和DOS下均不支持 shift 的逆操作. 只有在 nt 内核命令行环境下, shift 才支持 /n 参数, 可以以第一参数为基准返复移动起始指针. = 特殊命令 if goto choice for是批处理文件中比较高级的命令，如果这几个你用得很熟练，你就是批处理文件的专家啦。 一、if 是条件语句，用来判断是否符合规定的条件，从而决定执行不同的命令。 有三种格式: 1、if not 参数 = 字符串 待执行的命令 参数如果等于(not表示
27、不等，下同)指定的字符串，则条件成立，运行命令，否则运行下一句。 例：if %1=a format a: = if 的命令行帮助中关于此点的描述为: IF NOT string1=string2 command 在此有以下几点需要注意: 1. 包含字符串的双引号不是语法所必须的, 而只是习惯上使用的一种防空字符 2. string1 未必是参数, 它也可以是环境变量, 循环变量以及其他字符串常量或变量 3. command 不是语法所必须的, string2 后跟一个空格就可以构成一个有效的命令行 = 2、if not exist 路径文件名 待执行的命令 如果有指定的文件，则条件成立，运行命
28、令，否则运行下一句。 如: if exist c:config.sys type c:config.sys 表示如果存在c:config.sys文件，则显示它的内容。 * 注 * 也可以使用以下的用法: if exist command device 是指DOS系统中已加载的设备, 在win98下通常有: AUX, PRN, CON, NUL COM1, COM2, COM3, COM4 LPT1, LPT2, LPT3, LPT4 XMSXXXX0, EMMXXXX0 A: B: C: ., CLOCK$, CONFIG$, DblBuff$, IFS$HLP$ 具体的内容会因硬软件环境的不
29、同而略有差异, 使用这些设备名称时, 需要保证以下三点: 1. 该设备确实存在(由软件虚拟的设备除外) 2. 该设备驱动程序已加载(aux, prn等标准设备由系统缺省定义) 3. 该设备已准备好(主要是指a: b: ., com1., lpt1.等) 可通过命令 mem/d | find device /i 来检阅你的系统中所加载的设备 另外, 在DOS系统中, 设备也被认为是一种特殊的文件, 而文件也可以称作字符设备; 因为设备(device)与文件都是使用句柄(handle)来管理的, 句柄就是名字, 类似于文件名, 只不过句柄不是应用于磁盘管理, 而是应用于内存管理而已, 所谓设备加载也即指在内存中为其分配可引用的句柄. =