14
IF(JHALT.EQ.1)GOTO 240
IF<JEND.EG.1)G0T0 150
270 XX(l)=XX<h)
YY1=YYh
XX(2)=XX(M+1
YY2)=YYh+1
M=N=2
NNN=L=JHALT=0
N=2
MM=INLEES+1
H0EKA=H0GMAX=0.
IFJENDNE1GOTO 290
150 NN=NN+1
N4=N4+1
IF<XX<M) EG.XXC»AND. YY<M) .EG* YYOGOTO 155
XE=XXM)/SCHAF
YE YY< M/SCHAF
WRITE<2»20)NN» JSTOP»XEYE
155 IF(JHALT.EQ.1>GOTO 240
IF(JEND.NE.1GOTO 270
NN=NN+1
XEN=XCC/SCHAF
YEN=YCC/SCHAF
WRITE 2 20NN JSTOPXENYEN
PRINT 1»N1»N2»N3»N4
1 FORMAT<*0*»5HCAT.1»IX»15»IX5HCAT2IX15IX5HCAT3IX15IX
♦»5HCAT4 IX 15)
PRINT 2»NNR»NRN»NN
2 FORMAT<*0*»12HINTERP0LATIEIXf15»IX»12HEXTERP0LATIE»IX»15»IX
♦»6HAANTAL»IX»15)
END
CRAATT15»I04»CM55000.
ACCOUNT»PW=***.
ATTACH»TAPE2»CY=1»ID=CRAAT.
ATTACH»PLOTLIB»ID=UACCU.
LIBRARY »PLOTLIB.
FTN.
LGO,
LDSET PRESET=ZERO
CHARONDISPLAY»FID=GRBRITID=BX.
*EOR
PROGRAM PL0TJE<TAPE2»OUTPUT)
CALL NAMPLT
40 CONTINUE
READ2» 20NRJXY
IF<E0F<2).NE.O.GOTO 80
CALL PLOTXY3
30 CONTINUE
READ(2»20)NR»J»X»Y
IF(E0F(2).NE.O.)GOTO 80
IF(J.EQ,1)G0T040
CALL PLOTX Y 2
GOTO 30
20 FORMAT 152X »I1»2X»2F10.3)
80 CALL AXIS(0.»0.1HX -1650 0 0 »1.
CALL AXIS<0.»0. 1HY1»65.»90.»0.1
CALL ENDPLT
END
*EOF
KT 1980. VI. 3