GEANT321/gbase/getver.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.12  1998/02/10 18:13:44  japost
   6 *  Correct the version number HVERS returned (now 3.2111 not 3.2210 for 3.21/11)
   7 *
   8 * Revision 1.11  1997/11/13 16:06:04  mclareni
   9 * Update the date also
  10 *
  11 * Revision 1.10  1997/11/13 13:04:29  mclareni
  12 * Increase cradle no. to 0.10
  13 *
  14 * Revision 1.9  1997/10/17 10:26:20  mclareni
  15 * Increase cradle no. to 0.09
  16 *
  17 * Revision 1.8  1997/06/20 18:40:43  japost
  18 *   Updating the version number after commiting several changes:
  19 *   to gthion, gflufin, ghetun
  20 *   Remaining problem: gdrawp, ghadr?
  21 *
  22 * Revision 1.7  1997/01/06 17:16:29  cernlib
  23 * Remove ginit.F- and getver.F-
  24 *
  25 * Revision 1.6  1996/11/13 11:19:06  ravndal
  26 * new cradle number /06
  27 *
  28 * Revision 1.5  1996/04/15 14:16:04  ravndal
  29 * Slash instead of underscore
  30 *
  31 * Revision 1.4  1996/03/27 08:29:14  cernlib
  32 * In line 40 the Hollerith had less than thespecified 40 characters.
  33 *
  34 * Time to get rid of these HOLLERITH
  35 *
  36 * Revision 1.3  1996/03/15 14:51:40  ravndal
  37 * 96A version of GEANT
  38 *
  39 * Revision 1.2  1996/03/07 13:18:00  ravndal
  40 * Preparing version number for 96A release
  41 *
  42 * Revision 1.1.1.1  1995/10/24 10:20:12  cernlib
  43 * Geant
  44 *
  45 *
  46 #include "geant321/pilot.h"
  47 *CMZ :  3.21/04 06/12/94  15.11.22  by  S.Ravndal
  48 *-- Author :
  49       SUBROUTINE GETVER(CHVER,CHDAT,HVERS)
  50 C.
  51 C.    ******************************************************************
  52 C.    *                                                                *
  53 C.    *     Routine to get the current version number from a pam       *
  54 C.    *     file. This routine is cracking the title given in          *
  55 C.    *     HOLLERITH format, because CMZ and old versions of PATCHY   *
  56 C.    *     do not support the character title sequence QFTITLCH       *
  57 C.    *                                                                *
  58 C.    *    ==>Called by : GINIT                                        *
  59 C.    *       Author    F.Carminati *********                          *
  60 C.    *                                                                *
  61 C.    ******************************************************************
  62 C.
  63       CHARACTER*60 CHTIT
  64       CHARACTER*6 CHFOR
  65       CHARACTER*8 CHVER,CHDAT
  66 *
  67       CHVER = ' '
  68       HVERS = 0.
  69       CHDAT = ' '
  70 *
  71       WRITE(CHTIT,'(
  72      + 40H GEANT   3.21/11  100298
  73      +)')
  74       DO 10 JSLASH=1,60
  75          IF(CHTIT(JSLASH:JSLASH).EQ.'/') THEN
  76             JSL=JSLASH
  77             GOTO 20
  78          ENDIF
  79    10 CONTINUE
  80       GOTO 999
  81 *
  82    20 CONTINUE
  83       DO 30 JBLA=JSL,1,-1
  84          IF(CHTIT(JBLA-1:JBLA-1).EQ.' ') THEN
  85             JBEG=JBLA
  86             GOTO 40
  87          ENDIF
  88    30 CONTINUE
  89       GOTO 999
  90 *
  91    40 CONTINUE
  92       DO 50 JBLA=JSL,60
  93          IF(CHTIT(JBLA+1:JBLA+1).EQ.' ') THEN
  94             JEND=JBLA
  95             GOTO 60
  96          ENDIF
  97    50 CONTINUE
  98       GOTO 999
  99 *
 100    60 WRITE(CHFOR,'(''(F'',I1,''.2)'')') JSL-JBEG
 101       READ(CHTIT(JBEG:JSL-1),CHFOR) HMAIN
 102       READ(CHTIT(JSL+1:JEND),'(I2)')   ISUBV
 103       HVERS=HMAIN+ISUBV*.0001
 104       NCHA=JEND-JBEG+1
 105       CHVER=' '
 106       IF(NCHA.EQ.8) THEN
 107          CHVER=CHTIT(JBEG:JEND)
 108       ELSE
 109          CHVER=' '//CHTIT(JBEG:JEND)
 110       ENDIF
 111 *
 112       CHDAT=CHTIT(JEND+3:JEND+11)
 113 *
 114   999 END