[Dart-dev] DART/branches Revision: 11860

[dart at ucar.edu]

nancy at ucar.edu
2017-08-02 10:05:57 -0600 (Wed, 02 Aug 2017)
185
if the stat function fails, print out the actual return code
and not just an error message.  also add a missing space between
the label and the input/output filenames for readability.




Modified: DART/branches/rma_trunk/observations/obs_converters/NCEP/prep_bufr/convert_bufr/grabbufr.f
===================================================================
--- DART/branches/rma_trunk/observations/obs_converters/NCEP/prep_bufr/convert_bufr/grabbufr.f	2017-08-02 15:59:14 UTC (rev 11859)
+++ DART/branches/rma_trunk/observations/obs_converters/NCEP/prep_bufr/convert_bufr/grabbufr.f	2017-08-02 16:05:57 UTC (rev 11860)
@@ -83,8 +83,8 @@
 c
 c liu 03/16/2005
 C
-      PRINT*,'INPUT FILE',infile
-      PRINT*,'OUTPUT FILE',outfile
+      PRINT*,'INPUT FILE: ',infile
+      PRINT*,'OUTPUT FILE: ',outfile
 
 C
 C  Use STAT function to get size of input BUFR file
@@ -96,7 +96,7 @@
 c  an integer variable before being tested seemed to fix the problem.
       rc = STAT(infile,JSTAT)
       IF (rc.NE.0) THEN
-         PRINT *,'ERROR IN FUNCTION STAT GETTING FILE STATS'
+         PRINT*,'ERROR IN FUNCTION STAT GETTING FILE INFO, RC = ',rc
          CALL EXIT(99)
       ELSE
 c        If this program has an error, or if the output files are missing data
@@ -119,7 +119,7 @@
 C
       allocate(cbuf(kbytes),stat=istat)
       IF (istat.ne.0) THEN
-        PRINT *,' ERROR Allocating ',kbytes,' bytes to read in file ',
+        PRINT*,' ERROR Allocating ',kbytes,' bytes to read in file ',
      &          infile
         CALL EXIT(4)
       ENDIF

Modified: DART/branches/rma_trunk/observations/obs_converters/NCEP/prep_bufr/convert_bufr/stat_test.f
===================================================================
--- DART/branches/rma_trunk/observations/obs_converters/NCEP/prep_bufr/convert_bufr/stat_test.f	2017-08-02 15:59:14 UTC (rev 11859)
+++ DART/branches/rma_trunk/observations/obs_converters/NCEP/prep_bufr/convert_bufr/stat_test.f	2017-08-02 16:05:57 UTC (rev 11860)
@@ -88,7 +88,7 @@
 c  tested the right offset seems to be 8
       rc = STAT(infile,JSTAT)
       IF (rc.NE.0) THEN
-         PRINT *,'ERROR IN FUNCTION STAT GETTING FILE INFO'
+         PRINT*,'ERROR IN FUNCTION STAT GETTING FILE INFO, RC = ',rc
          CALL EXIT(99)
       ELSE
 c        Use the following print and find the index into JSTAT which is