3 /* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
4 * See cxx source for full Copyright notice */
8 ////////////////////////////////////////////////
9 // C++ interface to Geant3 basic routines //
10 ////////////////////////////////////////////////
14 //______________________________________________________________
16 // Geant3 prototypes for commons
18 //______________________________________________________________
22 // COMMON/QUEST/IQUEST(100)
28 // COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
29 // + ,LMAIN,LR1,WS(KWBANK)
43 // COMMON/GCLINK/JDIGI ,JDRAW ,JHEAD ,JHITS ,JKINE ,JMATE ,JPART
44 // + ,JROTM ,JRUNG ,JSET ,JSTAK ,JGSTAT,JTMED ,JTRACK,JVERTX
45 // + ,JVOLUM,JXYZ ,JGPAR ,JGPAR2,JSKLT
71 // COMMON/GCFLAG/IDEBUG,IDEMIN,IDEMAX,ITEST,IDRUN,IDEVT,IEORUN
72 // + ,IEOTRI,IEVENT,ISWIT(10),IFINIT(20),NEVENT,NRNDM(2)
90 // COMMON/GCKINE/IKINE,PKINE(10),ITRA,ISTAK,IVERT,IPART,ITRTYP
91 // + ,NAPART(5),AMASS,CHARGE,TLIFE,VERT(3),PVERT(4),IPAOLD
110 // COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN),
111 // + TOFD(MXGKIN),IFLGK(MXGKIN)
116 Float_t gkin[MXGKIN][5];
122 // COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT)
126 Float_t xphot[MXPHOT][11];
130 // COMMON/GCKIN3/GPOS(3,MXGKIN)
132 Float_t gpos[MXGKIN][3];
136 // COMMON/GCMATE/NMAT,NAMATE(5),A,Z,DENS,RADL,ABSL
148 // COMMON/GCTMED/NUMED,NATMED(5),ISVOL,IFIELD,FIELDM,TMAXFD,STEMAX
149 // + ,DEEMAX,EPSIL,STMIN,CFIELD,PREC,IUPD,ISTPAR,NUMOLD
170 // PARAMETER (MAXMEC=30)
171 // COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC)
172 // + ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG
173 // + ,STEP ,SNEXT ,SFIELD,TOFG ,GEKRAT,UPWGHT,IGNEXT,INWVOL
174 // + ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN
211 // COMMON/GCVOLU/NLEVEL,NAMES(15),NUMBER(15),
212 // +LVOLUM(15),LINDEX(15),INFROM,NLEVMX,NLDEV(15),LINMX(15),
213 // +GTRAN(3,15),GRMAT(10,15),GONLY(15),GLX(3)
224 Float_t gtran[15][3];
225 Float_t grmat[15][10];
231 // COMMON/GCSETS/IHSET,IHDET,ISET,IDET,IDTYPE,NVNAME,NUMBV(20)
243 // COMMON/GCNUM/NMATE ,NVOLUM,NROTM,NTMED,NTMULT,NTRACK,NPART
244 // + ,NSTMAX,NVERTX,NHEAD,NBIT
260 // COMMON/GCCUTS/CUTGAM,CUTELE,CUTNEU,CUTHAD,CUTMUO,BCUTE,BCUTM
261 // + ,DCUTE ,DCUTM ,PPCUTM,TOFMAX,GCUTS(5)
278 // COMMON/GCMULO/SINMUL(101),COSMUL(101),SQRMUL(101),OMCMOL,CHCMOL
279 // + ,EKMIN,EKMAX,NEKBIN,NEK1,EKINV,GEKA,GEKB,EKBIN(200),ELOW(200)
298 // COMMON/GCPHYS/IPAIR,SPAIR,SLPAIR,ZINTPA,STEPPA
299 // + ,ICOMP,SCOMP,SLCOMP,ZINTCO,STEPCO
300 // + ,IPHOT,SPHOT,SLPHOT,ZINTPH,STEPPH
301 // + ,IPFIS,SPFIS,SLPFIS,ZINTPF,STEPPF
302 // + ,IDRAY,SDRAY,SLDRAY,ZINTDR,STEPDR
303 // + ,IANNI,SANNI,SLANNI,ZINTAN,STEPAN
304 // + ,IBREM,SBREM,SLBREM,ZINTBR,STEPBR
305 // + ,IHADR,SHADR,SLHADR,ZINTHA,STEPHA
306 // + ,IMUNU,SMUNU,SLMUNU,ZINTMU,STEPMU
307 // + ,IDCAY,SDCAY,SLIFE ,SUMLIF,DPHYS1
308 // + ,ILOSS,SLOSS,SOLOSS,STLOSS,DPHYS2
309 // + ,IMULS,SMULS,SOMULS,STMULS,DPHYS3
310 // + ,IRAYL,SRAYL,SLRAYL,ZINTRA,STEPRA
311 // COMMON/GCPHLT/ILABS,SLABS,SLLABS,ZINTLA,STEPLA
383 // COMMON/GCOPTI/IOPTIM
389 // COMMON/GCTLIT/THRIND,PMIN,DP,DNDL,JMIN,ITCKOV,IMCKOV,NPCKOV
402 // COMMON/GCVDMA/NVMANY,MANYLE(20),MANYNA(20,15),
403 // +MANYNU(20,15),NFMANY,MYCOUN,IMYSE,RAYTRA,VECCOS(3)
412 // COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1)
415 Int_t namec1[MAXME1];
418 /************************************************************************
420 * Commons for GEANE *
422 ************************************************************************/
426 // PARAMETER (MXPRED = 10)
427 // DOUBLE PRECISION ERDTRP
428 // REAL ERRIN, ERROUT, ERTRSP, ERXIN, ERXOUT, ERPIN,
430 // INTEGER NEPRED, INLIST, ILPRED, IEPRED
431 // COMMON /ERTRIO/ ERDTRP(5,5,MXPRED), ERRIN(15), ERROUT(15,MXPRED),
432 // + ERTRSP(5,5,MXPRED), ERXIN( 3), ERXOUT( 3,MXPRED),
433 // + ERPIN(3), ERPOUT(3,MXPRED), NEPRED,INLIST,ILPRED,
439 Double_t erdtrp[MXPRED*5*5];
441 Float_t errout[MXPRED*15];
442 Float_t ertrsp[MXPRED*5*5];
444 Float_t erxout[MXPRED*3];
446 Float_t erpout[MXPRED*3];
454 // CHARACTER*8 CHOPTI
455 // LOGICAL LEEXAC, LELENG, LEONLY, LEPLAN, LEPOIN, LEVOLU
456 // REAL ERPLI, ERPLO, ERLENG
457 // INTEGER NAMEER, NUMVER, IOVLER
458 // COMMON /EROPTS/ ERPLI(3,2), ERPLO(3,4,MXPRED), ERLENG(MXPRED),
459 // + NAMEER(MXPRED), NUMVER(MXPRED), IOVLER(MXPRED),
460 // + LEEXAC, LELENG, LEONLY, LEPLAN, LEPOIN, LEVOLU
461 // COMMON /EROPTC/CHOPTI
465 Float_t erplo[MXPRED*3*4];
466 Float_t erleng[MXPRED];
467 Int_t nameer[MXPRED];
468 Int_t numver[MXPRED];
469 Int_t iovler[MXPRED];
483 // DOUBLE PRECISION EI, EF, ASDSC
484 // COMMON /ERWORK/ EI(15), EF(15), ASDSC(5,5),
485 // + XI(3), PPI(3), HI(9),
486 // + XF(3), PF(3), HF(9),
487 // + CHTR, DEDX2, BACKTR, CUTEK, TLGCM2, TLRAD
507 /************************************************************************
509 * Commons for GEANE *
511 ************************************************************************/
513 class TGeant3 : public AliMC {
516 Int_t fNextVol; // Iterator for GeomIter
518 //--------------Declarations for ZEBRA---------------------
551 //Put here all volume names
553 char (*fVolNames)[5]; //! Names of geant volumes as C++ chars
555 enum {kMaxParticles = 100};
559 Int_t fPDGCode[kMaxParticles];
563 TGeant3(const char *title, Int_t nwgeant=0);
564 virtual ~TGeant3() {if(fVolNames) {
568 virtual void LoadAddress();
570 ///////////////////////////////////////////////////////////////////////
573 // Here are the service routines from the geometry //
574 // which could be implemented also in other geometries //
577 ///////////////////////////////////////////////////////////////////////
580 Int_t CurrentMaterial(Float_t &a, Float_t &z, Float_t &dens, Float_t &radl, Float_t &absl) const;
581 Int_t NextVolUp(Text_t *name, Int_t ©);
582 Int_t CurrentVolID(Int_t ©) const;
583 Int_t CurrentVolOffID(Int_t off, Int_t ©) const;
584 const char* CurrentVolName() const;
585 const char *CurrentVolOffName(Int_t off) const;
586 Int_t VolId(const Text_t *name) const;
587 Int_t IdFromPDG(Int_t pdg) const;
588 Int_t PDGFromId(Int_t pdg) const;
589 void DefineParticles();
590 const char* VolName(Int_t id) const;
591 Float_t Xsec(char*, Float_t, Int_t, Int_t);
592 void TrackPosition(TLorentzVector &xyz) const;
593 void TrackMomentum(TLorentzVector &xyz) const;
594 Int_t NofVolumes() const;
595 Float_t TrackTime() const;
596 Float_t TrackCharge() const;
597 Float_t TrackMass() const;
598 Float_t TrackStep() const;
599 Float_t TrackLength() const;
600 Int_t TrackPid() const;
601 Bool_t IsTrackInside() const;
602 Bool_t IsTrackEntering() const;
603 Bool_t IsTrackExiting() const;
604 Bool_t IsTrackOut() const;
605 Bool_t IsTrackDisappeared() const;
606 Bool_t IsTrackStop() const;
607 Bool_t IsTrackAlive() const;
608 Int_t NSecondaries() const;
609 Int_t CurrentEvent() const;
610 const char* ProdProcess() const;
611 void GetSecondary(Int_t, Int_t&, TLorentzVector&, TLorentzVector&);
614 Float_t MaxStep() const;
615 void SetMaxStep(Float_t maxstep);
616 void SetMaxNStep(Int_t maxnstp);
617 Int_t GetMaxNStep() const;
618 void SetCut(const char* cutName, Float_t cutValue);
619 void SetProcess(const char* flagName, Int_t flagValue);
620 // void GetParticle(const Int_t pdg, char *name, Float_t &mass) const;
621 virtual Int_t GetMedium() const;
622 virtual Float_t Edep() const;
623 virtual Float_t Etot() const;
624 virtual void Rndm(Float_t* r, const Int_t n) const;
625 virtual void Material(Int_t&, const char*, Float_t, Float_t, Float_t, Float_t,
626 Float_t, Float_t* buf=0, Int_t nwbuf=0);
627 virtual void Mixture(Int_t&, const char*, Float_t*, Float_t*, Float_t, Int_t, Float_t*);
628 virtual void Medium(Int_t&, const char*, Int_t, Int_t, Int_t, Float_t, Float_t,
629 Float_t, Float_t, Float_t, Float_t, Float_t* ubuf=0, Int_t nbuf=0);
630 virtual void Matrix(Int_t&, Float_t, Float_t, Float_t, Float_t, Float_t, Float_t);
632 /////////////////////////////////////////////////////////////////////////////////////////////
635 // Here are the interface functions with GEANT3.21 //
638 /////////////////////////////////////////////////////////////////////////////////////////////
640 // access functions to commons
642 virtual Quest_t* Quest() const {return fQuest;}
643 virtual Gcbank_t* Gcbank() const {return fGcbank;}
644 virtual Gclink_t* Gclink() const {return fGclink;}
645 virtual Gccuts_t* Gccuts() const {return fGccuts;}
646 virtual Gcmulo_t* Gcmulo() const {return fGcmulo;}
647 virtual Gcmate_t* Gcmate() const {return fGcmate;}
648 virtual Gctpol_t* Gctpol() const {return fGctpol;}
649 virtual Gcnum_t* Gcnum() const {return fGcnum;}
650 virtual Gcsets_t* Gcsets() const {return fGcsets;}
651 virtual Gcopti_t* Gcopti() const {return fGcopti;}
652 virtual Gctlit_t* Gctlit() const {return fGctlit;}
653 virtual Gcvdma_t* Gcvdma() const {return fGcvdma;}
654 virtual Gcvolu_t* Gcvolu() const {return fGcvolu;}
655 virtual Gckine_t* Gckine() const {return fGckine;}
656 virtual Gcflag_t* Gcflag() const {return fGcflag;}
657 virtual Gctmed_t* Gctmed() const {return fGctmed;}
658 virtual Gcphys_t* Gcphys() const {return fGcphys;}
659 virtual Gcking_t* Gcking() const {return fGcking;}
660 virtual Gckin2_t* Gckin2() const {return fGckin2;}
661 virtual Gckin3_t* Gckin3() const {return fGckin3;}
662 virtual Gctrak_t* Gctrak() const {return fGctrak;}
663 virtual Int_t* Iq() const {return fZiq;}
664 virtual Int_t* Lq() const {return fZlq;}
665 virtual Float_t* Q() const {return fZq;}
668 // Access to GEANE commons
670 virtual Ertrio_t* Ertrio() const {return fErtrio;}
671 virtual Eropts_t* Eropts() const {return fEropts;}
672 virtual Eroptc_t* Eroptc() const {return fEroptc;}
673 virtual Erwork_t* Erwork() const {return fErwork;}
677 // functions from GBASE
678 virtual void Gpcxyz();
679 virtual void Ggclos();
680 virtual void Gfile(const char *filename, const char *option="I");
681 virtual void Glast();
682 virtual void Gprint(const char *name);
684 virtual void Gtrig();
685 virtual void Gtrigc();
686 virtual void Gtrigi();
687 virtual void Gwork(Int_t nwork);
688 virtual void Gzinit();
690 // functions from GCONS
691 virtual void Gfmate(Int_t imat, char *name, Float_t &a, Float_t &z, Float_t &dens,
692 Float_t &radl, Float_t &absl, Float_t* ubuf, Int_t& nbuf);
693 virtual void Gfpart(Int_t ipart, char *name, Int_t &itrtyp,
694 Float_t &amass, Float_t &charge, Float_t &tlife);
695 virtual void Gftmed(Int_t numed, char *name, Int_t &nmat, Int_t &isvol,
696 Int_t &ifield, Float_t &fieldm, Float_t &tmaxfd,
697 Float_t &stemax, Float_t &deemax, Float_t &epsil,
698 Float_t &stmin, Float_t *buf=0, Int_t *nbuf=0);
699 virtual void Gftmat(Int_t imate, Int_t ipart, char *chmeca, Int_t kdim,
700 Float_t* tkin, Float_t* value, Float_t* pcut,
702 virtual Float_t Gbrelm(Float_t z, Float_t t, Float_t cut);
703 virtual Float_t Gprelm(Float_t z, Float_t t, Float_t cut);
704 virtual void Gmate();
705 virtual void Gpart();
706 virtual void Gsckov(Int_t itmed, Int_t npckov, Float_t *ppckov,
707 Float_t *absco, Float_t *effic, Float_t *rindex);
708 virtual void Gsdk(Int_t ipart, Float_t *bratio, Int_t *mode);
709 virtual void Gsmate(Int_t imat, const char *name, Float_t a, Float_t z,
710 Float_t dens, Float_t radl, Float_t absl);
711 virtual void Gsmixt(Int_t imat, const char *name, Float_t *a, Float_t *z,
712 Float_t dens, Int_t nlmat, Float_t *wmat);
713 virtual void Gspart(Int_t ipart, const char *name, Int_t itrtyp,
714 Float_t amass, Float_t charge, Float_t tlife);
715 virtual void Gstmed(Int_t numed, const char *name, Int_t nmat, Int_t isvol,
716 Int_t ifield, Float_t fieldm, Float_t tmaxfd,
717 Float_t stemax, Float_t deemax, Float_t epsil,
719 virtual void Gstpar(Int_t itmed, const char *param, Float_t parval);
721 // functions from GKINE
722 virtual void Gfkine(Int_t itra, Float_t *vert, Float_t *pvert,
723 Int_t &ipart, Int_t &nvert);
724 virtual void Gfvert(Int_t nvtx, Float_t *v, Int_t &ntbeam, Int_t &nttarg, Float_t &tofg);
725 virtual Int_t Gskine(Float_t *plab, Int_t ipart, Int_t nv, Float_t *ubuf=0, Int_t nwbuf=0);
726 virtual Int_t Gsvert(Float_t *v, Int_t ntbeam, Int_t nttarg, Float_t *ubuf=0, Int_t nwbuf=0);
728 // functions from GPHYS
729 virtual void Gphysi();
731 // functions from GTRAK
732 virtual void Gdebug();
733 virtual void Gekbin();
734 virtual void Gfinds();
735 virtual void Gsking(Int_t igk);
736 virtual void Gskpho(Int_t igk);
737 virtual void Gsstak(Int_t iflag);
738 virtual void Gsxyz();
739 virtual void Gtrack();
740 virtual void Gtreve();
741 virtual void Gtreve_root();
742 virtual void Grndm(Float_t *rvec, const Int_t len) const;
743 virtual void Grndmq(Int_t &is1, Int_t &is2, const Int_t iseq, const Text_t *chopt);
745 // functions from GGEOM
746 virtual void Gdxyz(Int_t );
747 virtual void Gdcxyz();
749 // functions from GGEOM
750 virtual void Gdtom(Float_t *xd, Float_t *xm, Int_t iflag);
751 virtual void Glmoth(const char* iudet, Int_t iunum, Int_t &nlev,
752 Int_t *lvols, Int_t *lindx);
753 virtual void Gmedia(Float_t *x, Int_t &numed);
754 virtual void Gmtod(Float_t *xm, Float_t *xd, Int_t iflag);
755 virtual void Gsdvn(const char *name, const char *mother, Int_t ndiv, Int_t iaxis);
756 virtual void Gsdvn2(const char *name, const char *mother, Int_t ndiv, Int_t iaxis, Float_t c0i, Int_t numed);
757 virtual void Gsdvs(const char *name, const char *mother, Float_t step, Int_t iaxis, Int_t numed);
758 virtual void Gsdvs2(const char *name, const char *mother, Float_t step, Int_t iaxis, Float_t c0, Int_t numed);
759 virtual void Gsdvt(const char *name, const char *mother, Float_t step, Int_t iaxis, Int_t numed, Int_t ndvmx);
760 virtual void Gsdvt2(const char *name, const char *mother, Float_t step, Int_t iaxis,
761 Float_t c0, Int_t numed, Int_t ndvmx);
762 virtual void Gsord(const char *name, Int_t iax);
763 virtual void Gspos(const char *name, Int_t nr, const char *mother,
764 Float_t x, Float_t y, Float_t z, Int_t irot, const char *konly="ONLY");
765 virtual void Gsposp(const char *name, Int_t nr, const char *mother,
766 Float_t x, Float_t y, Float_t z, Int_t irot, const char *konly, Float_t *upar, Int_t np);
767 virtual void Gsrotm(Int_t nmat, Float_t theta1, Float_t phi1, Float_t theta2, Float_t phi2,
768 Float_t theta3, Float_t phi3);
769 virtual void Gprotm(Int_t nmat=0);
770 virtual Int_t Gsvolu(const char *name, const char *shape, Int_t nmed,
771 Float_t *upar, Int_t np);
772 virtual void Gsatt(const char *name, const char *att, Int_t val);
773 virtual void Gfpara(const char *name, Int_t number, Int_t intext, Int_t& npar,
774 Int_t& natt, Float_t* par, Float_t* att);
775 virtual void Gckpar(Int_t, Int_t, Float_t*);
776 virtual void Gckmat(Int_t, char*);
778 // functions from GDRAW
779 virtual void DefaultRange();
780 virtual void InitHIGZ();
781 virtual void Gdopen(Int_t view);
782 virtual void Gdclose();
783 virtual void Gdelete(Int_t view);
784 virtual void Gdshow(Int_t view);
785 virtual void Gdopt(const char *name,const char *value);
786 virtual void Gdraw(const char *name,Float_t theta=30, Float_t phi=30, Float_t psi=0,Float_t u0=10,Float_t v0=10,Float_t ul=0.01,Float_t vl=0.01);
787 virtual void Gdrawc(const char *name,Int_t axis=1, Float_t cut=0,Float_t u0=10,Float_t v0=10,Float_t ul=0.01,Float_t vl=0.01);
788 virtual void Gdrawx(const char *name,Float_t cutthe, Float_t cutphi, Float_t cutval,
789 Float_t theta=30, Float_t phi=30,Float_t u0=10,Float_t v0=10,Float_t ul=0.01,Float_t vl=0.01);
790 virtual void Gdhead(Int_t isel, const char *name, Float_t chrsiz=0.6);
791 virtual void Gdman(Float_t u0, Float_t v0, const char *type="MAN");
792 virtual void Gdspec(const char *name);
793 virtual void DrawOneSpec(const char *name);
794 virtual void Gdtree(const char *name,Int_t levmax=15,Int_t ispec=0);
795 virtual void GdtreeParent(const char *name,Int_t levmax=15,Int_t ispec=0);
797 virtual void WriteEuclid(const char*, const char*, Int_t, Int_t);
799 virtual void SetABAN(Int_t par=1);
800 virtual void SetANNI(Int_t par=1);
801 virtual void SetAUTO(Int_t par=1);
802 virtual void SetBOMB(Float_t bomb=1);
803 virtual void SetBREM(Int_t par=1);
804 virtual void SetCKOV(Int_t par=1);
805 virtual void SetClipBox(const char *name,Float_t xmin=-9999,Float_t xmax=0, Float_t ymin=-9999,Float_t ymax=0,Float_t zmin=-9999,Float_t zmax=0);
806 virtual void SetCOMP(Int_t par=1);
807 virtual void SetCUTS(Float_t cutgam,Float_t cutele,Float_t cutneu,Float_t cuthad,
808 Float_t cutmuo ,Float_t bcute ,Float_t bcutm ,Float_t dcute ,
809 Float_t dcutm ,Float_t ppcutm, Float_t tofmax);
810 virtual void SetDCAY(Int_t par=1);
811 virtual void SetDEBU(Int_t emin=1, Int_t emax=999, Int_t emod=1);
812 virtual void SetDRAY(Int_t par=1);
813 virtual void SetERAN(Float_t ekmin=1.e-5, Float_t ekmax=1.e4,
815 virtual void SetHADR(Int_t par=1);
816 virtual void SetKINE(Int_t kine, Float_t xk1=0, Float_t xk2=0, Float_t xk3=0, Float_t xk4=0,
817 Float_t xk5=0, Float_t xk6=0, Float_t xk7=0, Float_t xk8=0, Float_t xk9=0,
819 virtual void SetLOSS(Int_t par=2);
820 virtual void SetMULS(Int_t par=1);
821 virtual void SetMUNU(Int_t par=1);
822 virtual void SetOPTI(Int_t par=2);
823 virtual void SetPAIR(Int_t par=1);
824 virtual void SetPFIS(Int_t par=1);
825 virtual void SetPHOT(Int_t par=1);
826 virtual void SetRAYL(Int_t par=1);
827 virtual void SetSWIT(Int_t sw, Int_t val=1);
828 virtual void SetTRIG(Int_t nevents=1);
829 virtual void SetUserDecay(Int_t ipart);
831 virtual void Vname(const char *name, char *vname);
833 virtual void InitLego();
835 // Routines from GEANE
837 virtual void Ertrgo();
838 virtual void Ertrak(const Float_t *const x1, const Float_t *const p1,
839 const Float_t *x2, const Float_t *p2,
840 Int_t ipa, Option_t *chopt);
844 virtual void FinishGeometry();
845 virtual void BuildPhysics();
847 ClassDef(TGeant3,1) //C++ interface to Geant basic routines