《fortran语言语法.docx》由会员分享，可在线阅读，更多相关《fortran语言语法.docx（13页珍藏版）》请在三一办公上搜索。
1、fortran语言语法FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中发挥着极其重要的作用。经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :X2时,等于X1-X2,当X1X2时,等于0 双精度乘(X1,X2均为实数) 返回字符串X的虚部 返回字符串X的共轭 返回X1,X2,X3,.,XN中最大值 返回X1,X2,X3,.,XN中最小值 返回X的平方根(X0) 返回E的X次
2、方 返回以E为底的X的对数即自然对数(X0) 返回以10为底的X的对数即常用对数(X0) 返回弧度值X的正弦值 返回弧度值X的余弦值 返回弧度值X的正切值 返回弧度值X的反正弦值 ACOS(X) ATAN(X) SINH(X) COSH(X) TANH(X) LEN(X) INDEX(X1,X2) LGE(X1,X2) LGT(X1,X2) LLE(X1,X2) LLT(X1,X2) 返回弧度值X的反余弦值 返回弧度值X的反正切值 返回X的双曲正弦值 返回X的双曲余弦值 返回X的双曲正切值 返回字符串X的长度 返回字符串X2在字符串X1中的位置,不包含时返回0 如果字符串X1X2则等于.TRU
3、E.,否则等于.FALSE. 如果字符串X1X2则等于.TRUE.,否则等于.FALSE. 如果字符串X1X2则等于.TRUE.,否则等于.FALSE. 如果字符串X1X2则等于.TRUE.,否则等于.FALSE. 9 FORTRAN77函数与子程序 9.1 FORTRAN77语句函数 当函数十分简单，用一条语句足以定义时才用； 应该放在所有可执行语句之前和有关类型说明语句之后，是非执行语句； 只在其所在程序单位中有意义； 语句函数中的虚参就是变量名，不能是常量、表达式或数组元素等； 语句函数定义语句中的表达式可以包含已经定义过的语句函数、外部函数或内部函数。 语句函数通过表达式得一个函数值，
4、此数值类型必须与函数名的类型一致。语句函数的使用同内部函数相同。 语句函数例子： YMJ(R)=3.14159265*R*R ZMJ=YMJ(5) 9.2 FORTRAN77自定义函数 定义格式： 类型说明 FUNCTION 函数名(虚拟参数1,虚拟参数2,虚拟参数N) 程序块(可以含有RETURN) 函数名=函数值 END 调用格式与内部函数相同。 9.3 FORTRAN77子程序 定义格式： SUBROUTINE 子程序名(虚拟参数1,虚拟参数2,虚拟参数N) 程序块(可以含有RETURN) END 调用格式： CALL 子程序名(实在参数1,实在参数2,实在参数N) 数据块子程序：只是用
5、来给有名公用区中的变量赋初值，格式如下： BLOCK DATA 子程序名 DATA语句块 END 附录一、FORTRAN77控制输入输出格式 1.在打印输出时，每一行第1个字符不显示，用来控制纵向走纸或显示行。 第1个字符 空格 0 1 + 其它 作用 正常回车换行 回车并跳过1行 换页 只回车不换行 通常是回车换行 2.输入小数时，自带小数点优先。 3.输出字段宽度不够时用*号填充。 附录二、FORTRAN77控制输入输出格式语句 1 2 3 IW或IW.M整数型 实数型 W为字段宽度,M为最少数字位数FW.D D为小数位数EW.D或EW.DEE指数实数型 E为指数位数，通常为3或44 5
6、6 7 8 9 GW.M DW.D LW 自动实数型 双精度型 逻辑型 字符型 A或AW不指定W时自动 两个表示一个字符 字符串插入字符串 插入长度为N的字符串 插入N个空格 NH字符串10 NX 11 RIW,R(NX,IW.M) 12 / 13 ,$ R个IW,R个(NX,IW.M)R为重复系数换行 禁止换行 附录三、FORTRAN77相关资源 FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中发挥着极其重要的作用。经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有
7、特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN : FORTRAN教程 http:/www.jinr.ru/programs/cpc_ind8/ind_cd8.htm http:/www.csit.fsu.edu/burkardt/f_src/f_src.html http:/www.devlib.org/Programming/Languages/Fortran/index.php 编程爱好者 下载Fortran 90 Handbook(Complete ANSI / ISO Reference) Compaq Visual Fortran Pr
8、ogrammers Guide Fortran 90 and Computational Science Fortran 90 chinese 免费的F90数值计算程序库 WHIGG F90 LIB 本软件提供F77和F90语言的子程序库和函数库，主要应用在地球科学领域。此软件只提供给个人使用，主要面向科学计算，可以复制传播安装程序，但要保证内容的完整性，不得进行任何修改，不得删节任何内容。不经本作者同意，不可用于任何商业用途。本软件只供学习使用，不提供任何担保，如出现任何问题，请自己承担风险。 免费FORTRAN编译器下载Free Compiler Intel fortran compiler ftp:/ Salford Fortran95, Fortran77 Compiler http:/www.salfordsoftware.co.uk/compilers/support/downloads.html
