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