從命令行將參數傳遞給可執行文件

Question

我試圖從命令行將參數傳遞給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具有將參數傳遞給可執行文件的功能（這是否正確）？

Answer 1

以供將來參考，如@High性能標誌上面所指出的，這是很容易下面的示例代碼從here採取做到這一點用Fortran 2003年，並說明如何：

 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