MINICERN/packlib/kernlib/kerngen/tcgen/hpxgs/getarg.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:57  mclareni
   6 * Kernlib
   7 *
   8 *
   9       SUBROUTINE GETARG (JARG, CHARG)
  10 C
  11 C CERN PROGLIB#         GETARG          .VERSION KERNHPX  1.00  910201
  12 C ORIG.  13/03/91  JZ
  13 C
  14 C-    interface to HPX routine IGETARG
  15
  16       CHARACTER    CHARG*(*)
  17
  18
  19       NCHMX = LEN (CHARG)
  20       NCH   = IGETARG (JARG, CHARG, NCHMX)
  21
  22       IF (NCH.LT.NCHMX)  CHARG(NCH+1:) = ' '
  23       RETURN
  24       END