Warning, /include/geant321/gcscan.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1995/10/24 10:20:33 cernlib
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_GEANT321_GCSCAN_INC
0010 #define CERNLIB_GEANT321_GCSCAN_INC
0011 *
0012 *
0013 * gcscan.inc
0014 *
0015 #if !defined(CERNLIB_INCLUDE)
0016 #if defined(CERNLIB_TYPE)
0017 #include "geant321/gtscan.inc"
0018 #endif
0019 PARAMETER (MSLIST=32,MAXMDT=3)
0020 COMMON/GCSCAN/SCANFL,NPHI,PHIMIN,PHIMAX,NTETA,TETMIN,TETMAX,
0021 + MODTET,IPHIMI,IPHIMA,IPHI1,IPHIL,NSLMAX,
0022 + NSLIST,ISLIST(MSLIST),VSCAN(3),FACTX0,FACTL,
0023 + FACTR,IPHI,ITETA,ISCUR,SX0,SABS,TETMID(MAXMDT),
0024 + TETMAD(MAXMDT)
0025 + ,SX0S,SX0T,SABSS,SABST,FACTSF
0026 + ,DLTPHI,DLTETA,DPHIM1,DTETM1
0027 + ,FCX0M1,FCLLM1,FCRRM1
0028 LOGICAL SCANFL
0029 COMMON/GCSCAC/SFIN,SFOUT
0030 CHARACTER*80 SFIN,SFOUT
0031 *
0032 #endif
0033 *
0034 * gcscan.inc
0035 *
0036 #if defined(CERNLIB_INCLUDE)
0037 *
0038 #include "geant321/incbeg.inc"
0039 + gcscan
0040 #include "geant321/incend.inc"
0041 #endif
0042
0043 #endif
