This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / geant321 / gcscan.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:34  cernlib
6 * Geant
7 *
8 *
9 #ifndef CERNLIB_GEANT321_GCSCAN_INC
10 #define CERNLIB_GEANT321_GCSCAN_INC
11 *
12 *
13 * gcscan.inc
14 *
15 #if !defined(CERNLIB_INCLUDE)
16 #if defined(CERNLIB_TYPE)
17 #include "geant321/gtscan.inc"
18 #endif
19       PARAMETER (MSLIST=32,MAXMDT=3)
20       COMMON/GCSCAN/SCANFL,NPHI,PHIMIN,PHIMAX,NTETA,TETMIN,TETMAX,
21      +              MODTET,IPHIMI,IPHIMA,IPHI1,IPHIL,NSLMAX,
22      +              NSLIST,ISLIST(MSLIST),VSCAN(3),FACTX0,FACTL,
23      +              FACTR,IPHI,ITETA,ISCUR,SX0,SABS,TETMID(MAXMDT),
24      +              TETMAD(MAXMDT)
25      +             ,SX0S,SX0T,SABSS,SABST,FACTSF
26      +             ,DLTPHI,DLTETA,DPHIM1,DTETM1
27      +             ,FCX0M1,FCLLM1,FCRRM1
28       LOGICAL SCANFL
29       COMMON/GCSCAC/SFIN,SFOUT
30       CHARACTER*80 SFIN,SFOUT
31 *
32 #endif
33 *
34 * gcscan.inc
35 *
36 #if defined(CERNLIB_INCLUDE)
37 *
38 #include "geant321/incbeg.inc"
39      +   gcscan
40 #include "geant321/incend.inc"
41 #endif
42
43 #endif