PROGRAM GPPCGP (Geodetic Position to Plane Coordinate to Geodetic Position) A: PURPOSE: To convert NAD 27 state plane coordinates to NAD 27 geodetic (geographic) positions or NAD 27 geodetic positions to NAD 27 state plane coordinates. B: INPUT: User's Blue Book deck of state plane or geodetic coordinates which are stored on a floppy disk or in the main storage of the personal computer. The station records must follow the formats given in Appendix A & B. C: OUTPUT: PC to GP mode 1. A printed listing of geodetic positions converted from state plane coordinates. 2. A Blue Book file with the new geodetic positions, *80* records, following the format given in Appendix B. or GP to PC mode 1. A printed listing of state plane coordinates converted from geodetic positions. 2. The output listing saved on a file of the computed state plane coordinates. D: EXECUTION: 1. Load the program (GPPCGP.EXE) from the floppy disk to the main storage, or the program can be executed from a floppy disk drive. 2. To execute the program: a. Type GPPCGP or (disk drive name):GPPCGP (floppy disk). b. The program will prompt for: 1. The type of conversion to be done (GP to PC or PC to GP) 2. Name of the input Blue Book deck. 3. Name for the output Blue Book deck. (when in the PC to GP mode) or: 3. The name of the output file with the listing of state plane coordinates if this option was chosen. (when in the GP to PC mode) 4. The Blue Book Number of the Plane Coordinate Zone. (when in the GP to PC mode) see APPENDIX C APPENDIX A State Plane Coordinate Record (*81* record) ** CC01-06 Sequence Number (OPTIONAL) CC07-10 Data Code (IE: *81*) CC11-13 Station Serial Number (OPTIONAL) CC14 Blank CC15-44 Station Name CC45-54 X Coordinate, in feet, to three decimal places, decimal point implied between CC51-52 (XXXXXXXxxx) CC55-65 Y Coordinate, in feet, to three decimal places, decimal point implied between CC62-63 (YYYYYYYYyyy) CC66-69 State and Zone code (SSZZ) CC70-75 Elevation of mark above MSL, in meters, decimal point implied between CC73-74 (EEEEee) (OPTIONAL) CC76 Elevation code (OPTIONAL) CC77-78 State or Country Code (OPTIONAL) CC79-80 Station Order and Type (OPTIONAL) APPENDIX B Geodetic Position Record (IE: *80* record) ** CC01-06 Sequence Number (OPTIONAL) CC07-10 Data Code (IE: *80*) CC11-13 Station Serial Number (OPTIONAL) CC14 Blank CC15-44 Station Name CC45-55 Geodetic Latitude: Deg-Min-Sec, to 5 decimal places, decimal point implied between CC50-51 (DDMMSSsssss) CC56 Direction of Latitude: N or S CC57-68 Geodetic Longitude: Deg-Min-Sec, to 5 decimal places, decimal point implied between CC63-64 (DDDMMSSsssss) CC69 Direction of Longitude: E or W CC70-75 Elevation of mark above MSL, in meters, decimal point implied between CC73-74 (EEEEee) (OPTIONAL) CC76 Elevation code (OPTIONAL) CC77-78 State or Country Code (OPTIONAL) CC79-80 Station Order and Type (OPTIONAL) ** Format specified in the FGCC publication, Input Formats and Specifications of the National Geodetic Survey Data Base. APPENDIX C STATE PLANE COORDINATES (SPC) ZONE CODES ZONE CODE ZONE CODE ZONE CODE ZONE CODE AL E 0101 ID E 1101 NV E 2701 UT N 4301 W 0102 C 1102 C 2702 C 4302 W 1103 W 2703 S 4303 AK 1 5001 2 5002 IL E 1201 NH 2800 VT 4400 3 5003 W 1202 4 5004 NJ 2900 VA N 4501 5 5005 IN E 1301 S 4501 6 5006 W 1302 NM E 3001 7 5007 C 3002 WA N 4601 8 5008 IA N 1401 W 3003 S 4602 9 5009 S 1402 10 5010 NY E 3101 WV N 4701 KS N 1501 C 3102 S 4702 AZ E 0201 S 1502 W 3103 C 0202 L 3104 WI N 4801 W 0203 KY N 1601 C 4802 S 1602 NC 3200 S 4803 AR N 0301 S 0302 LA N 1701 ND N 3301 WY E 4901 S 1702 S 3302 EC 4902 CA 1 0401 SH 1703 WC 4903 2 0402 OH N 3401 W 4904 3 0403 ME E 1801 S 3402 4 0404 W 1802 PR Z1 5201 5 0405 OK N 3501 VI Z1 5201 6 0406 MD 1900 S 3502 VI SX 5202 7 0407 AS 5300 CO N 0501 MA M 2001 OR N 3601 C 0502 I 2002 S 3602 GU 5400 S 0503 MI N 2111 PA N 3701 CT 0600 C 2112 S 3702 S 2113 DE 0700 RI 3800 MN N 2201 FL E 0901 C 2202 SC N 3901 W 0902 S 2203 S 3902 N 0903 SD N 4001 MS E 2301 S 4002 GA E 1001 W 2302 W 1002 TN 4100 MO E 2401 HI 1 5101 C 2402 TX N 4201 2 5102 W 2403 NC 4202 3 5103 C 4203 4 5104 MT 2500 SC 4204 5 5105 S 4205 NE N 2601 S 2602 APPENDIX D Standard IBM Fortran 77 Runtime Error Messages 3009 Invalid file handle for CLOSE 3010 Invalid file handle for DELETE 3011 File deletion failure DOS has indicated and error on an attempt to erase a file 3012 File opening failure DOS has indicated an error on an attempt to locate or create a file 3013 Formatted direct record length 1 not found 3014 Read error on formatted direct record length 1 3015 Formatted direct record not found 3016 Read error on formatted direct record 3017 Unformatted direct record not found 3019 Read error on unformatted sequential record's header 3020 Read error on unformatted sequential record 3023 End of file before newline on reading formatted seqential record 3024 Formatted sequential input record too long 4001 Required math coprocessor not found