var/external/bufr/ireadns.f

   1       FUNCTION IREADNS(LUNIT,SUBSET,IDATE)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    IREADNS
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1994-01-06
   7 C
   8 C ABSTRACT: THIS FUNCTION CALLS BUFR ARCHIVE LIBRARY SUBROUTINE READNS
   9 C   AND PASSES BACK ITS RETURN CODE.  SEE READNS FOR MORE DETAILS.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR (ENTRY POINT IN IREADMG)
  13 C 2002-05-14  J. WOOLLEN -- CHANGED FROM AN ENTRY POINT TO INCREASE
  14 C                           PORTABILITY TO OTHER PLATFORMS
  15 C 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  16 C                           INTERDEPENDENCIES
  17 C 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
  18 C                           DOCUMENTATION (INCLUDING HISTORY)
  19 C
  20 C USAGE:    IREADNS (LUNIT, SUBSET, IDATE)
  21 C   INPUT ARGUMENT LIST:
  22 C     LUNIT    - INTEGER: FORTRAN LOGICAL UNIT NUMBER FOR BUFR FILE
  23 C
  24 C   OUTPUT ARGUMENT LIST:
  25 C     SUBSET   - CHARACTER*8: TABLE A MNEMONIC FOR BUFR MESSAGE
  26 C                CONTAINING SUBSET BEING READ
  27 C     IDATE    - INTEGER: DATE-TIME STORED WITHIN SECTION 1 OF BUFR
  28 C                MESSAGE CONTAINING SUBSET BEING READ, IN FORMAT OF
  29 C                EITHER YYMMDDHH OR YYYYMMDDHH, DEPENDING ON DATELEN()
  30 C                VALUE
  31 C     IREADNS  - INTEGER: RETURN CODE:
  32 C                       0 = normal return
  33 C                      -1 = there are no more subsets in the BUFR file
  34 C
  35 C REMARKS:
  36 C    THIS ROUTINE CALLS:        READNS
  37 C    THIS ROUTINE IS CALLED BY: None
  38 C                               Normally called only by application
  39 C                               programs.
  40 C
  41 C ATTRIBUTES:
  42 C   LANGUAGE: FORTRAN 77
  43 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  44 C
  45 C$$$
  46
  47       CHARACTER*8 SUBSET
  48       CALL READNS(LUNIT,SUBSET,IDATE,IRET)
  49       IREADNS = IRET
  50       RETURN
  51       END