gpamela/gcdes/gcscan.inc

*
* $Id$
*
* $Log$
*
*
* gcscan.inc
*
#if defined(GPAMELA_TYPE)
#include "gtscan.inc"
#endif
      PARAMETER (MSLIST=32,MAXMDT=3)
      COMMON/GCSCAN/SCANFL,NPHI,PHIMIN,PHIMAX,NTETA,TETMIN,TETMAX,
     +              MODTET,IPHIMI,IPHIMA,IPHI1,IPHIL,NSLMAX,
     +              NSLIST,ISLIST(MSLIST),VSCAN(3),FACTX0,FACTL,
     +              FACTR,IPHI,ITETA,ISCUR,SX0,SABS,TETMID(MAXMDT),
     +              TETMAD(MAXMDT)
     +             ,SX0S,SX0T,SABSS,SABST,FACTSF
     +             ,DLTPHI,DLTETA,DPHIM1,DTETM1
     +             ,FCX0M1,FCLLM1,FCRRM1
      LOGICAL SCANFL
      COMMON/GCSCAC/SFIN,SFOUT
      CHARACTER*80 SFIN,SFOUT
*
*
* gcscan.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcscan
#include "incend.inc"
#endif
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gcscan.inc
8	*
9	#if defined(GPAMELA_TYPE)
10	#include "gtscan.inc"
11	#endif
12	PARAMETER (MSLIST=32,MAXMDT=3)
13	COMMON/GCSCAN/SCANFL,NPHI,PHIMIN,PHIMAX,NTETA,TETMIN,TETMAX,
14	+ MODTET,IPHIMI,IPHIMA,IPHI1,IPHIL,NSLMAX,
15	+ NSLIST,ISLIST(MSLIST),VSCAN(3),FACTX0,FACTL,
16	+ FACTR,IPHI,ITETA,ISCUR,SX0,SABS,TETMID(MAXMDT),
17	+ TETMAD(MAXMDT)
18	+ ,SX0S,SX0T,SABSS,SABST,FACTSF
19	+ ,DLTPHI,DLTETA,DPHIM1,DTETM1
20	+ ,FCX0M1,FCLLM1,FCRRM1
21	LOGICAL SCANFL
22	COMMON/GCSCAC/SFIN,SFOUT
23	CHARACTER*80 SFIN,SFOUT
24	*
25	*
26	* gcscan.inc
27	*
28	#if defined(GPAMELA_INCLUDE)
29	*
30	#include "incbeg.inc"
31	+ gcscan
32	#include "incend.inc"
33	#endif