fortran語法手冊(編輯修改稿)
2025-07-26 07:03 本頁面
【文章內(nèi)容簡介】 。character :: ynreal :: radius, height, areareal, parameter :: pi = !這是常量的聲明方法interactive_loop: do!do循環(huán)，F(xiàn)ortran 中的循環(huán)可以加標(biāo)簽，如d前面的 !interactive_loop就是標(biāo)簽! Prompt the user for radius and height and read them.write (*,*) 39。Enter radius and height.39。!屏幕輸出read (*,*,iostat=ierr) radius,height!鍵盤輸入。isotat的值用判斷輸入成功否。! If radius and height could not be read from input, then cycle through the loop.if (ierr /= 0) thenwrite(*,*) 39。Error, invalid input.39。cycle interactive_loop!cycle 相當(dāng)于C里的continueend if! Compute area. The ** means raise to a power.area = 2 * pi * (radius**2 + radius*height)! 指數(shù)運算比C方便! Write the input variables (radius, height)and output (area) to the screen.write (*,39。(1x,a7,5x,a7,5x,a5,)39。) amp。!amp。表示續(xù)行。這里還顯示了格式化輸出39。radius=39。,radius,39。height=39。,height,39。area=39。,area yn = 39。 39。yn_loop: do!內(nèi)嵌的另一個do循環(huán)write(*,*) 39。Perform another calculation? y[n]39。read(*,39。(a1)39。) ynif (yn==39。y39。 .or. yn==39。Y39。)exit yn_loopif (yn==39。n39。 .or. yn==39。N39。 .or. yn==39。 39。)exit interactive_loopend do yn_loop!結(jié)束內(nèi)嵌do循環(huán)end do interactive_loop end program cylinderFortran 程序的主要結(jié)構(gòu)就是這樣了。一般還會有些module的部分在主函數(shù)前，函數(shù)在主函 數(shù)后。三、數(shù)據(jù)類型及基本輸入輸出數(shù)據(jù)類型，聲明及賦初值（1）integer： 短整型kind=2, 長整型kind=4integer([kind=]2) :: a=3如果聲明成integer:: a，則默認(rèn)為長整型。 !:: 在聲明并同時賦初值時必須要寫上；類型名后面有形容詞時也必須保留::；其他情況可略去 !所謂形容詞，可以看一下這個。比如聲明常數(shù)real，parameter :: pi=parameter就是形容詞。（2）real：單精度kind=4（默認(rèn)），雙精度kind=8real([kind=]8) :: a=還有指數(shù)的形式，如1E10為單精度，1D10為雙精度（3）plex 單精度和雙精度plex([kind=]4) b（4）charactercharacter([len=]10) c!len為最大長度（5）logicallogical*2 :: d=.ture.(等價于logical(2)::d=.ture.)（6）自定義類型type：類似于C中的structFortran 77中給變量賦初值常用DATA命令，可同時給多個變量賦初值data a,b,string /1, , 39。fortran39。/與C不同的是，F(xiàn)ortran 中變量不聲明也能使用,即有默認(rèn)類型（跟implicit命令有關(guān)）。按照默認(rèn)的定，以i,j,k,l,m,n開頭的變量被定義為integer,其余為real。取消該設(shè)置需在程序聲明部分之前implicit none。彭國倫建議一般都使用該語句。另一點關(guān)于聲明的不同是Fortran有等價聲明：integer a,b equivalence(a,b)使得a,b使用同一塊內(nèi)存。這樣可以節(jié)省內(nèi)存；有時可精簡代碼。如：equivalence(很長名字的變量如三維數(shù)組的某個元素，a)，之后使用a來編寫程序就簡潔多了?；据斎胼敵鲚斎耄簉ead(*,*) a!從鍵盤讀入輸出：write(*,*) text!在屏幕上輸出。Fortran 77用39。 text39。Fortan 90中一般 和39。 39。都可print *，text!只能用于屏幕輸出 （*,*）完整寫為（unit=*,fmt=*）。其中unit為輸入/輸出位置，如屏幕，文件等；fmt為 格式。如這兩項都寫成*，則按默認(rèn)的方式進行，即上面描述的。print后面的*表示按默認(rèn)格式輸 出。四、流程控制運算符（1）邏輯運算符== /= = = !Fortran 90用法.EQ. .NE. .GT. .GE. .LT. .LE. !Fortran 77用法（2）涉及相互關(guān)系的集合運算符.AND. .OR. .NOT. .EQV. .NEQV. ! ，其余左右兩邊都要有表達式（可以是logical類型的變量） !.EQV.：當(dāng)兩邊邏輯運算值相同時為真， .NEQV.：當(dāng)兩邊邏輯運算值不同時為真IF(1) 基本 ：if(邏輯判斷式) then……end if如果then后面只有一句，可寫為if(邏輯判斷式) …… !then和end if可省略(2) 多重判斷：if（條件1） then……else if（條件2）then……else if （條件3）then……else……end if(3) 嵌套：if(邏輯判斷式) thenif(邏輯判斷式) thenif(邏輯判斷式) thenelse if(邏輯判斷式) then……else……end ifend ifend if(4) 算術(shù)判斷：program exampleimplicit nonereal cwrite (*,*) input a numberread (*,*) cif(c) 10,20,30!10,20和30為行代碼,根據(jù)c小于/等于/大于0，執(zhí)行10/20/30行的程10 write (*,*) Agoto 40!goto可實現(xiàn)跳到任意前面或后面的行代碼處，但用多了破壞程序結(jié)20 write (*,*) Bgoto 4030 write (*,*) Cgoto 4040 stopendSELECT CASE類似于C的switch語句select case(變量)case（數(shù)值1）! 比如case(1:5)代表1=變量=5會執(zhí)行該模塊……!case（1，3，5）代表變量等于1或3或5會執(zhí)行該模塊case（數(shù)值2）!括號中數(shù)值只能是integer,character或logical型常量，不能real型…case default……end casePAUSE, CONTINUEpause暫停程序執(zhí)行，按enter可繼續(xù)執(zhí)行continue貌似沒什么用處，可用作封裝程序的標(biāo)志五、循環(huán)DOdo counter=初值, 終值, 增/減量!counter的值從初值到終值按增/減量變，……!counter每取一個值對應(yīng)著一次循環(huán)。增/減量不寫則認(rèn)為1…………!循環(huán)主體也沒有必要用{}end doFortran 77中不是用end do來終止，而是下面這樣子：do 循環(huán)最后一行的行代碼 counter=初值, 終值, 增/減量
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1