Fortran 95 函数、文件

主要参考：《Fortran 95 程序设计》彭国伦

子程序（subroutine）:

subroutine message()

    return

end

调用子程序：call message()

全局变量：common

common a, b  ! 定义a,b是全局变量中的第一个和第二个变量

module:将具备相关功能的函数和变量封装在一起；使用use来使用。

 

 

open的使用：open(unit=10, file='hello.txt', form='', status='', access='',)

form="FORMATTED' 表示文件使用文本文件格式保存（默认值）

       ="UNFORMATTED"     使用二进制格式保存

status="NEW" 表示文件原本不存在，是第一次打开

          ="OLD" 表示文件原本就已经存在

          ="REPLACE" 表示覆盖，文件不存在时新建文件

         ="scratch"表示打开一个暂存盘

         ="unknown"通常会同replace的效果。默认值。

access="sequential"  表示以顺序的方法来做读写。默认值。

           ="direct"  表示任意指定位置

查询文件的状态：inquire

character(len=20::filename="ex0903")

logical alive

inquire(file=filename, exit=alive)

namelist：将一组相关变量封装在一起，输入输出这一组变量时，在write/read中的nml字段赋值在使用的namelist即可。

namelist /na/ a, b, c

write(*, nml=na)