SUBROUTINE BENLH2 ( NORTH » EAST rNMBR) 



12o 





127 



330 



12a 





129 



340 



130 





131 





132 





133 





134 



350 



lib 





136 





137 



360 



138 



370 



139 





140 



380 



141 





102 



390 



343 



400 



144 



410 



145 





146 



420 



147 





140 





149 





150 





151 





152 





153 





154 





155 





156 





157 





158 





159 





160 





161 





162 



430 



163 





164 





165 







C 





C 





C 



166 



440 



167 





168 





169 





170 





171 





172 





173 





174 





175 





176 





177 





178 





179 



450 



160 



460 



1B1 





SYMBOL 





10 



- 



20 



- 



30 



- 



40 



- 



50 



- 



60 



- 



7U 



- 



80 



- 



90 



- 



100 



- 



110 



- 



DATA POINTS HAVING CORRECTED RADIATION COUNTS MORE THAN 3 STANDARDR- 

 DEVIATIONS BELOW MEAN BACKGROUND COUNT RATE ARE NOT PLOTTEO. SUCHR- 

 LO«r READINGS MAY INDICATE THAT THE DETECTOR WAS OVERTURNED OR WAS B- 



•FLY1NG' R- 



R- 

 lr (RAD(1»I)+RADUL(D) 420»420»330 R- 

 JO 3S0 L=l»7 R- 

 IF :kA0(1>I)-RADUL(L)) 340*340.350 R- 

 !ISYM=64+L R- 

 IH=1 fl- 

 IP (nSYM.GT.65) IH=2 R- 

 IF ( <SY',.6T.t>9> IH=4 R- 

 GO TO 3&0 B- 

 COKTINUt R- 

 NSY"-1=72 R- 

 IH=4. R-- 

 IF (NSYM-LAST) 380.370.360 R- 

 CALL REPSYM (X(i>.Y<I>> R- 

 GO TO 390 R- 

 CALL SYMBOL (X ( I ) . Y ( I ) » IHiNSYM) R- 

 ,_AST=NSYM B- 

 IF (MOD(I.NM) 400.400.420 B- 

 IF <«ADll.I)-BGCR(l>> 420.420.410 R- 

 Z=RAD<1.I>/BGCRU) B- 

 CALL NUMBER <Z.3»0.2.0.X( I > » Y( I) > R- 

 CONTINUE B- 

 XEDGE=AMAXH(EMAX/SCALE)+2..XOR~GIN+27) B- 

 YPT=Y0RGIN+12.5 B- 

 CALL LETTER (26.4.0.XEDGE. YPT.26HC0RRECTED COUNT RATE (C/S) ) B- 

 YPT=YPT-.5 B- 

 XSHIFT=XEDGE+.5 B- 

 XSHFT2=XSHIFT+2.0 B- 

 NSYM=64 R- 

 IH=1 R" 

 DO 430 L=l>7 R- 

 NSYM=NSYM+1 B- 

 IF (NSYM.GT.65) IH=2 B- 

 IF (NSYM.GT.69) IH=4 B- 

 CALL SYMBOL ( XEUGE. YPT. IH.NSYM) B- 

 CALL LETTER I 16.3.0.XSHIFT. YPT. 16HCCR .LT. OR .EO.) B- 

 CALL NUMBER <RADUL(L> »5. 1 .3.0.XSHFT2.YPT) B- 

 YPT=YPT-.4 B- 

 CALL SYMBOL (XEDGE. YPT. IH.72) B- 

 CALL LETTER ( 16.3. O.XSHIFT. YPT. 16H CCR .GT.) B- 

 CALL NUMBER (RADULC7) .5. 1.3.0.XSHFT2. YPT) B- 



MOVE PEN TO RIGHT BORDER OF PLOT IN PREPARATION FOR NEXT PLOT. 



XEDGE=AMAX1(EMAX/SCALE+9..X0RGIN*34.) 



CALL PLOT (XEDGE.Y0RGIN.3) 



CALL PLOT (0.0.0.0.1) 



CALL PLOT (0.0.0.0.-3) 



IF (ITRNP.EQ.O) GO TO 460 



CELL=EMAX 



EMAX=-NMIN 



NMIN=EMIN 



EM1N=-NMAX 



NMAX=CELL 



DO 450 N=1.NPTS 



CELL=EAST(N) 



EAST(N)=-NORTH(N) 



NORTH(N)=CELL 



RETURN 



END 



27* 



39* 41 



b 



10* 



15 



20* 



22 



23* 



24 



25* 



25 



26* 



22 



24 



29* 



49 



34 



37* 



27 



28 



39 



40* 



39 



42* 



176 

 177 

 178 

 179 

 180 

 lfll 

 182 

 183 

 184 

 185 

 186 

 187 

 188 

 189 

 190 

 191 

 192 

 193 

 194 

 195 

 196 

 197 

 198 

 199 

 200 

 201 

 202 

 203 

 204 

 205 

 206 

 207 

 208 

 209 

 210 

 211 

 212 

 213 

 214 

 215 

 216 

 217 

 218 

 219 

 220 

 221 

 222 

 223 

 224 

 225 

 226 

 227 

 228 

 229 

 230 

 231 

 232 

 233 

 234 

 235 

 236 

 237 

 238 

 239- 



42 



