NAMELIST:
NAMELIST是很特殊的输入/输出方法,收录在f90标准当中,f90中有统一NAMELIST的格式。
NAMELIST可以把一组相关变量封装在一起,输入/出这一组变量时,只要在write/read中的NML字段赋值使用哪一个NAMELIST就行了。
example:
program ex0918
implicit none
integer :: a = 1, b = 2, c= 3
namelist /na/ a,b,c
write(*,nml=na)
stop
end program ex0918
&NA
A
=
1,
B
=
2,
C
=
3,
/
程序中把a,b,c这三个变量放在名字叫做na的namelist中。namelist也算是声明的一部分,必须编写在程序执行命令前面。
NAMELIST的语法很类似COMMON,不过使用namelist时一定要取名字:
namelist /nl_name/ var1, var2, ...
!后面的变量会放在nl_name这个namelist中。
封装好namelist后,在write的NML字段中指名要输出哪一个namelist,就可以把namelist中的变量全部输出。
write(*,nml=na) !输出na这个namelist
输出namelist时候不能赋值输出格式,f90标准中规定输出namelist时首先会输出符号&,后面紧接着这个namelist的名字。接着会根据顺序输出变量的名称,等号以及内容,变量之间用空格或逗号来做分隔,最后使用除号来作结束。
至于每个数值内容会使用何种格式输出由编译器自行决定。
NAMELIST也可以用来输入数据,不过通常都会用来读取文件,不会用在键盘输入。输入格式需要按照前面的格式。&na ....../ 不需要按照变量顺序输入,程序会自动按照变量名称来设置数值。变量甚至可以重复输入,不过变量会得到最后一次设置的数值。
namelist通常使用在文本文件的输入/输出中,使用read从文件中读取数据时,会自动从目前的位置向下寻找存放namelist的地方。
example:
program ex0920
implicit none
integer :: a(3)
namelist /na/ a
open(10, file="ex0920.txt")
read(10, nml=na)
write(*, "(3I2)") a
stop
end program
输入文件的内容如下:
happy birthday
&na a = 1,2,3/
程序打开时,读写位置在文件的开头,read命令会自动向下寻找na这个namelist的存放位置来读取数据,这边可以看到namelist处理数组的方法,它会在等号后面根据顺序显示数组内容