%N grpars %F $MIR/src/grpars.f
%D Parse device specification string
%B
      INTEGER FUNCTION GRPARS (SPEC,DEV,TYPE,APPEND)
      CHARACTER*(*) SPEC, DEV
      INTEGER  TYPE
      LOGICAL  APPEND

 GRPCKG: decode a device-specification; called by GROPEN.

 Returns:
  GRPARS (output): 1 if the device-specification is
       acceptable; any other value indicates an error.

 Arguments:
  SPEC (input): the device specification.
  DEV  (output):  device name or file spec.
  TYPE (output): device type (integer code); 0 if no device
       type is specified.
  APPEND (output): .TRUE. if /APPEND specified, .FALSE. otherwise.
