]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 |