Fortran的主要版本及差别.docx

《Fortran的主要版本及差别.docx》由会员分享，可在线阅读，更多相关《Fortran的主要版本及差别.docx（19页珍藏版）》请在优知文库上搜索。

1、,Fortran的主要版本及差别按其发展历史,Fortran编译器的版本其实许多。现在在广泛运用的是Fortran77和Fortran90。Fortran90在Fortran77基础上添加了不少运用的功能，并旦改良了77编程的版面格式，所以编程时举荐运用90.签丁许多现成的程序只有77版本，有必要知道77的一些基本常识，至少保证能够看懂77程序。以下是77和90的一些格式上的区分。Fortran77：固定格式（fixedformat）.程序代码扩展名：.f或.for（1）若某行以C,c或*开头，则该行被当成注释：（2）每行前六个字符不能写程序代码，可空若，或者1、5字符以数字表明行代码（用作格

2、式化输入输出等）：772为程序代码编写区：73往后被忽视：（3）太长的话可以续行，所续行的第六个字符必需是0以外的任何字符。Fortran90：自由格式（freeformal），扩展名：.f90（1）以引导注糅：（2）每行可132字符，行代码放在每行最前面：（3）以&续行，放在该行末或下行初。以下都是探讨Fortran90。3、Fortran的一些特点，和C的一些不同其实许多，在下面涉及详细方面时可以看到。这里只是大致提一些。（1）不分大小写（2）每句末尾不必要写分号（3）程序代码吩咐间的空格没有意义（4）不像C,Forlran不运用）（5）数据类型多出了笈数和逻辑推断类里。比如复数类型com

3、plex:a!声明史数的方法。究数明显便利了科学计算，满意了工程方面的需求a=（l.0,2.0）!a=l+i（6）多出J乘麋运算（*）.乘用除整数还可以是实数形式。如开方，开立方a-4.O*O.5,a=8.0*（1.0/3.0）。（7）数组有些整体操作的功能：可以便利的对部分元素进行操作（8）有些状况下可以声明大小待定的数组，很好用的功能4、Fortran的基本程序结构先看一看所谓的HelIoFortran程序.programinwrite(*,)Hello”stop!程序起先，Inain是Progranl的名字,完全自定义!主程序!终止程序endprogrammain!end用于封装代码，表

4、示代码编写完毕.中的内容可省略，下同。再看段好用些的程序，好有点感性相识。程序用于计算圆柱的表面积，要求输入底面半径和高。其中展示了FQrtran的一些特色用法。程序摘自维基“其实是一个叫的网上引用的维基的M页。举荐去看看!能查到不少有意思的东西.programcylinder!给主函数起个名字!Calculatetheareaofacylinder.!Declarevariablesandconstants.!constants=pi!variables=radiussquaredandheightimplicitnone!Requireal1variablestobeexplicitlyd

5、eclared!这个一般都是要写上的。下面会进步说明。integer:iorrcharacter:ynreal:radius,height,areareal,parameter:pi=3.1415926536!这是常55的声明方法interactiveloop：do!do循环，Fortran中的循环可以加标签,如d!面的interactive1。P就是标!屏幕输出!钺盘输入.isotat的值用PrompttheuserforradiusandheightHndreadthem.write(*,*)Enterradiusandheight.,read(*,*,iostat=ierr)radius

