bvers.f

Go to the documentation of this file.

C> @file
C> @brief Get the version number of the NCEPLIBS-bufr software.
C>
C> @author J. Ator @date 2009-03-23
 
C> Get the version number of the NCEPLIBS-bufr software.
C>
C> This subroutine returns a character string containing
C> the version number of the NCEPLIBS-bufr software.
C>
C> @param[out] CVERSTR - character*(*): Version string.
C>
C> @author J. Ator @date 2009-03-23
        SUBROUTINE bvers (CVERSTR)
 
        CHARACTER*(*)   CVERSTR
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
        IF (len(cverstr).LT.8) GOTO 900
 
        cverstr = '12.0.1'
 
        RETURN
900     CALL bort('BUFRLIB: BVERS - INPUT STRING MUST CONTAIN SPACE '//
     .    'FOR AT LEAST 8 CHARACTERS')
        END