搜索
FORTRAN90用法总结1、数据类型整型INTEGER实型REAL复型COMPLEX字符型CHARACTER逻辑型LOGICAL2、特殊函数1定值函数PARAMETER(变量列表)或类型说明符，PARAMETER::变量列表2IMPLICIT类型说明符（字母表）类型定义函数（默认I-N规则，取消IMPLICITNONE）3**乘方4STOP[标号]终止执行5PAUSE[标号]暂停程序6字符串长度函数LEN（String）、LEN_TRIM(String)7除去字符串尾部空格TRIM(String)8字符串位置函数INDEX(String1,String2)9字符串比较函数LGE(String1,String2)LGT(String1,String2)LLE(String1,String2)LLT(String1,String2)10字符串空格首位调整ADJUSTL(String)、ADJUSTR(String)11字符串、ASSII码互相转化函数①化为ASSII码ICHAR(String)、IACHAR(String)②化为字符串CHAR(I)、ACHAR(I)12.LT.().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块语句1ELSEIF(逻辑表达式2)THEN块语句1...ELSEIF(逻辑表达式N)THEN块语句NELSE块语句N+1ENDIF4逻辑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终止循环2CYCLE跳出此次循环3DO循环DOi=e1,e2[,e3]循环体ENDDO4DOWHILE循环DOWHILE(逻辑表达式)循环体ENDDO6、输入输出1表控输入输出READ*,变量表PRINT*,输出表WRITE(*,*)输出表2自定义输入输出标号FORMAT（格式说明）3其他编辑符①nX向右跳过n个字符②nH输出字符串③/换行④\连接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=PRIVATE(私有),PUBLIC(公有))分量表ENDTYPE派生类名称2类型定义TYPE(派生类名称)::结构体变量名3结构体成员引用①结构体名%成员名②结构体名.成员名4定义的同时赋值TYPE(派生数据类型名)::结构体变量名=派生数据类型名（成员初值表）5结构体数组TYPE(派生数据类型名),DIMENSION(维说明符)::结构体数组名10、指针1定义指针类型说明，POINTER::指针变量名...类型说明，TARGET::目标变量名...P=A2动态变量例：INTEGER,POINTER::PINTEGERSALLOCATE(P)P=4S=PDEALLOCATE(P)PRINT*,SEND3指针数组变量定义类型说明，DIMENSION(:...:),POINTER::指针变量名ALLOCATE(X(20))DEALLOCATE(X)4定义结点TYPENODEINTEGERVALUETYPE(NOPE),POINTER::NEXTENDTYPENODE5定义头指针TYPELISTPRIVATETYPE(NODE),POINTER::ENDENDTYPELIST6对指针初始化(对头指针清空）SUBROUTINESETUP(L)TYPE(LIST)LNULLIFY(L%END)ENDSUBROUTINESETUP