ROTATE COORDINATES AND TRANSLATE INTO CALIFORNIA LAMBERT COOROINAT 239 



C SYSTEM 

 C 



ZOO 

 241 



115 EAST(N)=DX1»C0SINE-DY1*SINE+BEAC1E 242 



116 N0RTH(N)=DX1*SINE+DY1*C0SINE+BEAC1N 243 



117 300 CONTINUE 2 44 



118 IF (LA6.EQ.0) 60 TO 360 245 



119 ASSIGN 360 TO KEY 2 i, 6 

 C 247 

 C ELIMINATE DATA SETS FOR WHICH AN 248 

 C IMAGINARY FIX MAS OBTAINEO 249 

 C 250 



120 310 LAG=0 251 



121 DO 350 N=1.LINE 252 



122 IF <IERK(N)-4> 330»320.32O 253 



123 320 LAG=LAG+1 254 



124 GO TO 350 255 



125 330 NMBR(N-LAG)=NMBR(N> 256 



126 TIME(N-LAG)=TIME(N) 257 



127 DO 340 I=lt2 258 



128 D(IrN-LAG>=D(I»N> 259 



129 340 RAD<IrN-LAG)=RAD(I»N> 260 



130 EAST(N-LAG)=EAST(N) 261 



131 NORTH(N-LAG)=NORTH(N> 262 



132 IERR(N-LAG)=IERR(N) 263 



133 350 CONTINUE 264 



134 LINE=LINE-LAG 265 



135 GO TO KEY»(360»430) 266 

 C 267 

 C CHECK NORTH AND EAST COORDINATES FOR 268 

 C EXTREME VALUES BY» CHAUVENET'S CRITERION 269 

 C 270 



136 360 NBAR=-1. 271 



137 CALL STUEV (NORTH»LINE»NBAR»SDNRTH> 272 



138 E8AR=-1. 273 



139 CALL STOEV (EASTf LINErEBARrSDEAST) 274 



140 ALPHA=l.-l./FLOAT(2*LINE> 275 



141 CHVR=TIN0RM(ALPHA»S365) 276 



142 GO TO 370 277 



143 365 CHVR=5.0 278 



144 WRITE <6»930> ALPHA 279 



145 370 GATE1=EBAR-CHVR*SDEAST 280 



146 GATE2=EBAR+CHVR*SDEAST 281 



147 GATEN1=NBAR-CHVR*SDNRTH 282 



148 GATEN2=l>lBAR+CHVK*SDNRTH 283 



149 LAG=U 284 



150 DO 420 N=1»LINE 285 



151 IF (EAST(N)-GATEl) 410»380»380 286 



152 380 IF (EAST(N)-GATE2) 390»390»410 287 



153 390 IF (UORTH(N)-GATENl) 410.400(400 288 



154 400 IF (NORTH (N)-GATEN2) 420»420i410 289 



155 410 IERR(N>=IERR(N>+4 290 



156 LAG=LAG+1 291 



157 420 CONTINUE 292 



158 ASSIGN 430 TO KEY 293 

 C 294 

 C ELIMINATE ANY DATA SETS THAT HAVE AN EXTREME 295 

 C VALUES OF THE NORTH OR EAST COORDINATES 296 

 C 297 



159 IF (LAG.GT.O) GO TO 310 298 

 C 299 

 C CALL SUBROUTINE FOR PLOTTING THE TRACK OF THE SURVEY VESSEL. 300 

 C 301 



160 430 NENTRY=1 302 



161 CALL NTRAN < 1TAPE» l.LINEtNMBR»L(2) ) 303 



162 IF (NOPT(l).EQ.l) CALL BENLH2 (NORTHf EASTrNMBR) 304 

 C 305 

 C APPLY A CORRECTION TO ALLOW FOR THE DISTANCE THE DETECTOR IS TOWED 306 

 C ASTERN OF THE SURVEY SHIP. 307 

 C 308 



163 440 IF (L(3).NE.-1) GO TO 450 309 



164 GO TO 440 310 



165 450 IF (L(3).LT.-1) GO TO 770 311 



166 DN0=N0RTH(l)-(NORTH(2)-NORTH(D) 312 



167 DE0=EASTtl)-(EAST(2)-EAST(D) 313 



168 OENOM=SQRT( (NORTHl 1 )-DN0 ) **2+(EAST<l )-DE0) *«2) 314 



169 NC0R0(1)=N0RTH(1)-CAHLE* (NORTH! 1 )-ON0)/DENOM 315 



170 ECORD(l)=EAST(l)-CABLE*(EAST(l)-DE0)/OENOM 316 



171 DO 480 N=2»LINE 317 



33 



