我们知道，通常情况下基于控制台的Fortra源代码在编写完毕后，编译连接后会在当前的工程目录下的Debug目录下生成用工程名命名的可执行文件（*.exe）。这时在命令提示符下进入到该Debug目录下，运行该exe就能执行Fortra程序。但是，有时候我们需要在命令提示符下输入可执行文件名后面添加若干个参数，希望把这些参数传递到Fortran程序中去执行。此时就需要对原来的Fortran源程序进行相应的修改，具体的方法有如下两种。

 

       用法：CALL GET_COMMAND_ARGUMENT(NUMBER [, VALUE, LENGTH, STATUS])其中NUMBER是获取第几个参数，VALUE是相应的值（让NUMBER=0得到的是可执行程序的名字，如果输入参数个数比NUMBER小，得到的为空。）；LENGTH是第NUMBER个参数的长度；STATUS是获取这个参数后的状态（如果取这个参数发生错误，返回的是正数；如果VALUE是一个截断的参数，那么返回-1；其它情况返回0）。

 

      举例：

   print *, 'Program Begin'
!   method 1:
    i=1

    do
    call get_command_argument(i,arg)
        if (len_trim(arg)==0) then
            exit
        end if 
          read(arg,'(I3)')n
        write(*,*)"input number n=",n
        write(*,*)n*n
        i=i+1
       end do

  print *, 'Program End'

 

      用法：CALL GETARG (n, buffer [, status])
      参数：

n
(Input) INTEGER(2). Position of the command-line argument to retrieve. The command itself is argument number 0.

buffer
(Output) Character*(*). Command-line argument retrieved.

 

 

用过DOS或者Linux操作系统的朋友经常会碰到在执行某个程序的时候在该程序名后添加参数的情况，下面的这个例子给出了Fortran程序在程序名后添加字符，字符串，整形，浮点数（实型）数据作为输入参数的情形，今后在编写带参数的Fortran程序时可以参考。

 

本实例是想通过如下的命令执行程序：

此命令中包含了14个参数（程序名的默认编号为0），依次说明如下：

第1个参数： -i

第2个参数：inputfile

程序运行时，首先依次读取并输出这14个参数，然后利用第6的参数的操作对第12和第14这两个参数进行四则运算。

 

完整的源代码如下：

!  Console_Commands.f90
!
!  FUNCTIONS:
!  Console_Commands - Entry point of console application.
!

!****************************************************************************
!
!  PROGRAM: Console_Commands
!
!  PURPOSE:  Entry point for the console application.
!
!****************************************************************************

    program Console_Commands
    implicit none

    ! Variables
    integer*4 i,mm,nn          ！整数型变量定义

    real*8 firNum,secNum,res   ！实型变量定义
    character(len=32) arg      ！用来保存输入的参数，应注意其长度应比输入的参数的字符串长度大。
    character(len=1) operater  ！用来记录是进行何种四则运算。
    character(len=2) para      ！用来记录参数的种类 例如“-i,-o”等
    character(len=32) progName,inputfile,outputfile ！字符串型变量定义
    print *, 'Program Begin'
   
!    console_commands.exe -i inputfile -o outputfile -c + -n 123 -n 456 -r 100.123 -r 200.456
    !测试开始
    i=iargc() !参数个数
    write(*,*)'Number of parameter:',i
    call getarg(0,arg)  ！输出当前的应用程序名
    read(arg,'(A32)')progName   ！注意此处read可以从字符串读取数据到其他类型的变量，

                                ！此处将arg变量赋值到proName字符串变量
    write(*,*)progName
   
    call getarg(1,arg)  ！-i
    read(arg,'(A2)')para
    print *, para
    call getarg(2,arg)  ! inputfile
    read(arg,'(A32)')inputfile
    print *, inputfile
   
    call getarg(3,arg) ! -i
    read(arg,'(A2)')para
    print *,para
    call getarg(4,arg) ! outputfile
    read(arg,'(A32)')outputfile
    print *,outputfile
   
    call getarg(5,arg) ! -c
    read(arg,'(2A)')para
    print *, para     
   
    call getarg(6,arg) ! +
    read(arg,'(A)')operater
    print *, operater
       
    call getarg(7,arg) ! -mm
    read(arg,'(2A)')para
    print *, para
    call getarg(8,arg)
    read(arg,'(I3)')mm
    print *, mm
   
    call getarg(9,arg) ! -nn
    read(arg,'(2A)')para
    print *, para
    call getarg(10,arg)
    read(arg,'(I3)')nn
    print *, nn
  
    call getarg(11,arg) ! -r
    read(arg,'(2A)')para
    print *, para    
    call getarg(12,arg)
    read(arg,'(F8.3)')firNum
    print *, firNum
      
    call getarg(13,arg) !-r
    read(arg,'(2A)')
    print *, para   
    call getarg(14,arg)
    read(arg,'(F8.3)')secNum
    print *, secNum
   
    !对读取的数据应用操作符进行相应的运算
    if(operater=='+')then
        res=firNum+SecNum
    elseif(operater=='-')then
        res=firNum-SecNum
    elseif(operater=='*')then
        res=firNum*SecNum
    elseif(operater=='/')then
        if(secNum==0)then
           write(*,*)'除法分母为0，非法操作'
           stop
        endif
        res=firNum/SecNum
   endif
 
    write(*,*)'firNum  ', operater ,' secNum =',res
   
    ! Body of Console_Commands
    print *, 'Program End'

    end program Console_Commands

 

运行结果如下：

 

本实例程序在Intel Fortran VS2005 IDE 下调试通过！

源码下载：Console_Commands.rar

 

另一参考Fortran程序：

xyz2neu2.f