igetsc.f

Go to the documentation of this file.

C> @file
C> @brief Check for an abnormal status code associated with the
C> processing of a file
 
C> This function returns a status code associated with any file that
C> was previously opened via a call to subroutine openbf(), so that
C> the application program can check whether the BUFRLIB software
C> encountered any specific problems while processing the file.
C>
C> @author J. Ator
C> @date 2010-05-11
C>
C> @param[in] LUNIT -- integer: Fortran logical unit number for
C>                         BUFR file
C> @returns igetsc -- integer:
C>                     -  0 = no problems were encountered
C>
C> @remarks
C> - Once subroutine openbf() has been called for LUNIT, this function
C> can then be called any number of times and at any point throughout
C> the remainder of the life of the application program.  However, it
C> is most typically called immediately prior to exiting an application
C> program.
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2010-05-11 | J. Ator | Original author |
C> | 2014-12-10 | J. Ator | Use modules instead of COMMON blocks |
C>
      FUNCTION igetsc(LUNIT)
 
      USE moda_stcode
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C     Make sure the specified logical unit is connected to the library.
 
      CALL status(lunit,lun,il,im)
      IF(il.EQ.0) GOTO 900
 
      igetsc = iscodes(lun)
 
      RETURN
 900  CALL bort('BUFRLIB: IGETSC - BUFR FILE IS CLOSED, IT MUST BE'//
     . ' OPEN')
      END