SUBROUTINE BENLH2 (NORTH.EAST.NMBR) 



11 NMAX='NORTH(l> 



12 NMIN=NOKTH(l) 



13 EMAX=EASTC1) 



14 EMINSEAST.d) 



15 DO 20 N=2>NPTS 



16 NMAX=AMAX1(NMAX.N0RTH(N>) 



17 NMIN=AMIN1(NMIN.N0RTH(N)) 



18 EMAX=AMAX1(EMAX.EAST(N>) 



19 EMIN=AM1N1(EMIN.EAST(N>> 



20 20 CONTINUE 

 C 



C CHECK SCALE TO BE SURE THAT NO FIXES WILL PLOT OFF THE MAP. 

 C CHANGE SCALE UNTIL ALL THE FIXES FIT ON THE PLOT. 

 C 



21 YSCALE=SCALE 



22 IF (NMAX-(NMIN+25.*SCALE)> 60r60»30 

 ITRNP=1 



IF <EMAX-(EMIN+25.*SCALE)> 60.60.40 

 IF ((EMAX-EMIN)-(NMAX-NMIN)) 60.50.50 

 ITRNP=0 



IF (ITRNP.EQ.O) GO TO 90 

 ASSIGN 90 TO KEY 

 CELL=EMAX 

 EMAX=NMAX 

 NMAX=-EMIN 

 EMIN=NMIN 

 NMIN=-CELL 

 00 80 N=1»NPTS 



CELL=NORTH(N> B-L 54 



NORTH(N)=-EAST(N) B-L 35 



EAST(N)=CELL B-L 56 



38 GO TO KEY. (90.130) B-L 57 



39 90 IF (NMAX-(NMIN+25.*SCALE)) 110.110.100 B-L 58 

 <*0 100 SCALE=SCALE+YSCALE B-L 59 



41 GO TO 90 B-L 60 

 C B-L 61 

 C TAKE THE ORIGIN OF THE PLOT AS THE MINIMUM COORDINATES REMAINDEREDB-L 62 

 C BY THE PLOT SCALE. B-L 63 

 C B-L 64 



42 110 NORGIN=SCALE*AINT(NMIN/SCALE) 



43 Y0RGIN=N0RG1N/SCALE 



44 EORGIN=SCALE*AlNT(EMJN/SCALE) 



45 XORGIN=EORGIN/SCALE 



46 120 IF (NENTRY.EQ.3.AND.NOPT(2).EQ.l) GO TO 150 



23 



30 



24 





25 



40 



26 



50 



27 



60 



28 





29 



70 



30 





31 





32 





33 





3i* 





35 





36 





37 



80 



B-L 



31 



B-L 



32 



B-L 



33 



B-L 



34 



B-L 



35 



B-L 



36 



B-L 



37 



B-L 



38 



B-L 



39 



B-L 



40 



B-L 



41 



B-L 



42 



B-L 



43 



B-L 



44 



B-L 



45 



R-L 



46 



B-L 



47 



B-L 



48 



B-L 



49 



B-L 



50 



B-L 



51 



B-L 



52 



B-L 



53 



c 



B-L 



65 



B-L 



66 



B-L 



67 



B-L 



68 



R-L 



69 



R-L 



70 



B-L 



71 



B-L 



72 



B-L 



73 



50 



130 



51 





52 



140 





C 





C 





C 





C 



53 



150 



54 





55 





56 





57 





58 



160 



59 





60 



170 



61 





62 





63 



180 



DIVIDE THE COORDINATES (IN FEET) BY THE SCALE (IN FEET). 



IF (NENTRY.EQ.l. OR. ITRNP.EQ.O) GO TO 130 



ASSIGN 130 TO KEY 



GO TO 70 



DO 140 N=1»NPTS 



X(|()=EAST(N)/SCALE 



Y(N)=NORTH(N)/SCALE 



WRITE IN THE LEGEND. SCALEr TYPE OF PLOT AN INJECTION DATE AT THE 

 BOTTOM LDGE OF THE PLOT. 



CALL LETTER (78.8.0. 1 .0.-1 .0. LEGEND) 

 CALL LETTER (8.8. 0.5. 0.-2. 2.8H1 INCH =) 

 CALL NUMBER (SCALE. 4. 1 .8. 0.7.2.-2.2) 

 CALL LETTER (4.8. 0.9.8.-2.2.4HFEET) 

 GO TO (160.170.180). NENTRY 



CALL LETTER (25.8.0. 12. .-2.2. 25HPLOT OF SURVEY TRACK LINE) B-L 88 



GO TO 190 B-L 89 



CALL LETTER (29.6.0. 12. .-2.0. 29HPL0T OF UNCORRECTED RADIATION) B-L 90 



CALL LETTER (29.6.0. 12. .-2.6. 29HR0UNDED TO NEAREST 100 COUNTS) B-L 91 



GO TO 190 B-L 92 



CALL LETTER (28.6.0. 12. .-2.0. 28HPL0T OF CORRECTED RADIATION/) R-L 93 



CALL LETTER 127.6.0. 12. .-2.6. 27HBACKGR0UN0 RAOIATION RATIOS) B-L 94 



CALL LETTER ( 14.6.0.20. .-2.0. 14HINJECTI0N DATE) B-L 95 



CALL LETTER (6.6.0.21.8.-2.5. INDATE) B-L 96 



CALL PLOT (0.0.0.0.3) B-L 97 



CALL PLOT (XORGIN.YORGIN.l) B-L 98 



R-L 



78 



B-L 



79 



B-L 



ao 



R-L 



81 



B-L 



82 



B-L 



83 



B-L 



84 



B-L 



85 



B-L 



66 



B-L 



87 



40 



