%N grdtyp %F $MIR/src/grdtyp.f
%D Decode graphics device type string
%B
      INTEGER FUNCTION GRDTYP (TEXT)

 GRPCKG (internal routine): determine graphics device type code from
 type name. It compares the argument with the table of known device
 types in common.

 Argument:

 TEXT (input, character): device type name, eg 'PRINTRONIX'; the name
       may be abbreviated to uniqueness.

 Returns:

 GRDTYP (integer): the device type code, in the range 1 to
       GRTMAX, zero if the type name is not recognised, or -1
       if the type name is ambiguous.
