1      subroutine util_getarg(iarg_in,arg)
2* $Id$
3*
4* The statement call util_getarg( k , arg ) gets the  kth  command-
5* line argument and puts it into the string arg.
6*
7      implicit none
8#include "errquit.fh"
9      integer iarg_in
10      character*(*) arg
11#if defined(USE_FORTRAN2003)
12      call get_command_argument(iarg_in,arg)
13#else
14#if defined(EXT_INT) && !( __GNUC__ >= 4)
15      integer*4 iarg
16#else
17      integer iarg
18#if defined(WIN32) &&!defined(__MINGW32__)
19      integer idum
20#endif
21#endif
22#if defined(CRAY)
23      integer*4 length,ierror
24#endif
25#if defined(HPUX)
26#ifdef EXT_INT
27!$HP$ ALIAS getarg='getarg__'
28#else
29!$HP$ ALIAS getarg='getarg_'
30#endif
31#endif
32*
33      iarg=iarg_in
34#if defined(CRAY)
35      call pxfgetarg(iarg,arg,length,ierror)
36c
37      if (ierror.ne.0)
38     + call errquit('util_getarg:pxfgetarg fatal error',ierror,
39     &       UNKNOWN_ERR)
40#elif defined(WIN32) &&!defined(__MINGW32__)
41      call getarg(iarg,arg,idum)
42#else
43      call getarg(iarg,arg)
44#endif
45*
46#endif
47      return
48      end
49