GDIRS = gbase gcons gdraw geocad ggeom gheisha ghits ghrout ghutils giface \
giopa gkine gparal gphys gscan gstrag gtrak matx55 miface miguti \
- neutron peanut fiface cgpack fluka block comad
+ neutron peanut fiface cgpack fluka block comad erdecks erpremc
XDIRS = gxint cdf
#if defined(CERNLIB_WINNT)
#define gcaddc GCADDC
#define gcaddf GCADDF
+ #define gcaddd GCADDD
#define gcaddi GCADDI
#define gcaddl GCADDL
#define type_of_call _stdcall
#else
#define gcaddc gcaddc_
#define gcaddf gcaddf_
+ #define gcaddd gcaddd_
#define gcaddi gcaddi_
#define gcaddl gcaddl_
#define type_of_call
{
return arg;
}
+extern "C" double* type_of_call gcaddd(double *arg)
+{
+ return arg;
+}
extern "C" int* type_of_call gcaddi(int *arg)
{
return arg;
#include "geant321/gcxlun.inc"
#include "geant321/gfkdis.inc"
#include "geant321/gsecti.inc"
+*
+* Commons for GEANE
+#include "geant321/ertrio.inc"
+#include "geant321/eropts.inc"
+#include "geant321/erwork.inc"
+* Commons for GEANE
+*
COMMON / QUEST / IQUEST(100)
*
CHARACTER *(*) CHCOMM
#if defined(CERNLIB_DECS)
- INTEGER*8 GCADDI, GCADDF, GCADDL, GCADDC, IADD
+ INTEGER*8 GCADDI, GCADDF, GCADDL, GCADDC, GCADDD, IADD
#else
- INTEGER GCADDI, GCADDF, GCADDL, GCADDC
+ INTEGER GCADDI, GCADDF, GCADDL, GCADDC, GCADDD
#endif
*
IF(CHCOMM.EQ.'GCASHO') THEN
IADD=GCADDF(THRIND)
ELSE IF(CHCOMM.EQ.'QUEST') THEN
IADD=GCADDI(IQUEST)
+ ELSE IF(CHCOMM.EQ.'ERTRIO') THEN
+ IADD=GCADDD(ERDTRP)
+ ELSE IF(CHCOMM.EQ.'EROPTS') THEN
+ IADD=GCADDF(ERPLI)
+ ELSE IF(CHCOMM.EQ.'EROPTC') THEN
+ IADD=GCADDC(CHOPTI)
+ ELSE IF(CHCOMM.EQ.'ERWORK') THEN
+ IADD=GCADDD(EI)
ELSE IF(CHCOMM.EQ.'GCBANK') THEN
IADD=GCADDI(NZEBRA)
ELSE