%N grinqpen %F $MIR/src/grinqpen.f
%D Obsolete routine*
%B
      SUBROUTINE GRINQPEN (IP)

 GRPCKG: obtain the pen number of the current graphics device.
 Obsolete routine.
 Argument:

 IP (integer, output): always receives 1.
