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