PROGRAM -- RAPLOT III MODIFIED FOR IBM-7094 WITH SC-4060 CRT 



C 78 



C READ IN DATA CONTROL CARD 79 



C ao 



11 READ (5.620) CA8LE.DEPTH.B0AT.BKG.ZHR.ZMIN.DAYS.HLIFE.SETIME.RMIN. 81 

 1SEC.BEAC1N.BEAC1E.BEAC2N.BEAC2E.ISKIP 82 



C 83 



C READ IN PLOT CONTROL PARAMETERS 84 



C 85 



12 READ (5.630) NOPT. SCALE. (NPLT( I) . 1=1.3) .GRID. DUMP1.DUMP2. INDATE 86 



13 DO 30 1=1.3 87 

 It IF (NPLT(D) 20.20.30 88 



15 20 NPLT(I)=1 89 



16 30 CONTINUE 90 

 C 91 

 C READ IN PLOT LEGEND 92 

 C 93 



17 READ (5.640) LEGEND. JOBEND 9* 



18 WRITE (6.650) LEGEND. JOBEND 95 



19 WRITE (6.660) BEAC1N.BEAC1E.BEAC2N.BEAC2E 96 

 C 97 

 C COMPUTE PROGRAM PARAMETERS FROM DATA CONTROL CARD ENTRIES 98 

 C 99 



20 SQDSTB=(BEAC2N-BEAC1N)**2+<6EAC2E-BEAC1E)**2 100 



21 0IST13=SQRT(SQDSTB> 101 



22 WRITE (6.670) SQDSTB.DISTB 102 



23 SINE=(8EAC2N-BEAC1N>/DISTR 103 



24 C0SINE=(BEAC2E-BEAC1E)/DISTB 104 



25 WRITE (b.680) SINE. COSINE 105 



26 WRITE (6.690) ZHR.ZMIN.SETIME.RMIN. SEC. DAYS 106 



27 ZHR=ZHR+Zf-<IN/60. 107 



28 SETIME=SETIME+RNIN/60. 108 



29 0ELAY=SETIME+DAYS*24.-ZHR 109 



30 IF (HLIFE.GT.0.0) DECAY=AL0G(2. )/(HLIFE*24. > 110 



31 WRITE (6.700) HLIFE. DECAY. DELAY 111 



32 WRITE (6.710) CABLE. DEPTH. BOAT 112 



33 CABLE=B0AT+SQRT(CABLE**2-DEPTH**2) 113 



34 WRITE (6.720) CABLE ll4 



35 WRITE (6.730) (NOPT ( I ). 1 = 1 .3) 115 

 C 116 

 C COMPUTE COORDINATES OF THE INJECTION SITE FROM THE DISTANCES FROM 117 

 C THE BEACONS 118 

 C 119 



36 IF (DUMP1) 70. 70.40 120 



37 40 DUMP1=(DUMP1+C0RR1)*3. 28083 121 



38 DUMP2=(DUMP2+C0RR2)*3. 28083 122 



39 DX1=(S0DSTB+DUMP1«DUMP1-DUMP2*DUMP2)/(DISTB*2.) 123 



40 DY1=JUMP1*DUMP1-DX1*DX1 124 



41 IF (OY1) 50.50.60 125 



42 50 SITEN=-999999. 126 



43 WRITE (6.740) 127 



44 GO TO 70 128 



45 60 DY1=-SQRT(DY1) 129, 



46 SITEE=DX1*C0SINE-DY1*SINE+BEAC1E 130 



47 SITEN=DX1*SINE+UY1*C0SINE+BEAC1N 131 



48 WRITE (6.750) SITEN.SITEE 132 

 C 133 

 C READ IN THE DATA FILE FROM ONE RIST SURVEY. ELIMINATING ANY LINES 134 

 C THAT CONTAIN A -3. WHICH IS AN ERROR FLAG 135 

 C 136 



49 70 N=l 13? 



50 80 CALL RESET 138 

 5.' READ (5.760) NMBR(N) .TIME(N) .D(l.N) >D(2.N) .RAD(N) .FATH(N) . JFLAG 139 



C 140 



C CHECK FOR END OF FILE 141 



C . 142 



52 CALL CHECK (E) 143 



53 IF (E) 100.90.100 - 144 

 C 145 

 C CHECK ERROR FLAG ON INPUT RECORD 146 

 C 147 



54 90 IF (IFLAG.NE. JFLAG) GO TO 80 148 



55 IF (NMBRIN).LT.O) GO TO 80 149 



56 IF (TIME(N).LT.O.O) GO TO 80 150 



57 IF (D(l.N).LT.O.O) GO TO 80 151 



58 IF (D(2.N).LT.0.0) GO TO 80 152 



59 IF (RAD(N).LT.O.O) GO TO 80 153 



60 IF (FATH(N).LT.O.O) GO TO 80 154 



61 IF (N.GE.LO00) GO TO 100 155 



62 N=N+1 156 



63 GO TO 80 157 



49 



