SUBROUTINE GETARG0(IARG,ARG) C------------------------------------------------ C Same as GETARG, but... C C ...in the case of Intel Fortran, this one C doesn't barf if there's no Unix argument C (just returns blank string instead) C------------------------------------------------ CHARACTER*(*) ARG C NARG = IARGC() IF(NARG.GE.IARG) THEN CALL GETARG(IARG,ARG) ELSE ARG = ' ' ENDIF C RETURN END ! GETARG0