c 



SUBROUTINE TRACK (NORTH. EAST »NMBR> 



SUBROUTINE TRACK (NORTH.EAST.NMBR) TRK 1 



C TRK 2 



C THIS SUBROUTINE GENERATES PLOT INSTRUCTIONS FOR THE STROMBERG- TRK 3 



C CARLSON 4020 CATHOOE RAY TUBE. TRK 4 



c TRK 5 



COMMON /AA/ N0PT(4>.NPLT(3)»SCALE»GRID.DUMPN.DUMPE.NRAR.EBAR.LEGENTRK 6 



lD(13).lNDATE<NPTS»BGCR»SIGMA.NMAXfNMIN.EMAX.EMIN.J0BEND»NENTRYrNCATRK 7 



2LLS»HCAM TRK 8 



DIMENSION EAST(2000>» NMBRI2000) TRK 9 



REAL NORTH(2000)»NBAR»NMAX»NMINrNMAXV TRK 10 



LOGICAL JOBEND TRK u 



10 IF (NCALLS.GT.l) GO TO 20 TRK 12 



TRK 13 



INITIALIZE CAMERA* AND PRINT ID FRAME TRK 14 



q TRK 15 



7 PHI=AL0G(2.) TRK 16 



8 CALL FRAMEV TRK 17 



9 CALL SETMIV (0rl40»32»0) TRK IB 



10 20 LAST=3 TRK 19 



11 30 IF (NOPT(LAST).NE.O) GO TO ".0 TRK 20 



12 LAST=LAST-1 TRK 21 



13 c G ° T ° 3 ° ™ A 

 C COMPUTE MAXIMUM AND MINIMUM VALUES OF NORTH AND EAST ARRAYS TRK 2<» 

 c TRK 25 



14 40 NMAX=NOKTHU) TRK 26 



15 NMIN=NOKTH(l> TRK 2T 



16 EMAX=EAST(1) JRK ?8 



17 EMIN=EAST(1) TRK 29 



18 DO 50 N=2'NPTS TRK • 5D 



19 NMAX=AMAX1(NMAX.N0RTH(N)) TRK 31 



20 NMIN=AMIN1(NMIN»N0RTH<N>> TRK 32 



21 EMAX=AMAX1(EMAX»EAST(N>> TRK 33 



22 50 EMIN=AM1N1(EMIN«EAST(N)) TRK 3< » 



23 XRATI0=(EMAX-EMIN>/883. TRK 3 * 



24 YRATI0=(NMAX-NMIN)/991. TRK 36 



25 IF (XRATIO-YRATIO) 60r80i70 TRK \Z 



26 60 EMAXV=EMIN+YRATI0*883. TRK 38 



27 NMAXV=NMAX TRK 39 



28 GO TO 8U J™ 1° 



29 70 NMAXV=NMIN+XRATI0*991. TRK 41 



30 EMAXV=EMAX TRK 42 



31 GO TO 80 TRK 3 



32 ENTRY RADPLT(NORTH»EAST.RAO) TRK * 35 



33 DIMENSION RADI2000) I RK , 7* 



34 IF (N0PT(l).EO.0.AND.NENTRY.EO.2) GO TO 10 TRK 45 



35 IF (NOPT(l).EO.0.ANO.NOPT(2).E0.0.AND.NENTRY.EO.3) GO TO 10 TRK 46 



C PRINT LEGEND AND INJECTION DATE AT BASE OF MAP. TRK 48 



c TRK 49 



36 80 CALL PR1NTV (78>LEGEND»24r24) TRK 50 



37 CALL PRINTV (-14» 14HINJECTI0N OATE»720.B> TRK 51 



38 CALL PRINTV (6. IN0ATE»848.8) TRK 52 



39 NN=NPLT(NENTRY) TRK 53 



40 GO TO (90«110»l'»0)r NENTRY TRK 54 



41 90 CALL PRINTV (-25>25HPL0T OF SURVEY TRACK LINE»24r8) TRK 55 



42 CALL GRID1V (2r EMIN»EMAXV.NMIN.NMAXV.SCALE«SCALEr5t 5»5r5»-5»-4> TRK 56 

 c TRK 57 

 C PLOT TRACK LINE FOLLOWED BY SURVEY VESSEL TRK 58 



TRK 59 



DO 100 N=2»NPTS TRK 60 



CALL LINEV (NXV(EAST(N-l))»NYV(N0RTH(N-l)).NXV(EAST(N))fNYV(N0RTH(TRK 61 



IN))) TRK 62 



45 IF (MOD(N»NN) .NE.O) GO TO 1UO TRK -63 



46 CALL POINTV (EAST(N) »NORTH(N) t-3) TRK 64 



47 0=FLOAT(NMBR(N)> TRK 65 



48 IX=NXV(EAST(N))+5 TRK 66 

 c TRK 67 

 C PLOT FIX NUMBER OF EVERY NNTH FIX TRK 68 



TRK 69 



CALL LABLV (D» IX»NYV(NORTH(N) ) .4»lf 4) TRK 70 



CONTINUE TRK 71 



51 GO TO 220 TRK 72 



52 110 CALL PRINTV (-62»62HPL0T OF UNCORRECTED RADIATION IN STD. DEVS. FRTRK 73 



10M MEAN BKG. CR.»24.8) TRK 74 



53 CALL GRID1V (2rEMINiEMAXV»NMIN»NMAXV»SCALE»SCALE»5»5»5.5.-5p-4) TRK 75 

 c TRK 76 

 C PLOT UNCORRECTED RADIATION VALUES IN STANOARO DEVIATIONS FROM MEANTRK 77 

 C BACKGROUND COUNT RATE TRK 78 



TRK 79 



C 



C 



C 



57 



