GEANT321/gxint/gxcs.F

   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