[求助]fortran的命令行
请问大家如何用用户的输入来当命令行使用,更确切点如下:
编译器 : gfortran
系统:linux
假设我有个program.f95的程序里包含两个函数: alo_1 ,alo_2,这个程序读取file.in的数据,然后用alo_1,alo_2得出数据输出到file.out.
经过编译后在linux下使用./program运行.
现在我想编译后有用户自己来选择用函数alo_1或者alo_2. 比如以如下的形式: $program --alo_1 我尝试写了以下的test代码,但不知道如何使$符号用到program 前,还有符号,如何识别
character(255) ::cmd
CALL get_command(cmd)
CALL get_command_argument(1, cmd)
cmd = trim(adjustl(cmd))
IF (LEN_TRIM(cmd) == 0) print*,'0'
print*,cmd
select case(cmd)
case('alo_1')
alo_1
case('alo_2')
alo_2
end select
contains
function alo_1()
..........
end function
function alo_2()
..............
end function
end program
编译器 : gfortran
系统:linux
假设我有个program.f95的程序里包含两个函数: alo_1 ,alo_2,这个程序读取file.in的数据,然后用alo_1,alo_2得出数据输出到file.out.
经过编译后在linux下使用./program运行.
现在我想编译后有用户自己来选择用函数alo_1或者alo_2. 比如以如下的形式: $program --alo_1 我尝试写了以下的test代码,但不知道如何使$符号用到program 前,还有符号,如何识别
character(255) ::cmd
CALL get_command(cmd)
CALL get_command_argument(1, cmd)
cmd = trim(adjustl(cmd))
IF (LEN_TRIM(cmd) == 0) print*,'0'
print*,cmd
select case(cmd)
case('alo_1')
alo_1
case('alo_2')
alo_2
end select
contains
function alo_1()
..........
end function
function alo_2()
..............
end function
end program