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>
C> @author J. Ator @date 2010-05-11
 
C> Check for an abnormal status code associated with the
C> processing of a file.
C>
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> @param[in] LUNIT - integer: Fortran logical unit number for BUFR file.
C> @returns igetsc - integer:
C> - 0 = no problems were encountered
C> - 1 = replication factor overflow in subroutine usrtpl()
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.
C>
C> @author J. Ator @date 2010-05-11
      RECURSIVE FUNCTION igetsc(LUNIT) RESULT(IRET)
 
      USE modv_im8b
 
      USE moda_stcode
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C     Check for I8 integers.
 
      IF (im8b) THEN
        im8b = .false.
 
        CALL x84(lunit,my_lunit,1)
        iret = igetsc(my_lunit)
 
        im8b = .true.
        RETURN
      END IF
 
      iret = 0
 
C     Make sure the specified logical unit is connected to the library.
 
      CALL status(lunit,lun,il,im)
      IF(il.EQ.0) GOTO 900
 
      iret = iscodes(lun)
 
      RETURN
 900  CALL bort('BUFRLIB: IGETSC - BUFR FILE IS CLOSED, IT MUST BE'//
     . ' OPEN')
      END