我正在尝试从命令行将参数传递给 Fortran 可执行文件。用 C 语言实现此目的的示例程序是(取自here):
#include <stdio.h>
int main (int argc, char *argv[])
{
int count;
printf ("This program was called with \"%s\".\n",argv[0]);
if (argc > 1)
{
for (count = 1; count < argc; count++)
{
printf("argv[%d] = %s\n", count, argv[count]);
}
}
else
{
printf("The command had no other arguments.\n");
}
return 0;
}
该程序的输出是:
This program was called with "./fubar".
argv[1] = a
argv[2] = b
argv[3] = c
我现在的问题是,如何在 Fortran 中编写该程序(以及该功能)?我用谷歌搜索了一下,似乎只有 Fortran 2003 具有将参数传递给可执行文件的功能(这是正确的)吗?
为了供将来参考,正如 @High Performance Mark 上面指出的那样,在 Fortran 2003 中执行此操作非常容易。下面的示例代码取自here并展示如何:
PROGRAM test_get_command_argument
INTEGER :: i
CHARACTER(len=32) :: arg
i = 0
DO
CALL get_command_argument(i, arg)
IF (LEN_TRIM(arg) == 0) EXIT
WRITE (*,*) TRIM(arg)
i = i+1
END DO
END PROGRAM
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)