1 SUBROUTINE getcarg(narg, arg, numargs)
6 INTEGER,
INTENT(in) :: narg
7 INTEGER,
INTENT(out) :: numargs
8 CHARACTER(LEN=*),
INTENT(out) :: arg
17 CALL getarg(narg, arg, numchars)
18 #elif defined(LINUX) || defined(DARWIN)
21 CALL getarg(narg, arg)
23 CALL lib$get_foreign(arg,,numchars)
24 numargs = min(1,numchars)
29 CALL pxfgetarg(narg, arg, numchars, ier)
31 numargs = command_argument_count()
32 CALL get_command_argument(narg,arg)
36 numchars = getarg(narg, arg)
38 END SUBROUTINE getcarg