[u/mrichter/AliRoot.git] / GEANT321 / gxint / gxcs.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:21:49  cernlib
* Geant
*
*
#include "geant321/pilot.h"
#if defined(CERNLIB_COMIS)
*CMZ :          20/06/95  09.32.44  by  S.Ravndal
*-- Author :
      SUBROUTINE GXCS
C.
C.    ******************************************************************
C.    *                                                                *
C.    *        To initialize the COMIS package                         *
C.    *        To declare addresses of FORTRAN routines and COMMONs    *
C.    *        which may be invoked from COMIS routines                *
C.    *        (one can call CSOMAP instead)                           *
C.    *                                                                *
C.    ******************************************************************
#include "geant321/gcbank.inc"
#include "geant321/gcmate.inc"
#include "geant321/gctmed.inc"
#include "geant321/gcvolu.inc"
#include "geant321/gcflag.inc"
#include "geant321/gctrak.inc"
#include "geant321/gckine.inc"
#include "geant321/gcking.inc"
#include "geant321/gccuts.inc"
#include "geant321/gclist.inc"
#include "geant321/gcnum.inc"
#include "geant321/gconst.inc"
#include "geant321/gcphys.inc"
#include "geant321/gcunit.inc"
#include "geant321/gcdraw.inc"
#include "geant321/gcmulo.inc"
#include "geant321/gcomis.inc"
      DIMENSION P(1)
*
      EXTERNAL GINIT,GZINIT,GDINIT,GPRINT,GPSETS,GXCLOS
      EXTERNAL GSVERT,GSKINE,GSKING,GOPEN,GFIN,GCLOSE
      EXTERNAL GFOUT
      EXTERNAL GMATE,GSMATE,GSMIXT,GSTMED,GSTPAR,GPART,GPHYSI
      EXTERNAL GFMATE,GPIONS
      EXTERNAL GTRIG,GTRIGI,GTRIGC,GTREVE,GIDROP
      EXTERNAL GSVOLU,GSPOS,GSPOSP,GSDVN,GSDVS,GGCLOS,GOPTIM
      EXTERNAL GSROTM,GSORD,GSDET,GSDETH,GSDETV,GSATT
      EXTERNAL GPLMAT,GSAHIT,GSCHIT,GSDIGI,GSXYZ,GDEBUG
      EXTERNAL GPCXYZ,GDCXYZ,GDXYZ,GDAHIT,GDCHIT,GDHITS,GDHEAD
      EXTERNAL GDOPEN,GDCLOS,GDRAW,GDRAWC,GDSCAL,GDMAN,GDCOL
      EXTERNAL GDELET,GDAXIS,GDRAWT
      EXTERNAL GSCANK,GSCANU,GSCANO
      EXTERNAL UGLAST
*
C.
C.    ------------------------------------------------------------------
C.
      CALL PAWCS
*
      CALL CSCOM('GCLINK,GCBANK,GCCUTS,GCFLAG,GCKINE,GCLIST#'
     +,           JDIGI,NZEBRA,CUTGAM,IDEBUG,IKINE,NHSTA,P,P,P,P)
      CALL CSCOM('GCMATE,GCNUM,GCONST,GCPHYS,GCTMED,GCTRAK#'
     +,           NMAT,NMATE,PI,IPAIR,NUMED,VECT,P,P,P,P)
      CALL CSCOM('GCUNIT,GCVOLU,GCDRAW,GCKING,GCMULO#',LIN,NLEVEL,NUMNOD
     +,           KCASE,SINMUL,P,P,P,P,P)
