Fortran 代码风格(转)

8. 推荐好的代码风格
根据F90子集语言ELF90和F的要求整理（部分）。
“强迫用”的语言特性：
+ F90的自由格式的源代码。
+ implicit none。
+ 子过程的哑元都要有intent属性。
+ 函数子程序的哑元必须指定为intent(in)。
+ 所有子程序和函数都放在模块（module）中，然后引用（use）该模块；或者放在program中。
+ 数组哑元要求是假定形状的，或者有固定的维数和大小。字符哑元要求是假定长度的。
+ 对于recursive function（递归函数）语句，必须有result子句。
+ 在所有派生类型（type）的定义语句中，必须用双冒号分隔符（::）。
+ 主程序要求有program语句。
+ 在程序单元的end语句中要求后跟程序单元的类型和名称。
+ 在end type语句中要求后跟类型的名称。
+ end program前必须有stop语句以表示停止执行。
+ 子过程中必须有return语句，以表示返回。
+ subroutine s( )并且call s( )，即必须有括号。
“不得用”的语言特性：
- allocatable、intent、pointer、save、dimension、parameter和target语句形式。(用属性形式代替。)
- external语句形式。(用显式的接口代替。)
- assign、赋值go to、交错return、continue、entry、和计算go to 语句。
- include文件。(用模块代替。)
- data和block data。(在类型声明语句中进行初始化或赋值。)
- common块。(将全局数据放在模块中，用模块代替。)
- equivalence。(被认为是许多难以查找的编程错误的来源。)
- double precision语句。(用real语句声明双精度的实型数。)
- 语句函数。(用内部函数代替。)
- 专用固有函数。(用类属函数代替。)
- 假定大小数组。(用假定形状数组代替。)
- do n （其中n为语句标号）。(用do和end do代替。)
- 非整数do变量和表达式。
- 同一行上多条语句。
- 逻辑型case表达式。
- 从if块外面分支到end if。
- where语句形式。(用where结构形式。)
- 在open和inquire语句中的blank= 说明符。
- 双字关键词之间要求有空格：in out，go to。不能写为inout，goto。