%N grsetli %F $MIR/src/grsetli.f
%D Obsolete routine*
%B
      SUBROUTINE GRSETLI (IN)

 GRPCKG: Set the line intensity for subsequent plotting on the current
 device. *** OBSOLETE ROUTINE *** Intensity is now set with GRSCI
 and GRSCR. For compatibility, GRSETLI now sets color zero if its
 argument is 0, and resets the previous color if its argument is
 non-zero.

 Argument:

 IN (integer, input): the intensity to be used for subsequent
       plotting on the current device (in range 0-3).
