PROGRAM — RAPLOT II 



C 79 



C READ .IN DATA CONTROL CARD BO 



C 81 



7 10 IF (L(l).NE.-l) GO TO 20 82 



8 GO TO 10 81 



9 20 IF (L(l).LT.-l) GO TO 770 8<t 



10 READ (5.780) CABLE.DEPTH.BOAT.BKG.ZHRf ZMIN.OAYS.HLIFE.SETIME.RMIN. B5 

 1SEC»BEAC1N.BEAC1E»BEAC2N«8EAC2E»ISKIP 86 



C 87 



C READ IN PLOT CONTROL PARAMETERS 88 



C 89 



11 READ (5f790> NOPT. SCALE. (NPLT( I) » I=lf3> .GRID.0UMP1.DUMP2. INDATE 90 



12 DO 40 1 = 1.3 91 



13 IF (NPLT(D) 30.30.40 92 



14 30 NPLT(I)=1 93 



15 40 CONTINUE 94 

 C 95 

 C READ IN PLOT LEGEND 96 

 C 97 



16 READ (5.800) LEGEND. JOBEND 98 



17 WRITE (6.810) LEGEND. JOBEND 99 



18 WRITE (6.820) BEAC1N.BEAC1E.BEAC2N.BEAC2E 100 

 C 101 

 C COMPUTE PROGRAM PARAMETERS FROM DATA CONTROL CARD ENTRIES 102 

 C 103 



19 SQ0STB=(BEAC2N-BEAC1N)»*2+(BEAC2E-BEAC1E>»»2 104 



20 DIST3=SQRT(SQDSTB> 105 



21 WRITE (6.830) SQDSTB.DISTB 106 



22 SINE=(BEAC2N-BEAC1N)/DISTB 107 



23 C0SIME=(BEAC2E-BEAC1E)/DISTB 108 



24 WRITE (6.840) SINE. COSINE 109 



25 WRITE (6.850) ZHR.ZMIN.SETIME.RMIN.SEC.DAYS 110 



26 ZHR=ZHR+ZMIN/60. Ill 



27 SETIME=SETIME+RMIN/60. 112 



28 0ELAY=SETIME+0AYS*24.-ZHR 113 



29 IF (HLIFE.GT.0.0) DECAY=ALOG(2. )/(HLIFE*24. ) 114 



30 WRITE (6.860) HLIFE. DECAY. DELAY 115 



31 WRITE (6.870) CA3LE.DEPTH.B0AT 116 



32 CABLE=B0AT+SQRT(CABLE»*2-DEPTH**2) 117 



33 WRITE (b.880) CABLE . 118 



34 WRITE (6.890) (N0PT( f ). 1=1.3) 119 

 C 120 

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

 C THE BEACONS 122 

 C 123 



35 IF (DUMP1) 80.80.50 124 



36 50 DUMPl=(0UKPl+C0Kl>*3. 28083 125 



37 DUMP2=(DUMP2+COR2)*3. 28083 126 



38 0X1=(S0DSTB+DUMP1*DUMP1-0UMP2*DUMP2»/(0ISTB»2.) 127 



39 DY1=0UMP1*DUMP1-DX1*DX1 128 



40 IF (DY1) 60.60.70 129 



41 60 SITEN=-999999. 130 



42 WRITE (6.900) 131 



43 GO TO 80 132 



44 70 DY1=-SQRT(DY1) 133 



45 SITEE=DX1*C0SINE-0Y1*SINE+BEAC1E 134 



46 SITEN=DX1*SINE+DY1*C0SINE+BEAC1N 135 



47 WRITE (6.910) SITEN.SITEE 136 

 C 137 

 C TEST FILE SENTINEL TO BE SURE THAT THE CORRECT DAtA FILE IS BEING 138 

 C READ IN 139 

 C 140 



48 80 READ (NTAPE) SENTNL 141 



49 IF (SENTNL(1).EQ.W0RD1.AND.SENTNL(2).EQ.W0R02> GO TO 730 142 



50 IF (SENTNL(1).EQ.LEGEND(12).AND.SENTNL(2).EQ.LEGEND(13)> GO TO 90 143 



51 CALL NTRAN (NTAPE. 8.1) 144 



52 GO TO 80 145 



53 90 WRITE (6.920) SENTNL 146 

 C 147 

 C READ IN THE DATA FILE FROM ONE RIST SURVEY 148 

 C 149 



54 100 IF (L(2).NE.-D GO TO 110 150 



55 GO TO 100 151 



56 110 IF (L(2).LT.-1) GO TO 770 152 



57 CALL NTRAN ( ITAPE. 1 . 13.LEGEND.L(1 1 ) 153 



58 READ (NTAPE) LINE. (NMBR(N) .TIME(N) .0(1. N) .0(2. N) .RAD(l.N) .RADI2.N) 1S4 

 l.FATH(N).N=l.LINE) 155 



59 CALL NTRAN (NTAPE.8.1) 156 



60 IERR(1>=0 157 



61 00 130 N=2.LINE 158 



31 



