FORTRAN学习记录（持续更新）

FORTRAN：

• .f的后缀，表示固定格式； .f90的后缀，表示自由格式。
• 固定格式用‘C’开头（必须在行首）表示注释+C后面用tab缩进，否则编译错误。
• 自由格式用‘！’开头表示注释，！后面不用缩进。
• FORTRAN变量不需要声明就可以直接使用，编译器根据变量名称的第一个字母决定变量的类型。
• 换行连接使用‘&’

 

常数与变量：

INTEGER:  整型数据

REAL: 浮点型

COMPLEX:复数，a+bi。COMPLEX*4, COMPLEX(4)单精度；COMPLEX*8,COMPLEX(8)双精度

CHARACTER:字符数据

LOGICAL:逻辑判断，1表示TRUE,0表示FALSE。

Logical a = .true.

implicit：设置默认类型

eg:

implicit real(Z-P)   ——》指定以Z到P开头的变量为浮点数

implicit integer(A,B,C) ——》纸锭以A,B,C开头的变量为整型数。

implicit none——》关闭默认类型功能，所有变量要先声明。

PARAMETER:声明常量

PARAMETER (KDLEN=200,KELEM=4000)

#ifdef  #else #endif：条件编译

用法类似C语言。但是ifdef表示宏定义

PARAMETER(JSUP = 9,JSEC0= 3,JSEC1= 40,JSEC2=4096,JSEC3= 4, 
	1	JSEC4=2,JELEM=320000,JSUBS=400,JCVAL=150 ,JBUFL=512000,
#ifdef JBPW_64
	2	JBPW = 64,JTAB =3000,JCTAB=3000,JCTST=3000,JCTEXT=6000,
#else
	2 JBPW = 32,JTAB =3000,JCTAB=3000,JCTST=3000,JCTEXT=6000, 
#endif
	3 JWORK=4096000,JKEY=46, JTMAX=10,JTCLAS=64,JTEL=255)

DIMENSION:说明数组