O = Offshore points B = Beach points 



The remaining space is used to give an indication of the magnitude of the changes 

 made, either by the inclusion of the number of points affected or by the magnitude of the 

 change, or both. 



The following program was written as an aid to the proper entry of the profile data 

 into the user's computer system. The program was run on the correct data at the FRF and 

 the proper checksum values added to the profile data. The data should be entered without the 

 checksum values and then run through this program. Compare the checksum values with 

 those given in the table. 



PROGRAM DCHECK 



C This simple program computes a Check Sum value for each line of 

 c survey data and for every 10 lines. It is useful to detect data 

 c entry errors should the profile data require hand entering WAB 



INTEGER*2 iLine(80),CharTotal,iColumn,iChar.LineCount 



INTEGER*4 LineTotal,LinelOTotal 



CHARACTER*! string(80),Line(80) 



DATA ILine/ 



*1, 2,3,4,5,6,7, 8,9, 10,11, 12,13, 14, 15, 16, 

 *17, 18, 19,20,21,22,23,24,25,26,27,28,29,30,31. 32, 

 *33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48, 

 *49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64, 

 *65,66,67,68,69,70,71,72,73,74,75,76,77,78,79.80/ 



DATA string/ 



* ' r. '2', '3', '4'. '5'. '6', '7', '8', '9', '0', ':',';','<'.' = '.'>'.'?' 

 *,'@','A','B','C','D','E','F','G','H','I','J','K','L','M','N','0' 

 *,'P','Q','R','S','T','U','V','W','X','Y','Z','\', '"','_','", 'a' 

 *,'b','c','d','e','f ,'g','h','i','j','k','r,'m','n','o','p','q' 

 *, 'r','s','t','u','v','w','x','y','z','{',' I ','}',' ~ ','-','.',' 7 



c These two lines open and close the input data file and the output 

 c file which displays the data and the checksum information 

 c User will have to modify the filenames 



OPEN(7,FILE = 'duck86.raw',STATUS = 'OLD') 

 OPEN(8,FILE = 'duck86.tbr,STATUS = 'UNKNOWN') 



LineCount=l 



LinelOTotal = 

 50 CharTotal = 



READ(7,100,END = 99)LINE 

 100 FORMAT(80A) 



C Scan each character and assign integer value to it based on position 



B2 Appendix B Table of Profile Data 



