datelen.f

Go to the documentation of this file.

C> @file
C> @brief Specify format of Section 1 date-time when reading
C> BUFR messages.
C> @author J. Woollen @date 1998-07-08
 
C> This subroutine is used to specify the format of Section 1
C> date-time values that will be output by future calls to
C> any of the BUFRLIB [message-reading subroutines](@ref hierarchy).
C>
C> This subroutine can be called at any time from within the
C> application program, and the specified value for LEN will remain
C> in effect for all future calls to any of the BUFRLIB subroutines
C> which read BUFR messages, unless a subsequent call is made to this
C> subroutine to reset the value of LEN again.  If this subroutine is
C> never called, a default value of 8 is used for LEN, as set within
C> subroutine bfrini().
C>
C> @param[in] LEN --  integer: Length of Section 1 date-time
C>                    values to be output by all future calls
C>                    to message-reading subroutines
C>                    -  8 = YYMMDDHH format with 2-digit year
C>                           (the default)
C>                    - 10 = YYYYMMDDHH format with 4-digit year
C>
C> @author J. Woollen @date 1998-07-08
 
      RECURSIVE SUBROUTINE datelen(LEN)
 
      USE modv_im8b
 
      COMMON /dateln/ lendat
 
      CHARACTER*128 bort_str
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  CHECK FOR I8 INTEGERS
C  ---------------------
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(len,my_len,1)
         CALL datelen(my_len)
 
         im8b=.true.
         RETURN
      ENDIF
 
C  CALL SUBROUTINE WRDLEN TO INITIALIZE SOME IMPORTANT INFORMATION
C  ABOUT THE LOCAL MACHINE (IN CASE IT HAS NOT YET BEEN CALLED)
C  ---------------------------------------------------------------
 
      CALL wrdlen
 
      IF(len.NE.8 .AND. len.NE.10) GOTO 900
      lendat = len
 
C  EXITS
C  -----
 
      RETURN
900   WRITE(bort_str,'("BUFRLIB: DATELEN - INPUT ARGUMENT IS",I4," - '//
     . 'IT MUST BE EITHER 8 OR 10")') len
      CALL bort(bort_str)
      END