NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
bvers.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Return a character string containing the version
3 C> number of the BUFRLIB software.
4 
5 C> This subroutine returns a character string containing
6 C> the version number of the BUFRLIB software.
7 C>
8 C> @author J. Ator
9 C> @date 2009-03-23
10 C>
11 C> @param[out] CVERSTR - character*(*): Version string
12 C>
13 C> <b>Program history log:</b>
14 C> - 2009-03-23 J. Ator -- Original author
15 C> - 2011-09-26 J. Ator -- Updated to version 10.0.1
16 C> - 2012-02-24 J. Ator -- Updated to version 10.1.0
17 C> - 2012-10-12 J. Ator -- Updated to version 10.2.0
18 C> - 2012-11-29 J. Ator -- Updated to version 10.2.1
19 C> - 2012-12-04 J. Ator -- Updated to version 10.2.2
20 C> - 2013-01-08 J. Ator -- Updated to version 10.2.3
21 C> - 2013-01-09 J. Ator -- Updated to version 10.2.4
22 C> - 2013-01-25 J. Ator -- Updated to version 10.2.5
23 C> - 2014-11-12 J. Ator -- Updated to version 11.0.0
24 C> - 2015-09-24 J. Ator -- Updated to version 11.0.1
25 C> - 2016-02-12 J. Ator -- Updated to version 11.0.2
26 C> - 2016-03-18 J. Ator -- Updated to version 11.1.0
27 C> - 2016-05-10 J. Ator -- Updated to version 11.2.0
28 C> - 2017-04-03 J. Ator -- Updated to version 11.3.0
29 C> - 2020-10-21 J. Ator -- Updated to use PROJECT_VERSION
30 C> macro from CMake
31 C>
32  SUBROUTINE bvers (CVERSTR)
33 
34  character*(*) cverstr
35 
36 C-----------------------------------------------------------------------
37 C-----------------------------------------------------------------------
38 
39  IF (len(cverstr).LT.8) goto 900
40 
41  cverstr = '11.5.0'
42 
43  RETURN
44 900 CALL bort('BUFRLIB: BVERS - INPUT STRING MUST CONTAIN SPACE '//
45  . 'FOR AT LEAST 8 CHARACTERS')
46  END
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
Definition: bort.f:23