fortran语言语法

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)返回X1

2、,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)返回字符串X

3、的长度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子程序定义格式：SUBROUT

5、INE 子程序名(虚拟参数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多年的开展，伴随着FOR

7、TRAN语言屡次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :FORTRAN教程幻灯片 :/ cnvf / :/bbs.matwav /user/download/305189/16-Fortran.ppt :/ jinr.ru/programs/cpc_ind8/ind_cd8.htm :/ :/ /burkardt/f_src/f_src.html :/ /Programming/Languages/For

8、tran/index.php :/ cnvf / :/ ask /编程爱好者 :/ programfan /下载Fortran 90 Handbook(Complete ANSI / ISO Reference) :/Compaq Visual Fortran Programmers Guide :/Fortran 90 and Computational Science :/Fortran 90 chinese :/免费的F90数值计算程序库 WHIGG F90 LIB本软件提供F77和F90语言的子程序库和函数库，主要应用在地球科学领域。此软件只提供应个人使用，主要面向科学计算，可以复制传播安装程序，但要保证内容的完整性，不得进展任何修改，不得删节任何内容。不经本作者同意，不可用于任何商业用途。本软件只供学习使用，不提供任何担保，如出现任何问题，请自己承当风险。 :/免费FORTRAN编译器下载Free CompilerIntel fortran compilerel