[Dart-dev] [4882] DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f: Wrap an error message to keep length of each line < 72 chars, so

[nancy at ucar.edu]

Revision: 4882
Author:   nancy
Date:     2011-05-03 14:15:26 -0600 (Tue, 03 May 2011)
Log Message:
-----------
Wrap an error message to keep length of each line < 72 chars, so
we don't have to specify any particular compiler flags to parse
longer lines.

Modified Paths:
--------------
    DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f

-------------- next part --------------
Modified: DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f	2011-05-03 19:57:38 UTC (rev 4881)
+++ DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f	2011-05-03 20:15:26 UTC (rev 4882)
@@ -469,8 +469,8 @@
      . 'WORDS!)")') I
       CALL BORT(BORT_STR)
 901   WRITE(BORT_STR,'("BUFRLIB: WRDLEN - MACHINE WORD LENGTH (",I4,"'//
-     . ') NOT MULT OF 8 (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 '//