咨询：FORTRAN77中获取命令行参数的标准合规方法

Fortran77标准制定时未针对命令行交互场景做设计，因此标准本身没有内置的命令行参数获取函数——像GETARG这类函数属于编译器扩展（比如GNU扩展），虽被多数编译器支持，但不属于Fortran77标准范畴。

要实现符合Fortran77标准的命令行参数获取，可利用标准定义的外部函数调用机制，通过宿主系统的底层接口来实现，以下是类Unix系统下的常用方案：

• 编写C辅助函数封装系统的argc/argv接口，暴露给Fortran调用
• 在Fortran代码中通过EXTERNAL声明外部函数，完成参数获取

示例代码 #

C辅助函数（cmdargs.c）

#include <stdio.h>

// 获取命令行参数总数
int get_argc() {
    extern int argc;
    return argc;
}

// 获取指定索引的命令行参数，存入buf缓冲区
void get_argv(int idx, char *buf, int buf_len) {
    extern char **argv;
    if (idx >= 0 && idx < argc) {
        snprintf(buf, buf_len, "%s", argv[idx]);
    } else {
        buf[0] = '\0';
    }
}

Fortran77主程序（main.f）

PROGRAM GETCMDLINE
      INTEGER ARGC, GET_ARGC, I
      CHARACTER*256 ARGV
      EXTERNAL GET_ARGC, GET_ARGV

C 获取命令行参数总数
      ARGC = GET_ARGC()
      PRINT *, "Total arguments: ", ARGC

C 遍历并打印所有参数
      DO I = 0, ARGC-1
          CALL GET_ARGV(I, ARGV, 256)
          PRINT *, "Argument ", I, ": ", TRIM(ARGV)
      ENDDO

      STOP
      END

编译与运行 #

在类Unix系统下，使用gcc和gfortran编译：

gcc -c cmdargs.c
gfortran main.f cmdargs.o -o getcmdline

运行程序时传入参数即可看到输出：

./getcmdline hello world "fortran 77"

这种实现方式完全符合Fortran77标准，仅依赖标准定义的外部函数特性，同时兼容绝大多数类Unix系统的C运行时环境。Windows系统下也可通过类似思路，封装Win32 API的命令行接口来实现。

内容的提问来源于stack exchange，提问作者M0M0