SUBROUTINE LINE(XA,YA,N,K,LTYPE,INUM) C C XA,YA(real) = the arrays containing the data points C N(integer) = the number of points in the XA,YA arrays C K(integer) = the index used to access points within the array C LTYPE(integer) = the line type to use (see LINTYP) C INUM(integer) = the symbol type to use if symbols are chosen C C This subroutine takes x,y data pair and plots the points using C a line, a symbol or both. C 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