diff options
| author | John Denker <jsd@av8n.com> | 2024-11-20 12:12:54 -0700 |
|---|---|---|
| committer | John Denker <jsd@av8n.com> | 2024-11-21 08:46:50 -0700 |
| commit | 74a2dbbcd31a6762fc73ab8e98b93c6dc60b2567 (patch) | |
| tree | 422876520ff14d7a3411fc08011e4f7d3533d321 | |
| parent | f4a7e0073b03ee7972e108bc795c757842fcd73e (diff) | |
| -rw-r--r-- | htdp.f | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -2856,7 +2856,8 @@ c Is_out_NAD83MAR = (iopt2 == 13) !Comment out v3.4.0 c 1 13X,'INPUT COORDINATES OUTPUT COORDINATES', c 1 4x, 'INPUT VELOCITY' /) - 160 write(luout, 170) + 160 write(luout, 170) ! standard says max 19 continuation lines + write(luout, 171) 170 format (/' ***************************************'/ 1 ' Coordinates will be transformed at each specified point.'/ 1 ' Please indicate how you wish to supply positions.'/ @@ -2869,7 +2870,8 @@ c 1 4x, 'INPUT VELOCITY' /) 1 ' LON = longitude in degrees (positive west)'/ 1 ' EHT = ellipsoid height in meters'/ 1 ' TEXT = descriptive text (maximum 24 characters) '/ - 1 ' Example: 40.731671553,112.212671753,34.241,SALT'/ + 1 ' Example: 40.731671553,112.212671753,34.241,SALT') + 171 format( 1 ' 4... Transform positions contained in file of delimited'/ 1 ' records of the form X,Y,Z,TEXT, where:' / 1 ' X, Y, Z = Cartesian coordinates in meters'/ @@ -5019,7 +5021,7 @@ c ENDIF 634 WRITE(LUOUT, 632) 632 FORMAT(/' ***************************'/ - * ' Specify the reference frame for the updated' + * ' Specify the reference frame for the updated', * ' G-file vectors:'// * ' -1...Do not transform GPS vectors.') CALL MENU1(kopt, frame2) |