*
      CALL CSEXT('GINIT,GZINIT,GDINIT,GPRINT,GPSETS,GXCLOS#'
     +,           GINIT,GZINIT,GDINIT,GPRINT,GPSETS,GXCLOS,P,P,P,P)
      CALL CSEXT(
     +'GSVERT,GSKINE,GSKING,GFIN,GOPEN,GCLOSE,GFOUT#',
     + GSVERT,GSKINE,GSKING,GFIN,GOPEN,GCLOSE,GFOUT,
     +            P,P,P)
      CALL CSEXT('GMATE,GSMATE,GFMATE,GSMIXT,GSTMED,GSTPAR,GPART,
     +            GPIONS,GPHYSI#'
     +,           GMATE,GSMATE,GFMATE,GSMIXT,GSTMED,GSTPAR,GPART,
     +            GPIONS,GPHYSI,P)
      CALL CSEXT('GTRIG,GTRIGI,GTRIGC,GTREVE,GIDROP#'
     +,           GTRIG,GTRIGI,GTRIGC,GTREVE,GIDROP,P,P,P,P,P)
      CALL CSEXT('GSVOLU,GSPOS,GSPOSP,GSDVN,GSDVS,GGCLOS,GOPTIM#'
     +,           GSVOLU,GSPOS,GSPOSP,GSDVN,GSDVS,GGCLOS,GOPTIM
     +,           P,P,P)
      CALL CSEXT('GSROTM,GSORD,GSDET,GSDETH,GSDETV,GSATT#'
     +,           GSROTM,GSORD,GSDET,GSDETH,GSDETV,GSATT,P,P,P,P)
      CALL CSEXT('GPLMAT,GSAHIT,GSCHIT,GSDIGI,GSXYZ,GDEBUG#'
     +,           GPLMAT,GSAHIT,GSCHIT,GSDIGI,GSXYZ,GDEBUG,P,P,P,P)
      CALL CSEXT('GPCXYZ,GDCXYZ,GDXYZ,GDAHIT,GDCHIT,GDHITS,GDHEAD#'
     +,           GPCXYZ,GDCXYZ,GDXYZ,GDAHIT,GDCHIT,GDHITS,GDHEAD
     +,           P,P,P)
      CALL CSEXT('GDOPEN,GDCLOS,GDELET,GDRAW,GDRAWC,GDAXIS,GDSCAL,GDMAN,
     +            GDCOL#'
     +,           GDOPEN,GDCLOS,GDELET,GDRAW,GDRAWC,GDAXIS,GDSCAL,GDMAN,
     +            GDCOL,P)
      CALL CSEXT('GDRAWT#',GDRAWT,P,P,P,P,P,P,P,P,P)
      CALL CSEXT('GSCANK,GSCANU,GSCANO,GBRSGE#',GSCANK,GSCANU,GSCANO,
     +            GBRSGE,P,P,P,P,P,P)
      CALL CSEXT('UGLAST#',UGLAST,P,P
     +,           P,P,P,P,P,P,P)
*
      CALL GUXCS
