From 74a2dbbcd31a6762fc73ab8e98b93c6dc60b2567 Mon Sep 17 00:00:00 2001 From: John Denker Date: Wed, 20 Nov 2024 12:12:54 -0700 Subject: improve standards compliance: comma, continuation lines --- htdp.f | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/htdp.f b/htdp.f index 7c4724b..b27b64e 100644 --- a/htdp.f +++ b/htdp.f @@ -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) -- cgit v1.2.3