SUBROUTINE LINE(XA,YA,N,K,LTYPE,INUM) DIMENSION XA(1),YA(1),IN(1) IN(1)=INUM NS=IABS(LTYPE) IL=0 IF(LTYPE.GE.0)IL=1 IS=1 IF(LTYPE.EQ.0)IS=0 LIM=N*K XMIN=XA(LIM+1) YMIN=YA(LIM+1) XINC=XA(LIM+K+1) YINC=YA(LIM+K+1) X=(XA(1)-XMIN)/XINC Y=(YA(1)-YMIN)/YINC CALL PLOT(X,Y,3) IF(IL.EQ.0)GO TO 20 DO 10 I=1,LIM,K X=(XA(I)-XMIN)/XINC Y=(YA(I)-YMIN)/YINC CALL PLOT(X,Y,2) 10 CONTINUE 20 IF(IS.EQ.0)GO TO 40 CALL LINTYP(0) !make sure we're using a solid line J=1 DO 30 I=1,LIM,K J=J-1 IF(J.GT.0)GO TO 30 J=NS X=(XA(I)-XMIN)/XINC Y=(YA(I)-YMIN)/YINC CALL SYMBOL(X,Y,.15,IN(1),0.0,-1) 30 CONTINUE 40 RETURN END