gpamela/gcdes/gcjloc.inc

*
* $Id$
*
* $Log$
*
*
* gcjloc.inc
*
      COMMON/GCJLOC/NJLOC(2),JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
     +                  ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
     +                  ,JMULOF,JCOEF,JRANG
C
      INTEGER       NJLOC   ,JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
     +                  ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
     +                  ,JMULOF,JCOEF,JRANG
C
      COMMON/GCJLCK/NJLCK(2),JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
     +                      ,JPOLAR,JTSTRA,JTSTCO,JTSTEN,JTASHO
C
      EQUIVALENCE (JLASTV,JTSTEN)
C
      INTEGER       NJLCK,JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
     +                   ,JPOLAR,JLASTV,JTSTRA,JTSTCO,JTSTEN
     +                   ,JTASHO
C
*
* gcjloc.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcjloc
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcjloc.inc
8			*
9			COMMON/GCJLOC/NJLOC(2),JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
10			+ ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
11			+ ,JMULOF,JCOEF,JRANG
12			C
13			INTEGER NJLOC ,JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
14			+ ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
15			+ ,JMULOF,JCOEF,JRANG
16			C
17			COMMON/GCJLCK/NJLCK(2),JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
18			+ ,JPOLAR,JTSTRA,JTSTCO,JTSTEN,JTASHO
19			C
20			EQUIVALENCE (JLASTV,JTSTEN)
21			C
22			INTEGER NJLCK,JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
23			+ ,JPOLAR,JLASTV,JTSTRA,JTSTCO,JTSTEN
24			+ ,JTASHO
25			C
26			*
27			* gcjloc.inc
28			*
29			#if defined(GPAMELA_INCLUDE)
30			*
31			#include "incbeg.inc"
32			+ gcjloc
33			#include "incend.inc"
34			#endif