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	*
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