<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='IGETSC'><A href='../../html_code/bufr/igetsc.f.html#IGETSC' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A>
FUNCTION IGETSC(LUNIT),2
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: IGETSC
C PRGMMR: J. ATOR ORG: NP12 DATE: 2010-05-11
C
C ABSTRACT: THIS FUNCTION RETURNS ANY STATUS CODE THAT WAS INTERNALLY
C SET WITHIN THE BUFR ARCHIVE LIBRARY SOFTWARE FOR A GIVEN LOGICAL
C UNIT NUMBER
C
C PROGRAM HISTORY LOG:
C 2010-05-11 J. ATOR -- ORIGINAL AUTHOR
C
C USAGE: IGETSC (LUNIT)
C INPUT ARGUMENT LIST:
C LUNIT - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE
C
C OUTPUT ARGUMENT LIST:
C IGETSC - INTEGER: STATUS CODE FOR LUNIT:
C 0 = no problems noted with LUNIT
C -1 = unable to position LUNIT for appending,
C possibly due to an incomplete BUFR message
C at the end of the file
C
C REMARKS:
C THIS ROUTINE CALLS: BORT STATUS
C THIS ROUTINE IS CALLED BY: None
C Normally called only by application
C programs.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
INCLUDE 'bufrlib.prm'
COMMON /STCODE/ ISCODES(NFILES)
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