SUBROUTINE TRACK <NORTH»EAST.NMBR> 



54 

 55 

 56 

 57 

 58 

 59 

 60 

 61 



63 

 64 

 65 

 66 

 67 

 68 

 69 

 70 

 71 

 72 

 73 

 74 

 75 

 76 

 77 



90 



91 



92 



93 



94 



95 



96 



97 



98 



99 



100 



101 



102 



103 



104 

 105 

 106 

 107 



108 

 109 

 110 



120 

 C 

 C 

 C 



150 

 160 



C 

 C 

 C 



c 



170 



180 



190 



C 



C 



C 



00 120 N=1»NPTS 



IF (MODIIJ.NN) .NE.O) 60 TO 120 



IVAL=IFIX((RAD(N)-BGCR)/SIGMA+6.) 



IF (IVAL.LT.O) IVAL=0 



IF (IVAL.6T.il) IVAL=11 



IVAL=-IVAL 



CALL POINTV (EAST(N).NORTHlN).IVAL) 



CONTINUE 



PRINT LEGEND FOR SYMBOLS REPRESENTING UNCORRECTED VALUES 



CALL PRINTV (-6.6HLEGEND. 912.800) 



CALL POINTV (887.768.0.ANY) 



CALL PRINTV (-8.8HCCR .LE. .903.768) 



D=B6CR-5.*SI6MA 



CALL LABLV (0.975. 768.6.1.6) 



IY=752 



00 130 1=1.11 



N=-I 



CALL POINTV (887.IY.N.ANY) 



CALL PRINTV (-8.8HCCR .0T..903.IY) 



CALL LABLV (0.975. IY. 6. 1.6) 



D=D+SI6MA 



IY=IY-16 



60 TO 220 



CALL PRINTV (-38.38HPL0T OF CORRECTED RADIATION COUNT RATE. 24. 8) 



CALL 6RID1V <2.EMIN.EMAXV.NMIN.NMAXV.SCALE.SCALE»5#5.5.5.-5.-4> 



PLOT CORRECTED RADIATION COUNT RATE AS BACK6R0UND IF .LT. 3 9Tb. 

 DEVS. FROM BACKGROUND. IF COUNT RATE IS MORE THAN 3 STD. OEVS. 

 BELOW BACKGROUND* THE VALUE IS NOT PLOTTED AT ALL. 



DO 190 N=1»NPTS 



IF (MOO(N.NN).NE.O) GO TO 190 



IF (RADIN)+3.*S1GMA) 190.160.150 



IF (RA0(N)-3.*SIGMA) 160.160.170 



IVAL=0 



GO TO 180 



IF THE COUNT RATE IS .G,. BACKGROUND. THE VALUE IS PLOTTED ON A 



POWER OF 2 » 25 SCALE 



IVAL=IFIX(ALOG(RAO(N)/100.)/PHI+3.) 



IF (IVAL.LT.l) IVAL=1 



IF (IVAL.6T.12) IVAL=12 



IVAL=-IVAL 



CALL POINTV (EAST(N).NORTH(N).IVAL) 



CONTINUE 



PRINT LEGEND FOR SYMBOLS REPRESENTING CORRECTED VALUES 



CALL PRINTV (-6.6HLEGEND.912.800) 



CALL POINTV (887. 768.0. ANY) 



CALL PRINTV (-8.8HCCR .LE. .903.768) 



D=3.*SIGMA 



CALL LABLV (0.975.768.6.1.6) 



0=25. 



IY=752 



DO 200 1=1.12 



N=-I 



CALL POINTV (887.IY.N.ANY) 



CALL PRINTV (-8.8HCCR .6E..903.IY) 



CALL LABLV (D.975. IY.6.1.6) 



D=D*2. 



IY=IY-16 



PLOT MEAN RADIATION LOCATION 



IX=NXV(EBAR) 



IY=NYV(NBAR) 



CALL POINTV (IX.IY.O.ANY) 



CALL PRINTV (-8.8H0 RADBAR. IX. IT) 



PLOT POSITION OF INJECTION SITE 



IF (DUMPN.GT.NMAX.OR.DUMPN.LT.NMIN) GO TO 210 



IX=NXV(OUMPE) 



IY=NYV(OUMPN) 



TRK 



80 



TRK 



81 



TRK 



82 



TRK 



83 



TRK 



84 



TRK 



85 



TRK 



86 



TRK 



87 



TRK 



88 



TRK 



89 



TRK 



90 



TRK 



91 



TRK 



92 



TRK 



93 



TRK 



94 



TRK 



95 



TRK 



96 



TRK 



97 



TRK 



98 



TRK 



99 



TRK 



100 



TRK 



101 



TRK 



102 



TRK 



103 



TRK 



104 



TRK 



105 



TRK 



106 



TRK 



107 



TRK 



108 



TRK 



109 



TRK 



110 



TRK 



111 



TRK 



112 



TRK 



113 



TRK 



114 



TRK 



115 



TRK 



116 



TRK 



117 



TRK 



118 



TRK 



119 



TRK 



120 



TRK 



121 



TRK 



122 



TRK 



123 



TRK 



124 



TRK 



125 



TRK 



126 



TRK 



127 



TRK 



128 



TRK 



129 



TRK 



130 



TRK 



131 



TRK 



132 



TRK 



133 



TRK 



134 



TRK 



135 



TRK 



136 



TRK 



137 



TRK 



138 



TRK 



139 



TRK 



140 



TRK 



141 



TRK 



142 



TRK 



143 



TRK 



144 



TRK 



145 



TRK 



146 



TRK 



147 



TRK 



148 



TRK 



149 



TRK 



150 



TRK 



151 



TRK 



152 



TRK 



153 



TRK 



154 



TRK 



155 



TRK 



156 



TRK 



157 



58 



