%N pgqndt %F $MIR/src/pgqndt.f
%D Inquire number of available device types
%B
      SUBROUTINE PGQNDT(N)
      INTEGER N

 Return the number of available device types. This routine is
 usually used in conjunction with PGQDT to get a list of the
 available device types.

 Arguments:
  N      (output) : the number of available device types.
