*
* $Id: getver.F,v 1.14 1999/11/15 15:30:33 mclareni Exp $
*
* $Log: getver.F,v $
* Revision 1.14  1999/11/15 15:30:33  mclareni
* Updated version number to 3.21/13
*
* Revision 1.13  1999/01/27 14:21:03  mclareni
* Updated version number to 3.21/12
*
* Revision 1.12  1998/02/10 18:13:44  japost
*  Correct the version number HVERS returned (now 3.2111 not 3.2210 for 3.21/11)
*
* Revision 1.11  1997/11/13 16:06:04  mclareni
* Update the date also
*
* Revision 1.10  1997/11/13 13:04:29  mclareni
* Increase cradle no. to 0.10
*
* Revision 1.9  1997/10/17 10:26:20  mclareni
* Increase cradle no. to 0.09
*
* Revision 1.8  1997/06/20 18:40:43  japost
*   Updating the version number after commiting several changes:
*   to gthion, gflufin, ghetun
*   Remaining problem: gdrawp, ghadr?
*
* Revision 1.7  1997/01/06 17:16:29  cernlib
* Remove ginit.F- and getver.F-
*
* Revision 1.6  1996/11/13 11:19:06  ravndal
* new cradle number /06
*
* Revision 1.5  1996/04/15 14:16:04  ravndal
* Slash instead of underscore
*
* Revision 1.4  1996/03/27 08:29:14  cernlib
* In line 40 the Hollerith had less than thespecified 40 characters.
*
* Time to get rid of these HOLLERITH
*
* Revision 1.3  1996/03/15 14:51:40  ravndal
* 96A version of GEANT
*
* Revision 1.2  1996/03/07 13:18:00  ravndal
* Preparing version number for 96A release
*
* Revision 1.1.1.1  1995/10/24 10:20:12  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/04 06/12/94  15.11.22  by  S.Ravndal
*-- Author :
      SUBROUTINE GETVER(CHVER,CHDAT,HVERS)
C.
C.    ******************************************************************
C.    *                                                                *
C.    *     Routine to get the current version number from a pam       *
C.    *     file. This routine is cracking the title given in          *
C.    *     HOLLERITH format, because CMZ and old versions of PATCHY   *
C.    *     do not support the character title sequence QFTITLCH       *
C.    *                                                                *
C.    *    ==>Called by : GINIT                                        *
C.    *       Author    F.Carminati *********                          *
C.    *                                                                *
C.    ******************************************************************
C.
      CHARACTER*60 CHTIT
      CHARACTER*6 CHFOR
      CHARACTER*8 CHVER,CHDAT
*
      CHVER = ' '
      HVERS = 0.
      CHDAT = ' '
*
      WRITE(CHTIT,'(
     + 40H GEANT   3.21/13  15111999                      
     +)')
      DO 10 JSLASH=1,60
         IF(CHTIT(JSLASH:JSLASH).EQ.'/') THEN
            JSL=JSLASH
            GOTO 20
         ENDIF
   10 CONTINUE
      GOTO 999
*
   20 CONTINUE
      DO 30 JBLA=JSL,1,-1
         IF(CHTIT(JBLA-1:JBLA-1).EQ.' ') THEN
            JBEG=JBLA
            GOTO 40
         ENDIF
   30 CONTINUE
      GOTO 999
*
   40 CONTINUE
      DO 50 JBLA=JSL,60
         IF(CHTIT(JBLA+1:JBLA+1).EQ.' ') THEN
            JEND=JBLA
            GOTO 60
         ENDIF
   50 CONTINUE
      GOTO 999
*
   60 WRITE(CHFOR,'(''(F'',I1,''.2)'')') JSL-JBEG
      READ(CHTIT(JBEG:JSL-1),CHFOR) HMAIN
      READ(CHTIT(JSL+1:JEND),'(I2)')   ISUBV
      HVERS=HMAIN+ISUBV*.0001
      NCHA=JEND-JBEG+1
      CHVER=' '
      IF(NCHA.EQ.8) THEN
         CHVER=CHTIT(JBEG:JEND)
      ELSE
         CHVER=' '//CHTIT(JBEG:JEND)
      ENDIF
*
      CHDAT=CHTIT(JEND+3:JEND+11)
*
  999 END