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:35:18 -0700 |
| commit | a8c210c03586fbe6d070e933d31671e003676626 (patch) | |
| tree | e29abda1803e7c83a6b30c7a33d6f7cbb96ff8b6 | |
| parent | 2a61be138cb7ee908255104e540129ea0e3acae0 (diff) | |
improve standards compliance: comma, continuation lines
| -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) |