<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='BVERS'><A href='../../html_code/bufr/bvers.f.html#BVERS' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
SUBROUTINE BVERS (CVERSTR) 2,2
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: BVERS
C PRGMMR: J. ATOR ORG: NP12 DATE: 2009-03-23
C
C ABSTRACT: THIS SUBROUTINE RETURNS A CHARACTER STRING CONTAINING THE
C VERSION NUMBER OF THE BUFR ARCHIVE LIBRARY SOFTWARE.
C
C PROGRAM HISTORY LOG:
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
C USAGE: CALL BVERS
(CVERSTR)
C
C OUTPUT ARGUMENT LIST:
C CVERSTR - CHARACTER*(*): VERSION STRING
C
C REMARKS:
C THIS ROUTINE CALLS: BORT
C THIS ROUTINE IS CALLED BY: WRDLEN
C Also called by application programs.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
CHARACTER*(*) CVERSTR
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
IF (LEN(CVERSTR).LT.8) GOTO 900
CVERSTR = '10.2.3'
RETURN
900 CALL BORT('BUFRLIB: BVERS - INPUT STRING MUST CONTAIN SPACE '//
. 'FOR AT LEAST 8 CHARACTERS')
END