File: LINE.LS of Disk: V50/Source/Source-Listing-RALF-1

(Source file text) 

---

        FORTRAN IV  5AAAA (A6)   8-APR-92             PAGE  ONE 

0002	        SUBROUTINE LINE(XA,YA,NPTS,INC,LTP,INTEQ)
	C       VERSION 50A 30-MAY-80 WVDM
0003	        DIMENSION XA(1),YA(1)
0004	        IF(NPTS.LE.0)GO TO 50
0005	        IF(INC.LE.0)GO TO 50
	C       LTP=+=PEN DOWN+SYMBOLS;0=PEN DOWN ONLY;-=SYMBOLS ONLY
0006	        IPLT=NPTS*INC+1
0007	        FRSVX=XA(IPLT)
0010	        FRSVY=YA(IPLT)
	C       FV AT INC*NPTS+1,DV AT INC*NPTS+INC+1
0011	        DELVX=XA(IPLT+INC)
0012	        DELVY=YA(IPLT+INC)
0013	        IPLT=3
	C       IPLT=3=PEN UP,2=PEN DOWN
0014	        ALTP=ABS(LTP)
0015	        ZCNT=ALTP
0016	        ICHR=0
0017	        IF(LTP.NE.0)ICHR=1
	C       START TO PLOT FROM DATA POINT 1
0020	        DO 30 I=1,NPTS*INC,INC
0021	        IF((XA(I)-FRSVX).EQ.0)GO TO 22
0022	        XPT=(XA(I)-FRSVX)/DELVX
0023	23      IF((YA(I)-FRSVY).EQ.0)GO TO 24
0024	        YPT=(YA(I)-FRSVY)/DELVY
0025	25      CALL XYPLOT(XPT,YPT,IPLT)
0026	        IF(LTP.GE.0)IPLT=2
	C       ALTER POINT STATUS HERE FOR ALL POINTS AFTER FIRST
0027	        IF(ICHR.EQ.0)GO TO 30
0030	        ZCNT=ZCNT+1
0031	        IF(ZCNT.LT.ALTP)GO TO 30
	C       PLOT EVERY ALTP'TH SYMBOL
0032	        ZCNT=0
0033	        CALL WHERE(XPT,YPT,Q)
0034	        CALL SYMBOL(XPT,YPT,.08,INTEQ,0,-1)
0035	30      CONTINUE
0036	50      RETURN
0037	22      XPT=0
0040	        GO TO 23
0041	24      YPT=0
0042	        GO TO 25
0043	        END
	

---