wrfv2_fire/var/external/bufr/igetntbl.inc

   1       FUNCTION IGETNTBL (LUNT, LINE)
   2
   3 !$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 !
   5 ! SUBPROGRAM:    IGETNTBL
   6 !   PRGMMR: ATOR            ORG: NP12       DATE: 2007-01-19
   7 !
   8 ! ABSTRACT:  THIS FUNCTION GETS THE NEXT LINE FROM THE ASCII MASTER
   9 !   TABLE FILE SPECIFIED BY LUNT, IGNORING ANY BLANK LINES OR COMMENT
  10 !   LINES IN THE PROCESS.
  11 !
  12 ! PROGRAM HISTORY LOG:
  13 ! 2007-01-19  J. ATOR    -- ORIGINAL AUTHOR
  14 !
  15 ! USAGE:    IGETNTBL ( LUNT, LINE )
  16 !   INPUT ARGUMENT LIST:
  17 !     LUNT     - INTEGER: FORTRAN LOGICAL UNIT NUMBER OF ASCII FILE
  18 !                CONTAINING MASTER TABLE INFORMATION
  19 !
  20 !   OUTPUT ARGUMENT LIST:
  21 !     LINE     - CHARACTER*(*): NEXT NON-BLANK, NON-COMMENT LINE READ
  22 !                FROM LUNT
  23 !     IGETNTBL - INTEGER: RETURN CODE:
  24 !                       0 = normal return
  25 !                      -1 = end-of-file encountered while reading
  26 !                           from LUNT
  27 !                      -2 = I/O error encountered while reading
  28 !                           from LUNT
  29 ! REMARKS:
  30 !    THIS ROUTINE CALLS:        None
  31 !    THIS ROUTINE IS CALLED BY: GETNTBE  GETTBH   SNTBDE
  32 !                               Normally not called by any application
  33 !                               programs.
  34 !
  35 ! ATTRIBUTES:
  36 !   LANGUAGE: FORTRAN 77
  37 !   MACHINE:  PORTABLE TO ALL PLATFORMS
  38 !
  39 !$$$
  40
  41       CHARACTER ( * ) LINE
  42
  43 !-----------------------------------------------------------------------
  44 !-----------------------------------------------------------------------
  45
  46    10 READ (LUNT, '(A)', END = 100, ERR = 200) LINE
  47       IF ( (LINE.EQ.' ') .OR. (LINE (1:1) .EQ.'#') ) GOTO 10
  48       IF (LINE (1:3) .EQ.'END') GOTO 100
  49
  50       IGETNTBL = 0
  51       RETURN
  52
  53   100 IGETNTBL = - 1
  54       RETURN
  55
  56   200 IGETNTBL = - 2
  57       RETURN
  58
  59       END FUNCTION IGETNTBL