gpamela/gcdes/gcrayt.inc

*
* $Id$
*
* $Log$
*
*
* gcrayt.inc
*
      COMMON/GCRAYT/INTEN,IOMBRA,IXYFLA,NOFLAG,
     +XLPOS,YLPOS,ZLPOS,XLDIR,YLDIR,ZLDIR,APFLAH,
     +CCXX(4),CCYY(4),CCZZ(4),BOFLAG,APFLAG,
     +XCOSXS,YCOSYS,ZCOSZS,VDX,VDY,VDZ,SSLENG,
     +XPINTS,YPINTS,ZPINTS,FPINTX,FPINTY,FPINTZ,
     +AROTS(4,4),ZROTS(4,4),RRR(4)
C
#if defined(GPAMELA_TYPE)
#include "gtrayt.inc"
#endif
C
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcrayt.inc
8			*
9			COMMON/GCRAYT/INTEN,IOMBRA,IXYFLA,NOFLAG,
10			+XLPOS,YLPOS,ZLPOS,XLDIR,YLDIR,ZLDIR,APFLAH,
11			+CCXX(4),CCYY(4),CCZZ(4),BOFLAG,APFLAG,
12			+XCOSXS,YCOSYS,ZCOSZS,VDX,VDY,VDZ,SSLENG,
13			+XPINTS,YPINTS,ZPINTS,FPINTX,FPINTY,FPINTZ,
14			+AROTS(4,4),ZROTS(4,4),RRR(4)
15			C
16			#if defined(GPAMELA_TYPE)
17			#include "gtrayt.inc"
18			#endif
19			C