minimg.f

Go to the documentation of this file.

C> @file
C> @brief Write a minutes value into Section 1 of a BUFR message.
C>
C> @author J. Woollen @date 1994-01-06
 
C> This subroutine writes a minutes value into Section 1 of the BUFR
C> message that was most recently opened for writing via a call to
C> one of the [message-writing subroutines](@ref hierarchy) for a
C> specified Fortran logical unit.
C>
C> @param[in] LUNIT -- integer: Fortran logical unit number for
C>                              BUFR file
C> @param[in] MINI  -- integer: Minutes value
C>
C>
C> @author J. Woollen @date 1994-01-06
      RECURSIVE SUBROUTINE minimg(LUNIT,MINI)
 
      USE moda_bitbuf
      USE modv_im8b
 
C     Check for I8 integers.
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(lunit,my_lunit,1)
         CALL x84(mini,my_mini,1)
         CALL minimg(my_lunit,my_mini)
 
         im8b=.true.
         RETURN
      ENDIF
 
      CALL status(lunit,lun,il,im)
      IF(il.EQ.0) GOTO 900
      IF(il.LT.0) GOTO 901
      IF(im.EQ.0) GOTO 902
 
      CALL pkbs1(mini,mbay(1,lun),'MINU')
 
C  EXITS
C  -----
 
      RETURN
900   CALL bort('BUFRLIB: MINIMG - OUTPUT BUFR FILE IS CLOSED, IT '//
     . 'MUST BE OPEN FOR OUTPUT')
901   CALL bort('BUFRLIB: MINIMG - OUTPUT BUFR FILE IS OPEN FOR '//
     . 'INPUT, IT MUST BE OPEN FOR OUTPUT')
902   CALL bort('BUFRLIB: MINIMG - A MESSAGE MUST BE OPEN IN OUTPUT '//
     . 'BUFR FILE, NONE ARE')
      END