SUBROUTINE GETARG(K,ARG) CHARACTER*(*) ARG C CALL GETARG_(K,ARG) C RETURN END