F0RTRAN90用法总结1、数据类型整型INTEGER实型REAL复型COMPLEX字符型CHARACTER逻辑型LOGICAL2、特殊函数1＞定值函数PARAMETER(变量列表)或类型说明符，PARAMETER::变量列表2＞IMPLICIT类型说明符(字母表)类型定义函数(默认规则，取消IMPLICITNONE)3＞**乘方4＞STOP［标号］终止执行5＞PAUSE［标号］暂停程序6＞字符串长度函数LEN(String)、LEN.TRIM(String)7＞除去字符串尾部空格TRIM(String)8＞字符串位置函数INDEX(Stringl,String)9＞字符串比较函数LGE(Stringl,String2)LGT(Stringl,String2)LLE(Stringl,String2)LLT(Stringl,String2)10＞字符串空格首位调整ADJUSTL(String).ADJUSTR(String)11＞字符串、ASSII码互相转化函数①化为ASSII码ICHAR(String)IACHAR(String)②化为字符串CHAR(I)、ACHAR(I)12＞.LT.«)・LE.«=).EQ.(=).NE.(/=).GT.(».GE.0=)13＞.AND.与.0R.或.NOT.非.EQV.等于・NEQV.不等.XOR.异或3、IF函数1＞单支IFIF(逻辑表达式)THEN块语句ENDIF2＞双支IFIF(逻辑表达式)THEN块语句1ELSE块语句2ENDIF3＞多支IFIF(逻辑表达式1)THEN块语句1ELSEIF(逻辑表达式2)THEN块语句1ELSEIF（逻辑表达式N）THEN块语句NELSE块语句N+l---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---ENDIF4＞逻辑IFIF（条件表达式）可■执行语句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*,变量表PRINT*，输出表WRITE（*,*）输出表2＞自定义输入输出---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---Aw以w个字符宽来输出字符串BN定义文本框中的空位为没有东西，在输入时才需要使用BZ定义文本梅中的空位代表0,在输入时才需要使用Dd以W个字符宽来愉出指数类型的浮点数，小数部分占d个字符宽EdfEe]以w个字符宽来输出指数类型的浮点数，小敷部分占d个字符宽.指数邯分占e个字符ENdfEe]以指数类型来愉出浮点敷ESd[Ee]以指数类型来输出浮点数Fd以w个字符宽来输出浮点数，小数部分占d个字符宽Gd[Ee]以w个字符宽来输出整数，最少输出m个数字lw(.m]以w个字符宽来愉出整数，最少输出m个数字Lw以w个字符宽来输出TWF的真假值nX把愉出的位置向右跄tn个位2f/代表换行.在没有更多数据时结束输出kPK值控制输入输出的SCALETn输出的位置移动到本行第n^JTLn输出的位置向左相对移动MUTRn愉出的位置向右相对移动SP在数值为正时加上“正号"SS取消SPFortran90添加的格式机整数转换成二进制来输出.辎出会占w个字符竟，周定输出m个数字.m值可以不给定Ow(.m]把乾散转换成八进制来输出，输出会占w个字符宽，固定输出m个教字.m值可以不给蜜Zw(.m]把狡数转换成十六避耕来输出，输出会占w个字符宽，因定输出m个数字.m值可以不给定标号FORMAT（格式说明）3＞其他编辑符11X向右跳过n个字符11H输出字符串/换行\连接7、数组1＞说明数组DIMENSION数组名类型说明，DIMENSION维说明）：：数组名2＞数组赋初值DATA数组名//,数组名//,...3＞动态数组①声明［类型］,DIMENSION（:［，:］...）,ALLOCATABLE：:数组名［类型］,ALLOCATABLE：:数组名（：［，:---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---①②③④②申请ALLOCATE（数组名（维说明））③释放DEALLOCATE（数组名）8、子程序1＞子程序CONTAINS（内部子程序的标志（外部EXTERNAL））［类型说明］FUNCTION函数名（虚参表）函数体END2＞子例行程序SUBROUTINE子例行程序名（虚参表）函数体END调用CALL子例行程序名（实参表）3＞递归调用RECURSIVEFUNCTION（SUBROUTINE）函数名（虚参表）RESULT（返回值）函数体END9、结构体1＞定义TYPE［,ACCESS［::］］派生类名称（ACCESS=PRTVATE（私有）,PUBLIC（公有））分量表ENDTYPE派生类名...