[Dart-dev] [4826] DART/trunk/observations/NCEP/prep_bufr/lib: Shorten the error messages in 3 locations to avoid errors with
nancy at ucar.edu
nancy at ucar.edu
Mon Mar 28 11:17:22 MDT 2011
Revision: 4826
Author: nancy
Date: 2011-03-28 11:17:22 -0600 (Mon, 28 Mar 2011)
Log Message:
-----------
Shorten the error messages in 3 locations to avoid errors with
some compilers and max line length. No change in code otherwise.
Modified Paths:
--------------
DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f
DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f
DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f
-------------- next part --------------
Modified: DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f 2011-03-28 15:57:55 UTC (rev 4825)
+++ DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f 2011-03-28 17:17:22 UTC (rev 4826)
@@ -194,8 +194,8 @@
RETURN
900 WRITE(BORT_STR,'("BUFRLIB: MSGINI - MISMATCH BETWEEN INODE (=",'//
- . 'I7,") & POSITIONAL INDEX, INOD (",I7,") OF SUBTAG (",A,") IN '//
- . 'DICTIONARY")') INODE(LUN),INOD,SUBTAG
+ . 'I7,") & POSIT INDEX, INOD (",I7,") OF SUBTAG (",A,") IN DICT")')
+ . INODE(LUN),INOD,SUBTAG
CALL BORT(BORT_STR)
901 WRITE(BORT_STR,'("BUFRLIB: MSGINI - TABLE A MESSAGE TYPE '//
. 'MNEMONIC ",A," NOT FOUND IN INTERNAL TABLE D ARRAYS")') SUBTAG
Modified: DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f 2011-03-28 15:57:55 UTC (rev 4825)
+++ DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f 2011-03-28 17:17:22 UTC (rev 4826)
@@ -167,7 +167,8 @@
. LUNIT
CALL BORT(BORT_STR)
903 WRITE(BORT_STR,'("BUFRLIB: REWNBF - SAVE/RESTORE SWITCH (INPUT '//
- . 'ARGUMENT ISR) IS NOT ZERO OR ONE (HERE =",I4,") (UNIT",I3,")")') . ISR,LUNIT
+ . 'ARGUMENT ISR) IS NOT ZERO OR ONE (HERE =",I4,") (UNIT",I3,")")')
+ . ISR,LUNIT
CALL BORT(BORT_STR)
904 WRITE(BORT_STR,'("BUFRLIB: REWNBF - ERROR READING A DICTIONARY '//
. 'MESSAGE AFTER REWIND OF BUFR FILE IN UNIT",I4,")")') LUNIT
Modified: DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f 2011-03-28 15:57:55 UTC (rev 4825)
+++ DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f 2011-03-28 17:17:22 UTC (rev 4826)
@@ -469,8 +469,8 @@
. 'WORDS!)")') I
CALL BORT(BORT_STR)
901 WRITE(BORT_STR,'("BUFRLIB: WRDLEN - MACHINE WORD LENGTH (",I4,"'//
- . ') IS NOT A MULTIPLE OF 8 (THIS MACHINE HAS WORDS NOT ON WHOLE'//
- . ' BYTE BOUNDARIES!)")') I
+ . ') NOT MULT OF 8 (MACHINE HAS WORDS NOT ON WHOLE BYTE BOUNDARIES!)")')
+ . I
CALL BORT(BORT_STR)
902 WRITE(BORT_STR,'("BUFRLIB: WRDLEN - BYTE ORDER CHECKING MISTAKE'//
. ', LOOP INDEX J (HERE =",I3,") IS .GT. NO. OF BYTES PER WORD '//
More information about the Dart-dev
mailing list