Question

如何让fortran程序在命令行输入参数

有个fortran语言写的程序，用write写屏幕提示，用read读入一个参数，编译后文件名如为ttt.exe,则运行后在提示后输入参数，如50，程序开始计算运行。如何修改程序，让参数输入形式为ttt.exe 50，即，直接将参数在命令行输入？

Answer 1

相关函数：iargc可以返回命喊链令行参数的个数，getarg可以得郑颤孙到具体的命令行参数，不洞歼过命令行参数只能是字符串，数字要再read出来

nargin=iargc()
do i = 1, nargin
call getarg(i,argum(i))
end do
!
select case(nargin)
case (0)
filename_control='control.nml'
case (1)
filename_control=argum(1)
case default
call abort('ERROR(Im01):too many input')
end select