fortran 实用的方法小节.doc

fortran言语的开展：54年提出，56年开端运用——58年fortran二——62年fortran四——66年fortran66——78年fortran77——91年fortran90 ；fortran77一行分为四个区的书写花样，在fortran90中不再采用该花样。 ；一个复杂的fortran90顺序： 华氏温度与摄氏温度的换算公式，先输出某一华氏温度TH，较量争论出响应的摄氏温度TC。 PROGRAM H_TO_C??????????????? ！program后空一格写主顺序名，厥后顺序空两格写 ? ！Given the Fahrenheit temperature, to calculate the Centigrade? ！为正文行 ? REAL::TC,TH??????????????????? ::为双隔号，由两个:连成，后各变量间用逗号离隔 ? READ * , TH ? TC=5*(TH-32)/9 ? PRINT * , TH,TC END PROGRAM H_TO_C??????????? end program后空一格写本顺序名，顺序名也可不写 ；输出M个整数，将其相加，打印出它们的和： Program cal_m_sum ? Implicit none????????? ！透露表现不运用隐式阐明，即隐约划定规矩，90顺序中普通要有 ? Integer::n,m ? Real::t,a ? n=0;t=0????????????? ！将两个语句写在一行上，两头用分号;分隔 ? print * ,’input number of data:’ ? read * ,m ? do ?????????????????！do—end do构造，不带轮回变量的轮回构造，exit透露表现跳出轮回 read * ,a t=t+a n=n+1 if(n=m)exit ? end do ? print * ,t end program ；求4—8五个数阶乘之和： Function factor(n) result(fac_result) !function,result皆为要害字，透露表现函数子顺序和函数的后果 ? Implicit none ? Integer::n,fac_result,i ? Fac_result=1 ? Do i=1,n Fac_result=fac_result*i ? End do End function factor Program cal_factor ? Implicit none ? Integer::factor,s=0,I???? !90中变量在类型阐明语句中可以赋值，如s=0 ? Do i=4,8 S=s+factor(i) ? End do ? Print * ,’s=’,s End program ;90顺序是一种分块方式的顺序，由若干个单位块构成，各单位有类似的语句组织方式，个中主顺序单位起全体节制感化。按古代编程要求，应尽量多运用子顺序单位，有利于顺序的维护。普通方式： ????? 主顺序单位?????????????????????? 函数子顺序单位 ? Program 主顺序名????????????? function 函数名（参数） result（后果变量） ????? 顺序体????????????????????????????? 顺序体 ? End program 主顺序名????????? end function 函数名 ；real,dimension(1:10)::a,b?? !阐明a,b都是具有10个元素的一维实型数组。 ；正文，90倡导用！，不倡导用c或*。 ；90中，巨细写是等价的。 ；字符型常量，又叫字符串，由一对单撇号’’或一对双撇号””间的字符序列构成。 ；90中运用的名字，如顺序名，变量，常量等，其构成成分可所以字母，数字和下划线，但第一个字符必需是字母，在名字中也不克不及呈现空格。 ；有些常用符号无法直接书写，可将其读音或英文名字写出，如theta,alpha,beta ；90不倡导77中的隐式阐明，为按捺隐式阐明发作感化，应在阐明局部一开端就写语句：implicit none，以此向零碎声明在本顺序中，隐式阐明不起感化。 ；90中五种变量类型阐明：整型integer，实型real，复型complex，逻辑型logical，字符型character。花样：要害字在前，待阐明变量在后，两头用双分隔符：：离隔，多个变量时，其间用，分隔。如 integer::I,j,k ；90中在变量阐明局部有新功用：1，变量阐明同时赋初值：integer::i=5,j=126 ????????????????????????????? 2，变量阐明同