6、,height于推断!输入胜利古Ifradiusandheightcouldnotbereadfrominput,thencyclethroughtheloop.if(iorr/=0)thenwrite(*,*)Error,invalidinput.,cycleinteractiveOoP!cycle相当于C里的ContinUeendif!Computearea.The*meansraisetoapower.area=2*pi*(radius*2+radius*height)!指数运算比C便利!Writetheinputvariables(radius,height)!andoutput(ar

7、ea)tothescreen.write(*,(lx,a7,f6.2,5x,h7,f6.2,5x,a5,f6.2),)&!”&”表示续行。这里!还显示了格式化输出radius=,radius,height=,height,area=,areayn_loop:do!内嵌的另一个do循环write(*,*)Performanothercalculation?ynread(*,(ul)ynif(yn=y.or.yn=Y)exityn_loopif(yn=n,.or.yn=N.or.yn=)exitinteractiveOOPenddoyn_loop!结束内联do循环enddointeractire_

8、loopendprogramcylinderForlrun程序的主要结构就是这样了。一般还会有些module的部分在主函数前,函数在主函数后。三、数据类型及基本输入输出1、数据类型，声明及赋初值(1) integer：短整型kind=2,长整型kind=4integer(kind=2):a=3假如声明成integer:a.则钛认为长整型。在声明并同时赋初值时必须要写上；类型名后面有形容词时也必需有：其他状况可略去!所谓形容词，可以看一下这个。比如声明常数real,parameter:pi-3.1415926。Parameter就是形容词。(2) real：单精度kind=4(默认)，双精度ki

9、nd=8real(kind-8):a=3.0还有指数的形式，如IElo为单精度，1DIO为双精度(3) complex堆精度和双精度complex(kind=4)b(4) charactercharacIer(Ien=10)c!Ien为最大长度(5) logicallogical*2:d=.ture.(等价于IOgiCal(2):d=.tue.)(6)自定义类型type：类似于C中的structFortran77中给变量赋初值常用DATA吩咐，可同时给多个变量赋初值dataa,b,string/1,2.0,fortran/及C不同的是，Forlran中变址不声明也能运用,即有默认类型(跟imp

10、licit吩咐有关)。按照默认的规定，以i,j,kJ,m,n开头的变量被定义为integer,其余为real。取消该设置需在程序声明部分之前加implicitnone彭国伦建议般都运用该语句。另一点关于声明的不同是Fortran有等价声明：integera,bequivalence(a,b)使得a,b运用同一块内存。这样可以节约内存：有时可精简代码。如:equivalence(很长名字的变量2、基本输入输出输入：read(*,*)a输出：Wrile(*,*)*text*比如一:维数组的某个元素，a),之后运用a来编写程序就简洁多九!从键盘读入!在屏幕上输出Fortran77用exl。Fortr

11、an90!一般和都可print*,text!只能屏幕输出(*.*)完整写为(unit=*,fmt=*).其中Unit为输入/输出位置，如屏幕，文件等：fmt为格式。如果这两项都写成*,则按默认的方式进行，即上面描述的,Print后面的*表示按默认格式输出。四、四程限制I、运算符(I)逻辑运算符/=!Fortran90用法.EQ.NE.GT.GE.1.T.1.E.!Fortran77用法(2)涉及相互关系的集合运算符.ND.OR.NOT.EQV.NEQV.!仪.NOT,连接一个表达式，其余左右两边都要有表达式(可以是logical类型的变量I.EQV.：当两边逻辑运算值相同时为真，.NEQY.:

12、当两边逻辑运算值不同时为真2、IF(1)基本：if(逻辑推断式)thenendif假如Ihen后面只有一句，可写为if(逻辑推断式)!then和endif可省略(2)多重推断：if(逻辑推断式thenelseifelseifelseendif(3)嵌套:if（逻辑推断式thenif（逻辑推断式）thenif（逻辑推断式）thenelseif（逻辑推断式）thenelseendifendifendif!没必要跟C语句多时用1/,因为有endif(4)算术推断：programexampleimplicitnonerealcwrite(*,)inputanumber*read(*.*)cif(c)1

13、0,20,30!10,20和30为行代码,依据c小于/等于/大于0,执行10/20/30行的程序10writegoto40程序结（*,*）F构20goto30ROtO10endwrite40write40stop(,*)B(*,*)C!goto可实现跳到随意前面或后面的行代码处，但用多了破坏3、 SE1.ECTCASE类似FC的switch语句selectcase（变量）case（数值1）!比如CaSe（1:5）代表K=变量=5会执行该模块!case（1,3,5）代表变量等于1或3或5会执行该模块case（数值2）!括号中数值只能是integer,character或IOgiCal型常域.不是

14、real型casedefaultendcase4、 PAUSE,CONTINUEPaUSe暂停程序执行，按。ntcr可接若执行continue貌似没什么用处，可用作封装程序的标记五、循环1、DOdoCoUnter:初值，终值，增/减St!counter的值从初值到终值按增/减圻变化，！counter每取一个值对应着一次循环.增/减量不写则默认为1！循环主体也没有必要用0enddoFortran77中不是用enddo来终止，而是卜面这样子：do循环最终行的行代码CoUntCr=初值，终值，增/减5t行代码！这是do的最终一行2、DOWHI1.EdoWhiIe（逻辑运算）enddo类似于C中的While(逻辑运算)(。一起先那个计算圆柱表面枳的程序中，应当也算是这一类。不过它是通过内部的if语句来限制循环。看来也是可以的，不过在这本书上没看到这样写。其实应当也可以归于下面这种.3、没看到和C里面的do(while(逻辑运算);相对应的循环语句,不过可以这样，保证至少做一次循环：dowhile(.ture.)if(逻辑运算)exit!exit就好比C里面的brcakC里的ContinUe在Fortr