NCEPLIBS-bufr  11.7.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> | Date | Programmer | Comments |
15 C> | -----|------------|----------|
16 C> | 2009-03-23 | J. Ator | Original author |
17 C> | 2011-09-26 | J. Ator | Updated to version 10.0.1 |
18 C> | 2012-02-24 | J. Ator | Updated to version 10.1.0 |
19 C> | 2012-10-12 | J. Ator | Updated to version 10.2.0 |
20 C> | 2012-11-29 | J. Ator | Updated to version 10.2.1 |
21 C> | 2012-12-04 | J. Ator | Updated to version 10.2.2 |
22 C> | 2013-01-08 | J. Ator | Updated to version 10.2.3 |
23 C> | 2013-01-09 | J. Ator | Updated to version 10.2.4 |
24 C> | 2013-01-25 | J. Ator | Updated to version 10.2.5 |
25 C> | 2014-11-12 | J. Ator | Updated to version 11.0.0 |
26 C> | 2015-09-24 | J. Ator | Updated to version 11.0.1 |
27 C> | 2016-02-12 | J. Ator | Updated to version 11.0.2 |
28 C> | 2016-03-18 | J. Ator | Updated to version 11.1.0 |
29 C> | 2016-05-10 | J. Ator | Updated to version 11.2.0 |
30 C> | 2017-04-03 | J. Ator | Updated to version 11.3.0 |
31 C> | 2020-10-21 | J. Ator | Updated to use PROJECT_VERSION macro from CMake |
32 C>
33  SUBROUTINE bvers (CVERSTR)
34 
35  character*(*) cverstr
36 
37 C-----------------------------------------------------------------------
38 C-----------------------------------------------------------------------
39 
40  IF (len(cverstr).LT.8) goto 900
41 
42  cverstr = '11.7.0'
43 
44  RETURN
45 900 CALL bort('BUFRLIB: BVERS - INPUT STRING MUST CONTAIN SPACE '//
46  . 'FOR AT LEAST 8 CHARACTERS')
47  END
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
Definition: bort.f:22