PROGRAM — RAPLOT II 



C PROGRAM — RAPLOT II 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' i» 



C TKACKLINE FOLLOWED BY SURVEY VESSEL 5 



C PLOT OF UNCORRECTED RADIATION VALUES (BACKGROUND SURVEY) 6 



C SYMBOL PLOT OF RADIATION VALUES CORRECTED FOR BACKGROUND AND 7 



C DECAY SINCE INJECTION TIME. 8 



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' 0. 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 NEARFST FOOT. 17 



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



C COL 7- 9 DISTANCE FROM RADAR MAST TO CARLE 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-23 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 DECIMAL POINT MUST BE PUNCHED IN. 28 



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



C MINUTES" 30 



C COL 41-42 TIME (IN SECONDS) BETWEEN SUCCESSIVE FIXES 305 



C COL 44-50 BEACON1 NORTH COORD/ LAMBERT COORDINATES OF RAOAR 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 BEAC0N2 tAST 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 AVOID 36 



C READING IN SOME BAD DATA. 37 



C FORMAT AND ENTRIES ON PLOT CONTROL CARD 38 



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



C IN THE COLUMN INDICATED. 40 



C 1 = PLOT TRACKLINE FOLLOWED BY SURVEY VESSEL. «»1 



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 FEET PER INCH 46 



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



C COL 18-19 1 2 / OPTION. USER CAN SPECIFY THAT EVERY NTH 48 



C COL 20-21 J 4 / PO|NT BE PLOTTEB. 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 BLANK. PROGRAM WILL ASSUME THAT 54 



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



C COL 34-43 BEACON 1 / INJECTION SITE. OISTANCE 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 SAND 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 N0PT(4). SCALE. NPLT13). GRID. SITEN.SITEE. INDATE.LEGEN0U3) . BE 64 

 1AC1N. HEAC1E.BEAC2N.BEAC2E.LINE.BGCR (2) .SIGMAI2) .NBAR.EBAR.NENTRY.N 65 

 2MAX.NMIN.EMAX.EMIN 66 



2 REAL NORTH(2200).NCORD(2200).NBAR.NMAX.NMIN 67 



3 DIMENSION NM13RI2200). TIME(2200)» 0(2.2200). EAST(2200). ECORDI220 68 

 10). KADI2.2200). CCRI2.2200). L(4). IERRI2200). BKG(2). FATH(2200) 69 

 2. ISIGN(3) 70 



4 INTEGER SENTNL(7) . WORD1 . W0RD2. BLANK. AS 71 



5 LOGICAL JOBEND 72 

 C 73 

 C NTAPE IS THE NUMBER FOR THE INPUT TAPE CONTAINING THE SURVEY DATA 74 

 C ITAPE IS THE UNIT ON WHICH THE PROCESSED DATA IS WRITTEN OUT 75 

 C 76 



6 DATA WOKD1. WORD2. NTAPE. ITAPE. C0R1.C0R2. BLANK. AS/6HEND 0F.6H DATA . 77 

 17. 8. 2. 9. 2. 8. 6H . 1H*/ 78 



30 



