fortran90用法总结

《fortran90用法总结》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、F0RTRAN90用法总结1、数据类型整型INTEGER实型REAL复型COMPLEX字符型CHARACTER逻辑型LOGICAL2、特殊函数1〉定值函数PARAMETER(变量列表)或类型说明符，PARAMETER::变量列表2〉丄MPLIC1T类型说明符(字母表)类型定义函数(默认1-N规则，取消IMPLICITNONE)3>**乘方4〉ST0P［标号］终止执行5〉PAUSE［标号］暂停程序6〉字符串长度函数LEN(String)、LRN_TRTM(String)7〉除去字符串尾部空格TRIM(St

2、ring)8〉字符串位賈函数INDEX(Stringl,String2)9〉字符串比较函数LGE(Stringl,String2)LGT(Stringl,String2)LLE(Stringl,String2)LLT(Stringl,String2)10>字符串空格首位调整ADJUSTL(String)、ADJUSTR(String)11〉字符串、ASSII码互相转化闲数①化为ASS1I码ICHAR(String)、IACHAR(String)②化为字符串CHAR(I)、ACHAR(I)12>.LT.«

3、)•LE.(<=).EQ.(=).NE.(/=).GT.(〉).GE.(>=)13〉.AND.与.OR.或.NOT.非.EQV.等于.NEQV.不等.XOR.异或3、IF函数1〉单支IFIF(逻辑表达式)THEN块语句ENDIF2〉双支IFIF(逻辑表达式)THEN块语句1ELSE块语句2ENDIF3〉多支IFIF(逻辑表达式1)THEN块语句1ELSETF(逻辑表达式2)THEN块语句1馨•馨ELSEIF（逻辑表达式N）THEN块语句NELSE块语句N+1ENDIF4〉逻辑IFIF（条件表达式）可执行

4、语句5〉算术IFIF（算术表达式）标号1,标号2,标号3标号1可执行语句1标号2可执行语句2标号3可执行语句34、CASE块SELECTCASE（表达式）CASE（表达式1）块语句1•♦•CASE（表达式N）块语句NCASEDEFAULT默认块语句ENDSELSCT5、循环函数1〉循环控制语句IF（e）EXIT终止循环2>CYCLE跳出此次循环3>D0循环DOi=el，e2[，e3]循环体ENDDO4>D0WHILE循环DOWHILE（逻辑表达式）循环体ENDDO6、输入输出1〉表校输入输出READ*，

5、变量表PRINT*，输出表WRITE（*,*）输出表2〉自定义输入输出Aw以w个字符宽来输出字符串BN定义文本框中的空位为没奋东西，在输入时才?RS使用B2定义文本框中的空位代表0,在输入时才葙要使用Dw.d以w个字符宽来输出指数类型的浮点数，小数部分占d个字符宽Ew.d

6、Ee]以w个字符宽来输出指数类型的浮点数，小数部分占d个字符宽，指数部分占e个字符ENw.d[Ee]以衔数类彤来摘出浮点数ESw.d[Ee]以指数类型来褕出浮点数Fw.d以w个字符宽来綸出｝?点数，小数部分占d个字符宽Gw.d[Ee]

7、以w个字符宽来瑜出整数，呆少褕出m个数字以w个字符宽來输出整数，S少输出m个数字Lw以w个字符宽来輪出T或F的真假值nX把输出的位笠向右跳过n个位昔i代衮换行彙在没有更多数据时结束输出kPK值挎制褕入输出的SCALETn输出的位3移动到本行第n列TLn瑜出的位笠肉左相对移动n列TRn输出的位罝向右相对移动n列SP在数值为正时加上“正号”SS取消SPFortran90汝加的格式Bw【.m】把》数转换成二进制来褊出、抽出会Aw个字符宽，固定褕出m个数字•m值可以不给定Ow(.m】把整数转換成八进制来褊出，摘

8、出会Aw个字符宽，固定输出m个数字。m值可以不给定ZwI.m]把格数转换成十人讲制來输出，输出会占w个字符宽，固定输出m个数字.m值可以不给定标号FORMAT（格式说明）3＞其他编辑符①nX向右跳过n个字符②nH输出字符串③/换行④连接7、数组1〉说明数组DIMENSION数组名类型说明，DIMENSION（维说明）：：数组名2〉数组赋初值DATA数组名/....../，数组名/....../，...3〉动态数组①声明［类型］,DIMENSION（:［，:］..•）,ALLOCATABLE：:数组名［

9、类型j,ALLOCATABLE：:数组名（：［，：②申请ALLOCATE（数组名（维说明））③释放DEALLOCATE（数组名）8、子程序1＞子程序CONTAINS（内部子程序的标志（外部EXTERNAL））［类型说明1FUNCTION函数名（虚参表）函数体END2＞子例行程序SUBROUTINE子例行程序名（虚参表）函数体END调用CALL子例行程序名（实参表）3〉递归调用RECURSIVEFUNCTION（SUBROUTINE）闲数名（