%N pgqdt %F $MIR/src/pgqdt.f
%D Inquire name of nth available device type
%B
      SUBROUTINE PGQDT(N, TYPE, TLEN, DESCR, DLEN, INTER)
      INTEGER N
      CHARACTER*(*) TYPE, DESCR
      INTEGER TLEN, DLEN, INTER

 Return the name of the Nth available device type as a character
 string. The number of available types can be determined by calling
 PGQNDT. If the value of N supplied is outside the range from 1 to
 the number of available types, the routine returns DLEN=TLEN=0.

 Arguments:
  N      (input)  : the number of the device type (1..maximum).
  TYPE   (output) : receives the character device-type code of the
                    Nth device type. The argument supplied should be
                    large enough for at least 8 characters. The first
                    character in the string is a '/' character.
  TLEN   (output) : receives the number of characters in TYPE,
                    excluding trailing blanks.
  DESCR  (output) : receives a description of the device type. The
                    argument supplied should be large enough for at
                    least 64 characters.
  DLEN   (output) : receives the number of characters in DESCR,
                    excluding trailing blanks.
  INTER  (output) : receives 1 if the device type is an interactive
                    one, 0 otherwise.
