CC THIS IS AN EDITABLE FILE GIVING THE INCORRECT WAYPOINTS AND
CC THEIR CORRECT LOCATIONS-READ IN WHEN LOGICAL WAYPIN IS .TRUE.
   26
C     DATA OLDLAT
  2017  3717  1067  3000  3383  4850  5683  4283  2617  3417  3783  4500
  3417  3717  4033  3100  6217 -0583 -0950 -0667  0817  4017  2783  1683
  1295  3850
C     DATA NEWLAT
 -2983  6000  3967 -2750 -2683 -2533  3504  3007  3648  3019  3845 -0511
  4092  4056 -0813 -3123  3950 -0583  2431  1478  4195  0090  3746  5866
  1295  5492
C     DATA OLDLON
 35333 11367 28567  8550 11650 11233 13550  7150 31267  9717 11300  7467
 11783  9700  7845  8467  2050 19000 21300  7633 26117 11017 13050  7600
 11423  8392
C     DATA NEWLON
  6200  4317  3167  5700  6050  4917 33384 32180  0422  0923 34367  3721
 34562 34567  3488  5406  3117 16900 10450  9237  7183  7000  2405 17133
 14423 18803
C   CODE TO READ IN EDITABLE FILE FROM DISK
CC    READ(23,230) BUFF1   80A
CC    READ(23,230) BUFF1   80A
CC    READ(23,231) NUM     I5
CC    READ(23,230) BUFF1   80A
CC    READ(23,232) OLDLAT(J) J=1,NUM  12I6
CC    READ(23,230) BUFF1   80A
CC    READ(23,232) NEWLAT(J) J=1,NUM  12I6
CC    READ(23,230) BUFF1   80A
CC    READ(23,232) OLDLON(J) J=1,NUM  12I6
CC    READ(23,230) BUFF1   80A
CC    READ(23,232) NEWLON(J) J=1,NUM  12I6
CC