This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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