SUBROUTINE BENLH2 (NORTH* EAST »NMBR> 



C PLOT IN TIC MARKS. WITH COORDINATES* AT THE LEFT AND LOWER BOROERSR-L 100 



C OF THE PLOT. B-L 101 



C 



69 CALL SYMBOL (XORGIN. YORGIN.20.66) 



70 IF (GRID. LE. 0.0) GO TO 230 



71 TICN=GRID*(1.+AINT(N0RGIN/GRID>> 



72 TICE=GR1J*(1.+AINT(E0RGIN/GRID>> 



73 YTIC=TICN/SCALE 

 71 XSHIFT=X0RGIN-1.28 



75 200 CALL REPSYM (XORGIN.YTIC) 



76 CALL NU.IdER (TICN. 8.0*14*0* XSHIFT. YTIO 



77 YT1C=YTIC+GRID/SCALF 



78 TICN=TICN+GRIO 



79 IF (YTIC-(Y0KGIN+25.)> 200*200.210 



80 210 XTIC=TICE/SCALE 



81 YSHIFT=Y0RGIM-.5 



82 220 CALL REPSYM (XTIC. YORGIN) 



83 CALL NUMBER (TICE.8.0.*»O.XTIC» YSHIFT) 

 8* XTIC=XTIC+GRID/SCALE 



85 TICE=TICE+GRID 



86 IF (XTIC-IX0RGIN+25.)) '220.220*230 



87 230 CONTINUE 

 C 



C PLOT THE INJECTION SITE. 

 C 



88 IF (JUMPN.GT.NMAX.OR.OUMPN.LT.NMIN) GO TO 2<»0 



89 YD=DUMPN/SCALE 



90 XD=DUMPt/SCALE 



91 CALL SYMBOL (XO. YD. 10.70) 



92 XD=XU+.2 



93 CALL LETTER <*.*»0»XD» YD.*HOUMP> 

 C 

 C PLOT THE MEAN LOCATION OF THE RADIATION DISTRIBUTION. 



9* 2*0 IF (NENTRY-3) 260.250.260 



95 250 IF (ITRNP.EO.l) GO TO 260 



96 YB=NBAR/SCALE 



97 XB=EBAR/SCALE 



98 CALL SYMBOL (XB.YB. 10.71) 



99 XB=XB+.2 



100 CALL LETTER <6.*.0.XB* YB*6HRADBAR) 



101 260 NN=NPLT(NfcuTRY> 



102 ,MSTART=1+NU 



103 IF (MENTRY-2) 270*290*310 

 C 



C PLOT THE TRACK LINE FOLLOWED BY THE SURVEY VESSEL. 

 C 



10"* 270 CALL LINE (X.Y.NPTS. 3*65*5) 



105 DO 280 N=1»NPTS.NN 



106 Z=FLOAT(NMBR(N)) 



107 CALL NUMBER <Z*3»0»2»0»X<N> • Y(N) ) 



108 280 CONTINUE 



109 GO TO 440 

 C 



C PLOT THE BACKGROUND RAOIATION AT EVERY NNTH POINT. 

 C 



110 290 CALL SYMBOL (X ( 1) » Y( 1 ) .3*67) 



111 Z=RA0<1. 11/100. 



112 CALL NUMBER (Z.3.0.2.0.X (1) » Y(l) ) 



113 DO 3J0 I=NSTART.NPTS 



114 CALL REPSYM (Xtl).Y(I)) 



115 IF (MOD(I.KN).NE.O) GO TO 300 



116 Z=RAO(1.I)/100. 



117 CALL NUMBER (Z.3'0.2.0*X( I) > Y(I) ) 



118 300 CONTINUL 



119 GO TO **o 

 C 



C PLOT CORRECTED RADIATION VALUES AT EVERY NNTH POINT. 

 C 



120 310 RADUL(1)=3.*SIGMA(1) 



121 RAUUL(2>=100. 



122 DO 320 L=3.7 

 123. 320 RADUL(L)=2.*RADUL(L-1) 

 12* LAST=0 

 12b JO *20 I=1.NPTS 



R-L 



102 



R-L 



103 



R-L 



10<* 



B-L 



105 



R-L 



106 



R-L 



107 



R-L 



108 



R-L 



109 



B-L 



110 



B-L 



111 



B-L 



112 



B-L 



113 



R-L 



11* 



B-L 



115 



B-L 



116 



B-L 



117 



B-L 



118 



B-L 



119 



B-L 



120 



R-L 



121 



R-L 



122 



R-L 



123 



B-L 



12* 



B-L 



125 



B-L 



126 



R-L 



127 



R-L 



128 



B-L 



129 



B-L 



130 



B-L 



131 



B-L 



132 



R-L 



133 



R-L 



13". 



R-L 



135 



B-L. 



136 



B-L 



137 



B-L 



138 



B-L 



139 



B-L 



1*0 



B-L 



141 



B-L 



1*2 



R-L 



1<»3 



B-L 



1** 



B-L 



1*5 



B-L 



1*6 



B-L 



1*7 



B-L 



1*8 



BH_ 



1*9 



B-L 



150 



B-L 



151 



R-L 



152 



R-L 



153 



R-L 



15* 



R-L 



155 



B-L 



156 



B-L 



157 



R-L 



158 



B-L 



159 



B-L 



160 



B-L 



161 



R-L 



162 



R-L 



163 



R-L 



16* 



R-L 



165 



B-L 



166 



H-L 



167 



R-L 



168 



B-L 



lf.9 



B-L 



170 



R-L 



171 



B-L 



172 



B-L 



173 



R-L 



17* 



B-L 



175 



41 



