NCEPLIBS-bufr  12.0.1
bvers.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Get the version number of the NCEPLIBS-bufr software.
3 C>
4 C> @author J. Ator @date 2009-03-23
5 
6 C> Get the version number of the NCEPLIBS-bufr software.
7 C>
8 C> This subroutine returns a character string containing
9 C> the version number of the NCEPLIBS-bufr software.
10 C>
11 C> @param[out] CVERSTR - character*(*): Version string.
12 C>
13 C> @author J. Ator @date 2009-03-23
14  SUBROUTINE bvers (CVERSTR)
15 
16  CHARACTER*(*) CVERSTR
17 
18 C-----------------------------------------------------------------------
19 C-----------------------------------------------------------------------
20 
21  IF (len(cverstr).LT.8) GOTO 900
22 
23  cverstr = '12.0.1'
24 
25  RETURN
26 900 CALL bort('BUFRLIB: BVERS - INPUT STRING MUST CONTAIN SPACE '//
27  . 'FOR AT LEAST 8 CHARACTERS')
28  END
bort
subroutine bort(STR)
Log one error message and abort application program.
Definition: bort.f:18
bvers
subroutine bvers(CVERSTR)
Get the version number of the NCEPLIBS-bufr software.
Definition: bvers.f:15