gpamela/gcdes/gcmulo.inc

*
* $Id$
*
* $Log$
*
*
* gcmulo.inc
*
      COMMON/GCMULO/SINMUL(101),COSMUL(101),SQRMUL(101),OMCMOL,CHCMOL
     +  ,EKMIN,EKMAX,NEKBIN,NEK1,EKINV,GEKA,GEKB,EKBIN(200),ELOW(200)
C
      REAL SINMUL,COSMUL,SQRMUL,OMCMOL,CHCMOL,EKMIN,EKMAX,ELOW,EKINV
      REAL GEKA,GEKB,EKBIN
      INTEGER NEKBIN,NEK1
C
*
* gcmulo.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcmulo
#include "incend.inc"
#endif
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gcmulo.inc
8	*
9	COMMON/GCMULO/SINMUL(101),COSMUL(101),SQRMUL(101),OMCMOL,CHCMOL
10	+ ,EKMIN,EKMAX,NEKBIN,NEK1,EKINV,GEKA,GEKB,EKBIN(200),ELOW(200)
11	C
12	REAL SINMUL,COSMUL,SQRMUL,OMCMOL,CHCMOL,EKMIN,EKMAX,ELOW,EKINV
13	REAL GEKA,GEKB,EKBIN
14	INTEGER NEKBIN,NEK1
15	C
16	*
17	* gcmulo.inc
18	*
19	#if defined(GPAMELA_INCLUDE)
20	*
21	#include "incbeg.inc"
22	+ gcmulo
23	#include "incend.inc"
24	#endif