如何在 Fortran 中使用命令行参数？

Question

GCC 4.6 版

问题：要找到一种从命令行向可执行文件输入参数的方法，比如a.out，更具体地说是输入一个双精度数字数组。

尝试：使用标准中较旧的READ(*,*) 命令： 程序test.f -

PROGRAM MAIN  
     REAL(8)    :: A,B  
     READ(*,*) A,B
     PRINT*, A+B, COMMAND_ARGUMENT_COUNT()
END PROGRAM MAIN

执行——

$ gfortran test.f
$ ./a.out 3.D0 1.D0

这不起作用。经过一番反省，发现

$./a.out
3.d0,1.d0
   4.0000000000000000                0

确实有效，但是第二行是输入提示，没有达到单行完成的目的。此外，COMMAND_ARGUMENT_COUNT() 表明输入到输入提示中的数字并不真正算作“命令行参数”，这与 PERL 不同。

Answer 1

如果您想在命令行上将参数输入您的程序，请使用（自 Fortran 2003 起）标准内在子例程 GET_COMMAND_ARGUMENT。像这样的东西可能会起作用

PROGRAM MAIN  
     REAL(8)    :: A,B
     integer :: num_args, ix
     character(len=12), dimension(:), allocatable :: args

     num_args = command_argument_count()
     allocate(args(num_args))  ! I've omitted checking the return status of the allocation 

     do ix = 1, num_args
         call get_command_argument(ix,args(ix))
         ! now parse the argument as you wish
     end do

     PRINT*, A+B, COMMAND_ARGUMENT_COUNT()
END PROGRAM MAIN

注意：

• 子例程get_command_argument 的第二个参数是一个字符变量，您必须对其进行解析才能变成一个真实的（或其他）。另请注意，我在 args 数组的每个元素中只允许有 12 个字符，您可能想摆弄一下。
• 您已经知道 read 不用于读取 Fortran 程序中的命令行参数。

既然你想读取一个实数数组，你可能最好使用你已经想到的方法，即在程序启动后从终端读取它们，这取决于你。