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(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;
616 void SetMaxStep(Float_t maxstep);
617 void SetMaxNStep(Int_t maxnstp);
618 Int_t GetMaxNStep() const;
619 // void GetParticle(const Int_t pdg, char *name, Float_t &mass) const;
620 virtual Int_t GetMedium() const;
621 virtual Float_t Edep() const;
622 virtual Float_t Etot() const;
623 virtual void Rndm(Float_t* r, const Int_t n) const;
624 virtual void Material(Int_t&, const char*, Float_t, Float_t, Float_t, Float_t,
625 Float_t, Float_t* buf=0, Int_t nwbuf=0);
626 virtual void Mixture(Int_t&, const char*, Float_t*, Float_t*, Float_t, Int_t, Float_t*);
627 virtual void Medium(Int_t&, const char*, Int_t, Int_t, Int_t, Float_t, Float_t,
628 Float_t, Float_t, Float_t, Float_t, Float_t* ubuf=0, Int_t nbuf=0);
629 virtual void Matrix(Int_t&, Float_t, Float_t, Float_t, Float_t, Float_t, Float_t);
631 /////////////////////////////////////////////////////////////////////////////////////////////
634 // Here are the interface functions with GEANT3.21 //
637 /////////////////////////////////////////////////////////////////////////////////////////////
639 // access functions to commons
641 virtual Quest_t* Quest() const {return fQuest;}
642 virtual Gcbank_t* Gcbank() const {return fGcbank;}
643 virtual Gclink_t* Gclink() const {return fGclink;}
644 virtual Gccuts_t* Gccuts() const {return fGccuts;}
645 virtual Gcmulo_t* Gcmulo() const {return fGcmulo;}
646 virtual Gcmate_t* Gcmate() const {return fGcmate;}
647 virtual Gctpol_t* Gctpol() const {return fGctpol;}
648 virtual Gcnum_t* Gcnum() const {return fGcnum;}
649 virtual Gcsets_t* Gcsets() const {return fGcsets;}
650 virtual Gcopti_t* Gcopti() const {return fGcopti;}
651 virtual Gctlit_t* Gctlit() const {return fGctlit;}
652 virtual Gcvdma_t* Gcvdma() const {return fGcvdma;}
653 virtual Gcvolu_t* Gcvolu() const {return fGcvolu;}
654 virtual Gckine_t* Gckine() const {return fGckine;}
655 virtual Gcflag_t* Gcflag() const {return fGcflag;}
656 virtual Gctmed_t* Gctmed() const {return fGctmed;}
657 virtual Gcphys_t* Gcphys() const {return fGcphys;}
658 virtual Gcking_t* Gcking() const {return fGcking;}
659 virtual Gckin2_t* Gckin2() const {return fGckin2;}
660 virtual Gckin3_t* Gckin3() const {return fGckin3;}
661 virtual Gctrak_t* Gctrak() const {return fGctrak;}
662 virtual Int_t* Iq() const {return fZiq;}
663 virtual Int_t* Lq() const {return fZlq;}
664 virtual Float_t* Q() const {return fZq;}
667 // Access to GEANE commons
669 virtual Ertrio_t* Ertrio() const {return fErtrio;}
670 virtual Eropts_t* Eropts() const {return fEropts;}
671 virtual Eroptc_t* Eroptc() const {return fEroptc;}
672 virtual Erwork_t* Erwork() const {return fErwork;}
676 // functions from GBASE
677 virtual void Gpcxyz();
678 virtual void Ggclos();
679 virtual void Gfile(const char *filename, const char *option="I");
680 virtual void Glast();
681 virtual void Gprint(const char *name);
683 virtual void Gtrig();
684 virtual void Gtrigc();
685 virtual void Gtrigi();
686 virtual void Gwork(Int_t nwork);
687 virtual void Gzinit();
689 // functions from GCONS
690 virtual void Gfmate(Int_t imat, char *name, Float_t &a, Float_t &z, Float_t &dens,
691 Float_t &radl, Float_t &absl, Float_t* ubuf, Int_t& nbuf);
692 virtual void Gfpart(Int_t ipart, char *name, Int_t &itrtyp,
693 Float_t &amass, Float_t &charge, Float_t &tlife);
694 virtual void Gftmed(Int_t numed, char *name, Int_t &nmat, Int_t &isvol,
695 Int_t &ifield, Float_t &fieldm, Float_t &tmaxfd,
696 Float_t &stemax, Float_t &deemax, Float_t &epsil,
697 Float_t &stmin, Float_t *buf=0, Int_t *nbuf=0);
698 virtual void Gmate();
699 virtual void Gpart();
700 virtual void Gsckov(Int_t itmed, Int_t npckov, Float_t *ppckov,
701 Float_t *absco, Float_t *effic, Float_t *rindex);
702 virtual void Gsdk(Int_t ipart, Float_t *bratio, Int_t *mode);
703 virtual void Gsmate(Int_t imat, const char *name, Float_t a, Float_t z,
704 Float_t dens, Float_t radl, Float_t absl);
705 virtual void Gsmixt(Int_t imat, const char *name, Float_t *a, Float_t *z,
706 Float_t dens, Int_t nlmat, Float_t *wmat);
707 virtual void Gspart(Int_t ipart, const char *name, Int_t itrtyp,
708 Float_t amass, Float_t charge, Float_t tlife);
709 virtual void Gstmed(Int_t numed, const char *name, Int_t nmat, Int_t isvol,
710 Int_t ifield, Float_t fieldm, Float_t tmaxfd,
711 Float_t stemax, Float_t deemax, Float_t epsil,
713 virtual void Gstpar(Int_t itmed, const char *param, Float_t parval);
715 // functions from GKINE
716 virtual void Gfkine(Int_t itra, Float_t *vert, Float_t *pvert,
717 Int_t &ipart, Int_t &nvert);
718 virtual void Gfvert(Int_t nvtx, Float_t *v, Int_t &ntbeam, Int_t &nttarg, Float_t &tofg);
719 virtual Int_t Gskine(Float_t *plab, Int_t ipart, Int_t nv, Float_t *ubuf=0, Int_t nwbuf=0);
720 virtual Int_t Gsvert(Float_t *v, Int_t ntbeam, Int_t nttarg, Float_t *ubuf=0, Int_t nwbuf=0);
722 // functions from GPHYS
723 virtual void Gphysi();
725 // functions from GTRAK
726 virtual void Gdebug();
727 virtual void Gekbin();
728 virtual void Gfinds();
729 virtual void Gsking(Int_t igk);
730 virtual void Gskpho(Int_t igk);
731 virtual void Gsstak(Int_t iflag);
732 virtual void Gsxyz();
733 virtual void Gtrack();
734 virtual void Gtreve();
735 virtual void Gtreve_root();
736 virtual void Grndm(Float_t *rvec, const Int_t len) const;
737 virtual void Grndmq(Int_t &is1, Int_t &is2, const Int_t iseq, const Text_t *chopt);
739 // functions from GGEOM
740 virtual void Gdxyz(Int_t );
741 virtual void Gdcxyz();
743 // functions from GGEOM
744 virtual void Gdtom(Float_t *xd, Float_t *xm, Int_t iflag);
745 virtual void Glmoth(const char* iudet, Int_t iunum, Int_t &nlev,
746 Int_t *lvols, Int_t *lindx);
747 virtual void Gmedia(Float_t *x, Int_t &numed);
748 virtual void Gmtod(Float_t *xm, Float_t *xd, Int_t iflag);
749 virtual void Gsdvn(const char *name, const char *mother, Int_t ndiv, Int_t iaxis);
750 virtual void Gsdvn2(const char *name, const char *mother, Int_t ndiv, Int_t iaxis, Float_t c0i, Int_t numed);
751 virtual void Gsdvs(const char *name, const char *mother, Float_t step, Int_t iaxis, Int_t numed);
752 virtual void Gsdvs2(const char *name, const char *mother, Float_t step, Int_t iaxis, Float_t c0, Int_t numed);
753 virtual void Gsdvt(const char *name, const char *mother, Float_t step, Int_t iaxis, Int_t numed, Int_t ndvmx);
754 virtual void Gsdvt2(const char *name, const char *mother, Float_t step, Int_t iaxis,
755 Float_t c0, Int_t numed, Int_t ndvmx);
756 virtual void Gsord(const char *name, Int_t iax);
757 virtual void Gspos(const char *name, Int_t nr, const char *mother,
758 Float_t x, Float_t y, Float_t z, Int_t irot, const char *konly="ONLY");
759 virtual void Gsposp(const char *name, Int_t nr, const char *mother,
760 Float_t x, Float_t y, Float_t z, Int_t irot, const char *konly, Float_t *upar, Int_t np);
761 virtual void Gsrotm(Int_t nmat, Float_t theta1, Float_t phi1, Float_t theta2, Float_t phi2,
762 Float_t theta3, Float_t phi3);
763 virtual void Gprotm(Int_t nmat=0);
764 virtual Int_t Gsvolu(const char *name, const char *shape, Int_t nmed,
765 Float_t *upar, Int_t np);
766 virtual void Gsatt(const char *name, const char *att, Int_t val);
767 virtual void Gfpara(const char *name, Int_t number, Int_t intext, Int_t& npar,
768 Int_t& natt, Float_t* par, Float_t* att);
769 virtual void Gckpar(Int_t, Int_t, Float_t*);
770 virtual void Gckmat(Int_t, char*);
772 // functions from GDRAW
773 virtual void DefaultRange();
774 virtual void InitHIGZ();
775 virtual void Gdopen(Int_t view);
776 virtual void Gdclose();
777 virtual void Gdelete(Int_t view);
778 virtual void Gdshow(Int_t view);
779 virtual void Gdopt(const char *name,const char *value);
780 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);
781 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);
782 virtual void Gdrawx(const char *name,Float_t cutthe, Float_t cutphi, Float_t cutval,
783 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);
784 virtual void Gdhead(Int_t isel, const char *name, Float_t chrsiz=0.6);
785 virtual void Gdman(Float_t u0, Float_t v0, const char *type="MAN");
786 virtual void Gdspec(const char *name);
787 virtual void DrawOneSpec(const char *name);
788 virtual void Gdtree(const char *name,Int_t levmax=15,Int_t ispec=0);
789 virtual void GdtreeParent(const char *name,Int_t levmax=15,Int_t ispec=0);
791 virtual void WriteEuclid(const char*, const char*, Int_t, Int_t);
793 virtual void SetABAN(Int_t par=1);
794 virtual void SetANNI(Int_t par=1);
795 virtual void SetAUTO(Int_t par=1);
796 virtual void SetBOMB(Float_t bomb=1);
797 virtual void SetBREM(Int_t par=1);
798 virtual void SetCKOV(Int_t par=1);
799 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);
800 virtual void SetCOMP(Int_t par=1);
801 virtual void SetCUTS(Float_t cutgam,Float_t cutele,Float_t cutneu,Float_t cuthad,
802 Float_t cutmuo ,Float_t bcute ,Float_t bcutm ,Float_t dcute ,
803 Float_t dcutm ,Float_t ppcutm, Float_t tofmax);
804 virtual void SetDCAY(Int_t par=1);
805 virtual void SetDEBU(Int_t emin=1, Int_t emax=999, Int_t emod=1);
806 virtual void SetDRAY(Int_t par=1);
807 virtual void SetERAN(Float_t ekmin=1.e-5, Float_t ekmax=1.e4,
809 virtual void SetHADR(Int_t par=1);
810 virtual void SetKINE(Int_t kine, Float_t xk1=0, Float_t xk2=0, Float_t xk3=0, Float_t xk4=0,
811 Float_t xk5=0, Float_t xk6=0, Float_t xk7=0, Float_t xk8=0, Float_t xk9=0,
813 virtual void SetLOSS(Int_t par=2);
814 virtual void SetMULS(Int_t par=1);
815 virtual void SetMUNU(Int_t par=1);
816 virtual void SetOPTI(Int_t par=2);
817 virtual void SetPAIR(Int_t par=1);
818 virtual void SetPFIS(Int_t par=1);
819 virtual void SetPHOT(Int_t par=1);
820 virtual void SetRAYL(Int_t par=1);
821 virtual void SetSWIT(Int_t sw, Int_t val=1);
822 virtual void SetTRIG(Int_t nevents=1);
823 virtual void SetUserDecay(Int_t ipart);
825 virtual void Vname(const char *name, char *vname);
827 virtual void InitLego();
829 // Routines from GEANE
831 virtual void Ertrgo();
832 virtual void Ertrak(const Float_t *const x1, const Float_t *const p1,
833 const Float_t *x2, const Float_t *p2,
834 Int_t ipa, Option_t *chopt);
836 ClassDef(TGeant3,1) //C++ interface to Geant basic routines