%N grlin1 %F $MIR/src/grlin1.f
%D Draw a dashed line
%B
      SUBROUTINE GRLIN1 (X0,Y0,X1,Y1,RESET)

 GRPCKG : dashed line. Generate a visible dashed line between points
 (X0,Y0) and (X1,Y1) according to the dash pattern stored in common.
 If RESET = .TRUE., the pattern will start from the beginning.
 Otherwise, it will continue from its last position.
     DASHED LINE PATTERN ARRAY CONTAINING LENGTHS OF
          MARKS AND SPACES IN UNIT CUBE: GRPATN(*)
     OFFSET IN CURRENT PATTERN SEGMENT: GRPOFF
     CURRENT PATTERN SEGMENT NUMBER: GRIPAT
     NUMBER OF PATTERN SEGMENTS: 8
