var/external/bufr/bvers.f

   1         SUBROUTINE BVERS (CVERSTR)
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    BVERS
   6 C   PRGMMR: J. ATOR          ORG: NP12       DATE: 2009-03-23
   7 C
   8 C ABSTRACT: THIS SUBROUTINE RETURNS A CHARACTER STRING CONTAINING THE
   9 C   VERSION NUMBER OF THE BUFR ARCHIVE LIBRARY SOFTWARE.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
  13 C 2011-09-26  J. ATOR    -- UPDATED TO VERSION 10.0.1
  14 C 2012-02-24  J. ATOR    -- UPDATED TO VERSION 10.1.0
  15 C 2012-10-12  J. ATOR    -- UPDATED TO VERSION 10.2.0
  16 C 2012-11-29  J. ATOR    -- UPDATED TO VERSION 10.2.1
  17 C 2012-12-04  J. ATOR    -- UPDATED TO VERSION 10.2.2
  18 C 2013-01-08  J. ATOR    -- UPDATED TO VERSION 10.2.3
  19 C
  20 C USAGE:    CALL BVERS (CVERSTR)
  21 C
  22 C   OUTPUT ARGUMENT LIST:
  23 C     CVERSTR  - CHARACTER*(*): VERSION STRING
  24 C
  25 C REMARKS:
  26 C    THIS ROUTINE CALLS:        BORT
  27 C    THIS ROUTINE IS CALLED BY: WRDLEN
  28 C                               Also called by application programs.
  29 C
  30 C ATTRIBUTES:
  31 C   LANGUAGE: FORTRAN 77
  32 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  33 C
  34 C$$$
  35
  36         CHARACTER*(*)   CVERSTR
  37
  38 C-----------------------------------------------------------------------
  39 C-----------------------------------------------------------------------
  40
  41         IF (LEN(CVERSTR).LT.8) GOTO 900
  42
  43         CVERSTR = '10.2.3'
  44
  45         RETURN
  46 900     CALL BORT('BUFRLIB: BVERS - INPUT STRING MUST CONTAIN SPACE '//
  47      .    'FOR AT LEAST 8 CHARACTERS')
  48         END