bvers.f

Go to the documentation of this file.

C> @file
C> @brief Return a character string containing the version
C> number of the BUFRLIB software.
 
C> This subroutine returns a character string containing
C> the version number of the BUFRLIB software.
C>
C> @author J. Ator
C> @date 2009-03-23
C>
C> @param[out]    CVERSTR -- character*(*): Version string
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2009-03-23 | J. Ator | Original author |
C> | 2011-09-26 | J. Ator | Updated to version 10.0.1 |
C> | 2012-02-24 | J. Ator | Updated to version 10.1.0 |
C> | 2012-10-12 | J. Ator | Updated to version 10.2.0 |
C> | 2012-11-29 | J. Ator | Updated to version 10.2.1 |
C> | 2012-12-04 | J. Ator | Updated to version 10.2.2 |
C> | 2013-01-08 | J. Ator | Updated to version 10.2.3 |
C> | 2013-01-09 | J. Ator | Updated to version 10.2.4 |
C> | 2013-01-25 | J. Ator | Updated to version 10.2.5 |
C> | 2014-11-12 | J. Ator | Updated to version 11.0.0 |
C> | 2015-09-24 | J. Ator | Updated to version 11.0.1 |
C> | 2016-02-12 | J. Ator | Updated to version 11.0.2 |
C> | 2016-03-18 | J. Ator | Updated to version 11.1.0 |
C> | 2016-05-10 | J. Ator | Updated to version 11.2.0 |
C> | 2017-04-03 | J. Ator | Updated to version 11.3.0 |
C> | 2020-10-21 | J. Ator | Updated to use PROJECT_VERSION macro from CMake |
C>
    SUBROUTINE bvers (CVERSTR)
 
    character*(*)   cverstr
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
    IF (len(cverstr).LT.8) GOTO 900
 
    cverstr = '11.7.1'
 
    RETURN
900 CALL bort('BUFRLIB: BVERS - INPUT STRING MUST CONTAIN SPACE '//
     .    'FOR AT LEAST 8 CHARACTERS')
    END