*
      END
 
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:21:49 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	#if defined(CERNLIB_COMIS)
	11	*CMZ : 20/06/95 09.32.44 by S.Ravndal
	12	*-- Author :
	13	SUBROUTINE GXCS
	14	C.
	15	C. ******************************************************************
	16	C. * *
	17	C. * To initialize the COMIS package *
	18	C. * To declare addresses of FORTRAN routines and COMMONs *
	19	C. * which may be invoked from COMIS routines *
	20	C. * (one can call CSOMAP instead) *
	21	C. * *
	22	C. ******************************************************************
	23	#include "geant321/gcbank.inc"
	24	#include "geant321/gcmate.inc"
	25	#include "geant321/gctmed.inc"
	26	#include "geant321/gcvolu.inc"
	27	#include "geant321/gcflag.inc"
	28	#include "geant321/gctrak.inc"
	29	#include "geant321/gckine.inc"
	30	#include "geant321/gcking.inc"
	31	#include "geant321/gccuts.inc"
	32	#include "geant321/gclist.inc"
	33	#include "geant321/gcnum.inc"
	34	#include "geant321/gconst.inc"
	35	#include "geant321/gcphys.inc"
	36	#include "geant321/gcunit.inc"
	37	#include "geant321/gcdraw.inc"
	38	#include "geant321/gcmulo.inc"
	39	#include "geant321/gcomis.inc"
	40	DIMENSION P(1)
	41	*
	42	EXTERNAL GINIT,GZINIT,GDINIT,GPRINT,GPSETS,GXCLOS
	43	EXTERNAL GSVERT,GSKINE,GSKING,GOPEN,GFIN,GCLOSE
	44	EXTERNAL GFOUT
	45	EXTERNAL GMATE,GSMATE,GSMIXT,GSTMED,GSTPAR,GPART,GPHYSI
	46	EXTERNAL GFMATE,GPIONS
	47	EXTERNAL GTRIG,GTRIGI,GTRIGC,GTREVE,GIDROP
	48	EXTERNAL GSVOLU,GSPOS,GSPOSP,GSDVN,GSDVS,GGCLOS,GOPTIM
	49	EXTERNAL GSROTM,GSORD,GSDET,GSDETH,GSDETV,GSATT
	50	EXTERNAL GPLMAT,GSAHIT,GSCHIT,GSDIGI,GSXYZ,GDEBUG
	51	EXTERNAL GPCXYZ,GDCXYZ,GDXYZ,GDAHIT,GDCHIT,GDHITS,GDHEAD
	52	EXTERNAL GDOPEN,GDCLOS,GDRAW,GDRAWC,GDSCAL,GDMAN,GDCOL
	53	EXTERNAL GDELET,GDAXIS,GDRAWT
	54	EXTERNAL GSCANK,GSCANU,GSCANO
	55	EXTERNAL UGLAST
	56	*
	57	C.
	58	C. ------------------------------------------------------------------
	59	C.
	60	CALL PAWCS
	61	*
	62	CALL CSCOM('GCLINK,GCBANK,GCCUTS,GCFLAG,GCKINE,GCLIST#'
	63	+, JDIGI,NZEBRA,CUTGAM,IDEBUG,IKINE,NHSTA,P,P,P,P)
	64	CALL CSCOM('GCMATE,GCNUM,GCONST,GCPHYS,GCTMED,GCTRAK#'
65	+, NMAT,NMATE,PI,IPAIR,NUMED,VECT,P,P,P,P)
66	CALL CSCOM('GCUNIT,GCVOLU,GCDRAW,GCKING,GCMULO#',LIN,NLEVEL,NUMNOD
67	+, KCASE,SINMUL,P,P,P,P,P)
68	*
69	CALL CSEXT('GINIT,GZINIT,GDINIT,GPRINT,GPSETS,GXCLOS#'
70	+, GINIT,GZINIT,GDINIT,GPRINT,GPSETS,GXCLOS,P,P,P,P)
71	CALL CSEXT(
72	+'GSVERT,GSKINE,GSKING,GFIN,GOPEN,GCLOSE,GFOUT#',
73	+ GSVERT,GSKINE,GSKING,GFIN,GOPEN,GCLOSE,GFOUT,
74	+ P,P,P)
75	CALL CSEXT('GMATE,GSMATE,GFMATE,GSMIXT,GSTMED,GSTPAR,GPART,
76	+ GPIONS,GPHYSI#'
77	+, GMATE,GSMATE,GFMATE,GSMIXT,GSTMED,GSTPAR,GPART,
78	+ GPIONS,GPHYSI,P)
79	CALL CSEXT('GTRIG,GTRIGI,GTRIGC,GTREVE,GIDROP#'
80	+, GTRIG,GTRIGI,GTRIGC,GTREVE,GIDROP,P,P,P,P,P)
81	CALL CSEXT('GSVOLU,GSPOS,GSPOSP,GSDVN,GSDVS,GGCLOS,GOPTIM#'
82	+, GSVOLU,GSPOS,GSPOSP,GSDVN,GSDVS,GGCLOS,GOPTIM
83	+, P,P,P)
84	CALL CSEXT('GSROTM,GSORD,GSDET,GSDETH,GSDETV,GSATT#'
85	+, GSROTM,GSORD,GSDET,GSDETH,GSDETV,GSATT,P,P,P,P)
86	CALL CSEXT('GPLMAT,GSAHIT,GSCHIT,GSDIGI,GSXYZ,GDEBUG#'
87	+, GPLMAT,GSAHIT,GSCHIT,GSDIGI,GSXYZ,GDEBUG,P,P,P,P)
88	CALL CSEXT('GPCXYZ,GDCXYZ,GDXYZ,GDAHIT,GDCHIT,GDHITS,GDHEAD#'
89	+, GPCXYZ,GDCXYZ,GDXYZ,GDAHIT,GDCHIT,GDHITS,GDHEAD
90	+, P,P,P)
91	CALL CSEXT('GDOPEN,GDCLOS,GDELET,GDRAW,GDRAWC,GDAXIS,GDSCAL,GDMAN,
92	+ GDCOL#'
93	+, GDOPEN,GDCLOS,GDELET,GDRAW,GDRAWC,GDAXIS,GDSCAL,GDMAN,
94	+ GDCOL,P)
95	CALL CSEXT('GDRAWT#',GDRAWT,P,P,P,P,P,P,P,P,P)
96	CALL CSEXT('GSCANK,GSCANU,GSCANO,GBRSGE#',GSCANK,GSCANU,GSCANO,
97	+ GBRSGE,P,P,P,P,P,P)
98	CALL CSEXT('UGLAST#',UGLAST,P,P
99	+, P,P,P,P,P,P,P)
100	*
101	CALL GUXCS
102	*
103	END
104
105	#endif