argtest.f

来自「MPICH是MPI的重要研究,提供了一系列的接口函数,为并行计算的实现提供了编程」· F 代码 · 共 18 行

            program temp

      integer   i
      character*80 tempchar

      i = iargc()
      print *,'iargc=',i

      i = 0
      call getarg(i,tempchar)
      print *,'tempchar0=',tempchar

      i = 1
      call getarg(i,tempchar)
      print *,'tempchar1=',tempchar

      end