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	cafagna	3.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