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



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



C THE PURPOSE OF THIS PROGRAM IS TO REDUCE THE RADIOACTIVITY SURVEY 2 



C DATA FROM THE RIST PROJECT AND PLOT THE SURVEY ON A BENSON-LEHNER 3 



C INCREMENTAL PLOTTER. THE FOLLOWING PLOTS ARE THE OUTPUT' 4 



C TRACKLINE FOLLOWED BY SURVEY VESSEL 5 



C PLOT OF UNCORRECTED RAOIATION VALUES (BACKGROUND SURVEY) 6 



C SYMBOL PLOT OF RADIATION VALUES CORRECTED FOR BACKGROUND AND 7 



C DECAY SINCE INJECTION TIME. B 



C programmer: PHILIP A. TURNER 9 



C GEOLOGY BRANCH 10 



C US ARMY COASTAL ENGINEERING RESEARCH CENTER 11 



C 5201 LITTLE FALLS ROAD 12 



C WASHINGTON* D. C. 20016 13 



C COMPLETED IN JANUARY 1969 14 



C 15 



C FORMAT AND ENTRIES ON DATA CONTROL CARD 16 



C COL 1- 3 CABLE LENGTH IN FEET TO THE NEAREST FOOT. 17 



C COL 4- 6 WATER DEPTH PLUS FREEBOARD TO THE NEAREST FOOT. IB 



C COL 7- 9 DISTANCE FROM RADAR MAST TO CABLE STANCHION IN FEET 19 



C TO THE NEAREST FOOT. 20 



C COL 10-16 ESTIMATED BACKGROUND COUNT RATE IN COUNTS/SEC FOR 21 



C CHANNEL 1. 22 



C COL 17-23 ESTIMATED BACKGROUND COUNT RATE IN COUNTS/SEC FOR 23 



C CHANNEL 2. 24 



C COL 25-28 TIME OF INJECTION IN HOURS AND MINUTES. 25 



C COL 29-31 THE NUMBER OF DAYS SINCE THE INJECTION 26 



C COL 32-36 THE HALF LIFE OF THE RADIOISOTOPE IN DAYS. 27 



C THE OECIMAL POJNT MUST BE PUNCHED IN. 28 



C COL 37-40 THE TIME WHEN THE* SURVEY WAS STARTED* IN HOURS AND 29 



C MINUTES. 30 



C COL 44-50 BEACON! NORTH COORD/ LAMBERT COORDINATES OF RADAR 31 



C COL 52-58 BEACON1 EAST COORD/ BEACONS TO THE NEAREST FOOT. 32 



C COL 60-66 BEAC0N2 NORTH COORD/ BEACON1 IS ALWAYS UPCOAST. 33 



C COL 68-74 DEAC0H2 EAST COORD/ 34 



C COL 75-77 THE NUMBER OF LINES OF DATA TO BE SKIPPED AT THE 35 



C BEGINNING OF A DATA SET IN ORDER TO AVOIO 36 



C READING IN SOME BAD DATA. 37 



C FORMAT AND ENTRIES ON PLOT CONTROL CARD 38 



C COL 1- 3 PLOT OPTION CONTROL. TO USE. PUNCH THE NUMERAL 1 39 



C IN THE COLIMN INDICATED. 40 



C 1 = PLOT TRACKLINE FOLLOWED BY SURVEY VESSEL. 41 



C 2 = PLOT UNCORRECTED RADIATION VALUES. 42 



C 3 = PLOT RADIATION VALUES CORRECTED FOR BACKGROUND 43 



C AND DECAY SINCE TIME ZERO. 44 



C 4 = UNUSED. LEAVE BLANK. 45 



C COL 5-14 MAP SCALE EXPRESSED IN UNITS PER INCH 46 



C COL 16-17 OPTION 1 / USE WHEN SPOTTING DATA FOR EACH PLOT 47 



C COL 16-19 J 2 / OPTION. USER CAN SPECIFY THAT EVERY NTH 48 



C COL 20-21 ] 4 / POINT BE PLOTTED. IF LEFT BLANK* THE 49 



C PROGRAM ASSUMES EVERY POINT IS TO BE 50 



C PLOTTED. 51 



C COL 23-32 INTERVALS ON THE COORDINATE GRID AT WHICH TICK 52 



C MARKS WITH THE LAMBERT COORDINATES WILL BE POSTED. 53 



C IF FIELD IS LEFT BLANKr PROGRAM WILL ASSUME THAT 54 



C NO TICK MARKS ARE TO BE PLOTTED AND POSTED. 55 



C COL 34-43 BEACON 1 / INJECTION SITE. DISTANCE IN METERS TO 56 



C COL 45 54 BEACON 2 / THE NAMED BEACONS. IF FIELDS ARE LEFT 57 



C BLANK. SITE IS NOT PLOTTED. 58 



C COL 56-61 DAY. MONTH AND YEAR THE SANO WAS INJECTED 59 



C FORMAT AND ENTRIES ON PLOT IDENTIFICATION CARD 60 



C COL 1-78 THIS FIELD WILL BE PLOTTED ON THE LOWER MARGIN OF 61 



C THE MAP. 62 



C COL 80 PUNCH 'T' HERE ON THE LAST DATA SET. 63 



1 COMMON /AA/ N0PT(4).NPLT<3> "SCALE. GRID.DUMPN.DUMPE.NBAR.EBARrLEGEN 64 

 lD(13>»INDATE»LlNE»BGCRt SIGMA. NMAX.NMIN.EMAX.EMIN. JOBENO'NENTRY.NCA 65 

 2LLS>NCAM 66 



2 REAL NOkTH(2000>»NCORD(2000).NBAR.NMAX.NMIN 67 



3 DIMENSION NMBR(2000)r TIME(2000). 0(2»2000>. EASTI2000). EC0RD(200 68 

 10). RAD12000>> CCR(2000)> FATHI2000) 69 



4 EGUIVALENCE (RADd ) >CCR(1 ) ) • <D( 1 » 1 ) »NCORD< 1 ) ) » (0(1. 1001) lECORDl 1 70 

 1)). 71 



5 LOGICAL JOBEND ^2 



6 DATA C0RRl»C0RR2/2.9.2.8/IFLAG/lH*/ 73 



7 WRITE (6.610) 74 



8 NCAM=9 75 



9 NCALLS=0 76 

 10 10 NCALLS=NCALLS+1 77 



48 



