PROGRAM -- RAPLOT III MODIFIED FOR IBM-7094 WITH SC-4060 CRT 



229 550 SDNRTH=SDNRTH+(NCORD(N)-NBAR)*(NCORD(N)-NBAR)*CCR(N) 392 



230 SDEAST=SDEAST+(EC0RD(N>-EBAR>*<EC0RD<N>-E8AR)*CCR(N> 393 



231 560 CONTINUE 39* 



232 SDNRTH=SQRT(SDNRTH/SUM) 395 



233 SDEAST=SQRT(SDEAST/SUM) 396 



234 WRITE (6«800) NBAR.EBAR.SONRTH.SDEAST 397 

 C 398 

 C COMPUTE AND PRINT 95 PC. CONFIDENCE LIMITS OF MEAN RADIATION 399 

 C LOCATION. (400 

 C U01 



235 RTSUM=SQRT(SUM/8GCR) i»02 



236 CFIDN=1.96*SDNRTH/RTSUM i»03 



237 CFIDE=1.96*5DEAST/RTSUM 404 



238 WRITE (6.810) CFIDN.CFIOE 405 



239 570 NENTRY=3 406 



240 IF (N0PT(3).EQ.1> CALLRADPLT (NCORD.ECORO»CCR) 407 

 2H1 WRITE (6.820) NMAXtEMAX 408 



242 WRITE (6.830) NMIN.EMIN l»09 

 C 1*10 

 C WRITE OUT THE NUMBER' COORDINATES AND ACTIVITY OF EACH DATA POINT til 

 C 412 



243 K0UNT=50 413 

 24*4 DO 600 N=1»LINE i|]ii 



245 IF (KOUNT-50) 590.580.580 415 



246 580 WRITE (6.840) LEGEND i»16 

 217 KOUNT=0 U17 



248 590 WRITE (6.650) NMBR(N) »TIME(N) .NORTH(N) .EAST(N) .NCORD(N) .ECORD(N) .C <*18 



1CR(N).FATH(N) 1*19 



249 600 KOUNT=KOUNT+l t*20 



250 WRITE (6.860) 1*21 



251 IF (.NOT.JOBEND) GO TO 10 422 



252 STOP 423 

 C 1*21* 



253 610 FORMAT (1H1) 1*25 

 251* 620 FORMAT 13F3.0»F7.0.8X.2F2.0»F3.0.F5.2»3F2.0»4(1X.F7.0) . 13) 1*26 



255 630 FORMAT (411 .F10.0. 1X.3I2. 1X»F10.0»2( 1X.F10.0) . IX. A6> 1*27 



256 61*0 FORMAT (13A6.L2) 1*28 



257 650 FORMAT ( 10X . 13A6. 10X.L2) 1*29 



258 660 FORMAT (/5X.8HBEAC0N 1 .F10.0. 1HN.F10.0. 1HE.5X.8HBEAC0N 2.F10.0.1HN 1*30 



1.F10.0.1HE//) 1*31 



259 670 FORMAT (5X .21HSQUARE DIST BETWEEN =.E16.8.5X. 18HDISTANCE BETWEEN = 1*32 



1.F10.0) 1*33 



260 680 FORMAT (5X.6HSINE =.E16.8.5X.8HC0SINE =.E16.8) 434 



261 690 FORMAT (5X. 16HIHJECTI0N TIME =.2F3.0. 10X. 12HCL0CK SET AT.2F3.0.5X. 1*35 



121HDIGITIZING INTERVAL =.F3.0.7HSECONDS/5X.30HDAYS ELAPSED SINCE I 1*36 



2NJECTION =.F3.0) 1*37 



262 700 FORMAT (5X.22HHALF-LIFE OF ISOTOPE =.F7.2.i*H0AYS.5X» li*HOECAY FACTO 1*38 



1R =.E16.8»5X.19HTIME-DELAY FACTOR =»F7.2.5HH0URS) 1*39 



263 710 FORMAT ( 10X. 14HCABLE LENGTH =.Fl*.0. 10X. 18HMEAN WATER DEPTH =.F4.0» i*t*0 



110X.13HBOAT LENGTH =.F4.0) i*i«1 



261* 720 FORMAT ( 10X.38HDISTANCE FROM RADAR MAST TO DETECTOR =»F6.1 .5HFEET. i*i»2 



1) l*i»3 



265 730 FORMAT (//40X.15HPLOTS GENERATED/10X.9HTRACKLINE* I5.10X.20HBACKGRO 444 



1UND RADIATION. 15. 10X.19HCORRECTEO RADIATION. 15) 1*1*5 



266 740 FORMAT (5X.51HBEAC0N RANGES FOR DUMP SITE COMPUTE IMAGINARY ROOT.) 1*1*6 



267 750 FORMAT ( 10X.37HLAMBERT COORDINATES OF INJECTION SITE.F10.0. 1HN.F10 1*1*7 



1.0. 1HE) 1*1*8 



268 '60 FORMAT ( I6.3F7.1.F7.0.7X.F7.0. Alt 1*1*9 



269 770 FORMAT (37H THERE WAS AN OVERFLOW WHEN ALPHA WAS.F6.3.5X.25HCHVR W 1*50 



IAS SET EQUAL TO 5.0) 451 



270 780 FORMAT (//20X.53HSUM"IARY STATISTICS OF BACKGROUND RADIATION COUNT 1*52 



1RATE/10X.21HEST. BKG. COUNTS/SEC. .F10.0/10X.21HMEAN RKG. COUNTS/SE 453 



2C..F10.0/10X.21HSTD. DEV. COUNTS/SEC. .F10 .0) 451* 



FORMAT (//10X.33HSUM OF CORRECTED RADIATION C0UNTS.E16.8) 455 



FORMAT (//20X.41HSUMMARY STATISTICS OF RAOIATION LOCATION. /24X. 11H 456 



1NORTH COORD. 10X.10HEAST COORD/16X.4HMEAN.5X.F10.0. 10X.F10.0/11X.9H 457 



2ST0. DEV.»5X>F10.0»10X»F10.0) 458 



FORMAT (10X.10HCONFIOENCE/7X.13HLIMIT OF MEAN.5X.F10.0. 10X.F10.0 ) 459 



FORMAT (//7X.13HMAXIMUM COORD. 5X. F10. 0. 1HN.9X.F10.0. 1HE) 460 



FORMAT (//7X.13HMINIMUM COORD. 5X. F10. 0. 1HN. 9X.F10. 0» 1HE//) 461 



FORMAT (1H1.9X.13A6//2X.50HLINE TIME DISTANCE TO BEACON BOAT 462 



1COORDTNATES.4X.50HBALL COORDINATES UNCORRECTED CORRECTED DEP 463 



2TH/9X.3HSEC8X.1H1.9X.1H2.6X.5HH0RTH.6X.4HEAST.5X.5HN0RTH.6X.4HEAS 464 



3T.4X.20HRADIATION COUNTS/SEC. 6X.4HFEET) 465 



FORMAT (1X.I5.F6.0.20X.4F10.0.13X.F11.0.F10.0) 466 



FORMAT (1H1) '♦67 



END '♦68- 



53 



271 

 272 



790 

 800 



273 



274 

 275 

 276 



810 

 820 

 830 

 840 



277 

 278 

 279 



850 

 860 



