3 ////////////////////////////////////////////////
4 // C++ interface to Geant3 basic routines //
5 ////////////////////////////////////////////////
9 //______________________________________________________________
11 // Geant3 prototypes for commons
13 //______________________________________________________________
17 // COMMON/QUEST/IQUEST(100)
23 // COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
24 // + ,LMAIN,LR1,WS(KWBANK)
38 // COMMON/GCLINK/JDIGI ,JDRAW ,JHEAD ,JHITS ,JKINE ,JMATE ,JPART
39 // + ,JROTM ,JRUNG ,JSET ,JSTAK ,JGSTAT,JTMED ,JTRACK,JVERTX
40 // + ,JVOLUM,JXYZ ,JGPAR ,JGPAR2,JSKLT
66 // COMMON/GCFLAG/IDEBUG,IDEMIN,IDEMAX,ITEST,IDRUN,IDEVT,IEORUN
67 // + ,IEOTRI,IEVENT,ISWIT(10),IFINIT(20),NEVENT,NRNDM(2)
85 // COMMON/GCKINE/IKINE,PKINE(10),ITRA,ISTAK,IVERT,IPART,ITRTYP
86 // + ,NAPART(5),AMASS,CHARGE,TLIFE,VERT(3),PVERT(4),IPAOLD
105 // COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN),
106 // + TOFD(MXGKIN),IFLGK(MXGKIN)
111 Float_t gkin[MXGKIN][5];
117 // COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT)
121 Float_t xphot[MXPHOT][11];
125 // COMMON/GCKIN3/GPOS(3,MXGKIN)
127 Float_t gpos[MXGKIN][3];
131 // COMMON/GCMATE/NMAT,NAMATE(5),A,Z,DENS,RADL,ABSL
143 // COMMON/GCTMED/NUMED,NATMED(5),ISVOL,IFIELD,FIELDM,TMAXFD,STEMAX
144 // + ,DEEMAX,EPSIL,STMIN,CFIELD,PREC,IUPD,ISTPAR,NUMOLD
165 // PARAMETER (MAXMEC=30)
166 // COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC)
167 // + ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG
168 // + ,STEP ,SNEXT ,SFIELD,TOFG ,GEKRAT,UPWGHT,IGNEXT,INWVOL
169 // + ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN
206 // COMMON/GCVOLU/NLEVEL,NAMES(15),NUMBER(15),
207 // +LVOLUM(15),LINDEX(15),INFROM,NLEVMX,NLDEV(15),LINMX(15),
208 // +GTRAN(3,15),GRMAT(10,15),GONLY(15),GLX(3)
219 Float_t gtran[15][3];
220 Float_t grmat[15][10];
226 // COMMON/GCSETS/IHSET,IHDET,ISET,IDET,IDTYPE,NVNAME,NUMBV(20)
238 // COMMON/GCNUM/NMATE ,NVOLUM,NROTM,NTMED,NTMULT,NTRACK,NPART
239 // + ,NSTMAX,NVERTX,NHEAD,NBIT
255 // COMMON/GCCUTS/CUTGAM,CUTELE,CUTNEU,CUTHAD,CUTMUO,BCUTE,BCUTM
256 // + ,DCUTE ,DCUTM ,PPCUTM,TOFMAX,GCUTS(5)
273 // COMMON/GCPHYS/IPAIR,SPAIR,SLPAIR,ZINTPA,STEPPA
274 // + ,ICOMP,SCOMP,SLCOMP,ZINTCO,STEPCO
275 // + ,IPHOT,SPHOT,SLPHOT,ZINTPH,STEPPH
276 // + ,IPFIS,SPFIS,SLPFIS,ZINTPF,STEPPF
277 // + ,IDRAY,SDRAY,SLDRAY,ZINTDR,STEPDR
278 // + ,IANNI,SANNI,SLANNI,ZINTAN,STEPAN
279 // + ,IBREM,SBREM,SLBREM,ZINTBR,STEPBR
280 // + ,IHADR,SHADR,SLHADR,ZINTHA,STEPHA
281 // + ,IMUNU,SMUNU,SLMUNU,ZINTMU,STEPMU
282 // + ,IDCAY,SDCAY,SLIFE ,SUMLIF,DPHYS1
283 // + ,ILOSS,SLOSS,SOLOSS,STLOSS,DPHYS2
284 // + ,IMULS,SMULS,SOMULS,STMULS,DPHYS3
285 // + ,IRAYL,SRAYL,SLRAYL,ZINTRA,STEPRA
286 // COMMON/GCPHLT/ILABS,SLABS,SLLABS,ZINTLA,STEPLA
358 // COMMON/GCOPTI/IOPTIM
364 // COMMON/GCTLIT/THRIND,PMIN,DP,DNDL,JMIN,ITCKOV,IMCKOV,NPCKOV
377 // COMMON/GCVDMA/NVMANY,MANYLE(20),MANYNA(20,15),
378 // +MANYNU(20,15),NFMANY,MYCOUN,IMYSE,RAYTRA,VECCOS(3)
387 // COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1)
390 Int_t namec1[MAXME1];
393 /************************************************************************
395 * Commons for GEANE *
397 ************************************************************************/
401 // PARAMETER (MXPRED = 10)
402 // DOUBLE PRECISION ERDTRP
403 // REAL ERRIN, ERROUT, ERTRSP, ERXIN, ERXOUT, ERPIN,
405 // INTEGER NEPRED, INLIST, ILPRED, IEPRED
406 // COMMON /ERTRIO/ ERDTRP(5,5,MXPRED), ERRIN(15), ERROUT(15,MXPRED),
407 // + ERTRSP(5,5,MXPRED), ERXIN( 3), ERXOUT( 3,MXPRED),
408 // + ERPIN(3), ERPOUT(3,MXPRED), NEPRED,INLIST,ILPRED,
414 Double_t erdtrp[MXPRED*5*5];
416 Float_t errout[MXPRED*15];
417 Float_t ertrsp[MXPRED*5*5];
419 Float_t erxout[MXPRED*3];
421 Float_t erpout[MXPRED*3];
429 // CHARACTER*8 CHOPTI
430 // LOGICAL LEEXAC, LELENG, LEONLY, LEPLAN, LEPOIN, LEVOLU
431 // REAL ERPLI, ERPLO, ERLENG
432 // INTEGER NAMEER, NUMVER, IOVLER
433 // COMMON /EROPTS/ ERPLI(3,2), ERPLO(3,4,MXPRED), ERLENG(MXPRED),
434 // + NAMEER(MXPRED), NUMVER(MXPRED), IOVLER(MXPRED),
435 // + LEEXAC, LELENG, LEONLY, LEPLAN, LEPOIN, LEVOLU
436 // COMMON /EROPTC/CHOPTI
440 Float_t erplo[MXPRED*3*4];
441 Float_t erleng[MXPRED];
442 Int_t nameer[MXPRED];
443 Int_t numver[MXPRED];
444 Int_t iovler[MXPRED];
458 // DOUBLE PRECISION EI, EF, ASDSC
459 // COMMON /ERWORK/ EI(15), EF(15), ASDSC(5,5),
460 // + XI(3), PPI(3), HI(9),
461 // + XF(3), PF(3), HF(9),
462 // + CHTR, DEDX2, BACKTR, CUTEK, TLGCM2, TLRAD
482 /************************************************************************
484 * Commons for GEANE *
486 ************************************************************************/
488 class TGeant3 : public AliMC {
491 Int_t fNextVol; // Iterator for GeomIter
493 //--------------Declarations for ZEBRA---------------------
525 enum {kMaxParticles = 100};
529 Int_t fPDGCode[kMaxParticles];
533 TGeant3(const char *title, Int_t nwgeant=0);
534 virtual ~TGeant3() {}
535 virtual void LoadAddress();
537 ///////////////////////////////////////////////////////////////////////
540 // Here are the service routines from the geometry //
541 // which could be implemented also in other geometries //
544 ///////////////////////////////////////////////////////////////////////
547 Int_t CurrentMaterial(Float_t &a, Float_t &z, Float_t &dens, Float_t &radl, Float_t &absl) const;
548 Int_t NextVolUp(Text_t *name, Int_t ©);
549 Int_t CurrentVolID(Int_t ©) const;
550 Int_t CurrentVolOffID(Int_t off, Int_t ©) const;
551 const char* CurrentVolName() const;
552 const char *CurrentVolOffName(Int_t off) const;
553 Int_t VolId(Text_t *name) const;
554 Int_t IdFromPDG(Int_t pdg) const;
555 Int_t PDGFromId(Int_t pdg) const;
556 void DefineParticles();
557 const char* VolName(Int_t id) const;
558 void TrackPosition(TLorentzVector &xyz) const;
559 void TrackMomentum(TLorentzVector &xyz) const;
560 Int_t NofVolumes() const;
561 Float_t TrackTime() const;
562 Float_t TrackCharge() const;
563 Float_t TrackMass() const;
564 Float_t TrackStep() const;
565 Float_t TrackLength() const;
566 Int_t TrackPid() const;
567 Bool_t IsTrackInside() const;
568 Bool_t IsTrackEntering() const;
569 Bool_t IsTrackExiting() const;
570 Bool_t IsTrackOut() const;
571 Bool_t IsTrackDisappeared() const;
572 Bool_t IsTrackStop() const;
573 Bool_t IsTrackAlive() const;
574 Int_t NSecondaries() const;
575 Int_t CurrentEvent() const;
576 void ProdProcess(char*) const;
577 void GetSecondary(Int_t, Int_t&, Float_t*, Float_t*);
580 Float_t MaxStep() const;
582 void SetMaxStep(Float_t maxstep);
583 void SetMaxNStep(Int_t maxnstp);
584 Int_t GetMaxNStep() const;
585 // void GetParticle(const Int_t pdg, char *name, Float_t &mass) const;
586 virtual Int_t GetMedium() const;
587 virtual Float_t Edep() const;
588 virtual Float_t Etot() const;
589 virtual void Rndm(Float_t* r, const Int_t n) const;
590 virtual void Material(Int_t&, const char*, Float_t, Float_t, Float_t, Float_t,
591 Float_t, Float_t* buf=0, Int_t nwbuf=0);
592 virtual void Mixture(Int_t&, const char*, Float_t*, Float_t*, Float_t, Int_t, Float_t*);
593 virtual void Medium(Int_t&, const char*, Int_t, Int_t, Int_t, Float_t, Float_t,
594 Float_t, Float_t, Float_t, Float_t, Float_t* ubuf=0, Int_t nbuf=0);
595 virtual void Matrix(Int_t&, Float_t, Float_t, Float_t, Float_t, Float_t, Float_t);
597 /////////////////////////////////////////////////////////////////////////////////////////////
600 // Here are the interface functions with GEANT3.21 //
603 /////////////////////////////////////////////////////////////////////////////////////////////
605 // access functions to commons
607 virtual Quest_t* Quest() const {return fQuest;}
608 virtual Gcbank_t* Gcbank() const {return fGcbank;}
609 virtual Gclink_t* Gclink() const {return fGclink;}
610 virtual Gccuts_t* Gccuts() const {return fGccuts;}
611 virtual Gcmate_t* Gcmate() const {return fGcmate;}
612 virtual Gctpol_t* Gctpol() const {return fGctpol;}
613 virtual Gcnum_t* Gcnum() const {return fGcnum;}
614 virtual Gcsets_t* Gcsets() const {return fGcsets;}
615 virtual Gcopti_t* Gcopti() const {return fGcopti;}
616 virtual Gctlit_t* Gctlit() const {return fGctlit;}
617 virtual Gcvdma_t* Gcvdma() const {return fGcvdma;}
618 virtual Gcvolu_t* Gcvolu() const {return fGcvolu;}
619 virtual Gckine_t* Gckine() const {return fGckine;}
620 virtual Gcflag_t* Gcflag() const {return fGcflag;}
621 virtual Gctmed_t* Gctmed() const {return fGctmed;}
622 virtual Gcphys_t* Gcphys() const {return fGcphys;}
623 virtual Gcking_t* Gcking() const {return fGcking;}
624 virtual Gckin2_t* Gckin2() const {return fGckin2;}
625 virtual Gckin3_t* Gckin3() const {return fGckin3;}
626 virtual Gctrak_t* Gctrak() const {return fGctrak;}
627 virtual Int_t* Iq() const {return fZiq;}
628 virtual Int_t* Lq() const {return fZlq;}
629 virtual Float_t* Q() const {return fZq;}
632 // Access to GEANE commons
634 virtual Ertrio_t* Ertrio() const {return fErtrio;}
635 virtual Eropts_t* Eropts() const {return fEropts;}
636 virtual Eroptc_t* Eroptc() const {return fEroptc;}
637 virtual Erwork_t* Erwork() const {return fErwork;}
641 // functions from GBASE
642 virtual void Gpcxyz();
643 virtual void Ggclos();
644 virtual void Gfile(const char *filename, const char *option="I");
645 virtual void Glast();
646 virtual void Gprint(const char *name);
648 virtual void Gtrig();
649 virtual void Gtrigc();
650 virtual void Gtrigi();
651 virtual void Gwork(Int_t nwork);
652 virtual void Gzinit();
654 // functions from GCONS
655 virtual void Gfmate(Int_t imat, char *name, Float_t &a, Float_t &z, Float_t &dens,
656 Float_t &radl, Float_t &absl, Float_t* ubuf, Int_t& nbuf);
657 virtual void Gfpart(Int_t ipart, char *name, Int_t &itrtyp,
658 Float_t &amass, Float_t &charge, Float_t &tlife);
659 virtual void Gftmed(Int_t numed, char *name, Int_t &nmat, Int_t &isvol,
660 Int_t &ifield, Float_t &fieldm, Float_t &tmaxfd,
661 Float_t &stemax, Float_t &deemax, Float_t &epsil,
662 Float_t &stmin, Float_t *buf=0, Int_t *nbuf=0);
663 virtual void Gmate();
664 virtual void Gpart();
665 virtual void Gsckov(Int_t itmed, Int_t npckov, Float_t *ppckov,
666 Float_t *absco, Float_t *effic, Float_t *rindex);
667 virtual void Gsdk(Int_t ipart, Float_t *bratio, Int_t *mode);
668 virtual void Gsmate(Int_t imat, const char *name, Float_t a, Float_t z,
669 Float_t dens, Float_t radl, Float_t absl);
670 virtual void Gsmixt(Int_t imat, const char *name, Float_t *a, Float_t *z,
671 Float_t dens, Int_t nlmat, Float_t *wmat);
672 virtual void Gspart(Int_t ipart, const char *name, Int_t itrtyp,
673 Float_t amass, Float_t charge, Float_t tlife);
674 virtual void Gstmed(Int_t numed, const char *name, Int_t nmat, Int_t isvol,
675 Int_t ifield, Float_t fieldm, Float_t tmaxfd,
676 Float_t stemax, Float_t deemax, Float_t epsil,
678 virtual void Gstpar(Int_t itmed, const char *param, Float_t parval);
680 // functions from GKINE
681 virtual void Gfkine(Int_t itra, Float_t *vert, Float_t *pvert,
682 Int_t &ipart, Int_t &nvert);
683 virtual void Gfvert(Int_t nvtx, Float_t *v, Int_t &ntbeam, Int_t &nttarg, Float_t &tofg);
684 virtual Int_t Gskine(Float_t *plab, Int_t ipart, Int_t nv, Float_t *ubuf=0, Int_t nwbuf=0);
685 virtual Int_t Gsvert(Float_t *v, Int_t ntbeam, Int_t nttarg, Float_t *ubuf=0, Int_t nwbuf=0);
687 // functions from GPHYS
688 virtual void Gphysi();
690 // functions from GTRAK
691 virtual void Gdebug();
692 virtual void Gekbin();
693 virtual void Gfinds();
694 virtual void Gsking(Int_t igk);
695 virtual void Gskpho(Int_t igk);
696 virtual void Gsstak(Int_t iflag);
697 virtual void Gsxyz();
698 virtual void Gtrack();
699 virtual void Gtreve();
700 virtual void Gtreve_root();
701 virtual void Grndm(Float_t *rvec, const Int_t len) const;
702 virtual void Grndmq(Int_t &is1, Int_t &is2, const Int_t iseq, const Text_t *chopt);
704 // functions from GGEOM
705 virtual void Gdxyz(Int_t );
706 virtual void Gdcxyz();
708 // functions from GGEOM
709 virtual void Gdtom(Float_t *xd, Float_t *xm, Int_t iflag);
710 virtual void Glmoth(const char* iudet, Int_t iunum, Int_t &nlev,
711 Int_t *lvols, Int_t *lindx);
712 virtual void Gmedia(Float_t *x, Int_t &numed);
713 virtual void Gmtod(Float_t *xm, Float_t *xd, Int_t iflag);
714 virtual void Gsdvn(const char *name, const char *mother, Int_t ndiv, Int_t iaxis);
715 virtual void Gsdvn2(const char *name, const char *mother, Int_t ndiv, Int_t iaxis, Float_t c0i, Int_t numed);
716 virtual void Gsdvs(const char *name, const char *mother, Float_t step, Int_t iaxis, Int_t numed);
717 virtual void Gsdvs2(const char *name, const char *mother, Float_t step, Int_t iaxis, Float_t c0, Int_t numed);
718 virtual void Gsdvt(const char *name, const char *mother, Float_t step, Int_t iaxis, Int_t numed, Int_t ndvmx);
719 virtual void Gsdvt2(const char *name, const char *mother, Float_t step, Int_t iaxis,
720 Float_t c0, Int_t numed, Int_t ndvmx);
721 virtual void Gsord(const char *name, Int_t iax);
722 virtual void Gspos(const char *name, Int_t nr, const char *mother,
723 Float_t x, Float_t y, Float_t z, Int_t irot, const char *konly="ONLY");
724 virtual void Gsposp(const char *name, Int_t nr, const char *mother,
725 Float_t x, Float_t y, Float_t z, Int_t irot, const char *konly, Float_t *upar, Int_t np);
726 virtual void Gsrotm(Int_t nmat, Float_t theta1, Float_t phi1, Float_t theta2, Float_t phi2,
727 Float_t theta3, Float_t phi3);
728 virtual void Gprotm(Int_t nmat=0);
729 virtual Int_t Gsvolu(const char *name, const char *shape, Int_t nmed,
730 Float_t *upar, Int_t np);
731 virtual void Gsatt(const char *name, const char *att, Int_t val);
732 virtual void Gfpara(const char *name, Int_t number, Int_t intext, Int_t& npar,
733 Int_t& natt, Float_t* par, Float_t* att);
734 virtual void Gckpar(Int_t, Int_t, Float_t*);
735 virtual void Gckmat(Int_t, char*);
737 // functions from GDRAW
738 virtual void DefaultRange();
739 virtual void InitHIGZ();
740 virtual void Gdopen(Int_t view);
741 virtual void Gdclose();
742 virtual void Gdelete(Int_t view);
743 virtual void Gdshow(Int_t view);
744 virtual void Gdopt(const char *name,const char *value);
745 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);
746 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);
747 virtual void Gdrawx(const char *name,Float_t cutthe, Float_t cutphi, Float_t cutval,
748 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);
749 virtual void Gdhead(Int_t isel, const char *name, Float_t chrsiz=0.6);
750 virtual void Gdman(Float_t u0, Float_t v0, const char *type="MAN");
751 virtual void Gdspec(const char *name);
752 virtual void DrawOneSpec(const char *name);
753 virtual void Gdtree(const char *name,Int_t levmax=15,Int_t ispec=0);
754 virtual void GdtreeParent(const char *name,Int_t levmax=15,Int_t ispec=0);
756 virtual void WriteEuclid(const char*, const char*, Int_t, Int_t);
758 virtual void SetABAN(Int_t par=1);
759 virtual void SetANNI(Int_t par=1);
760 virtual void SetAUTO(Int_t par=1);
761 virtual void SetBOMB(Float_t bomb=1);
762 virtual void SetBREM(Int_t par=1);
763 virtual void SetCKOV(Int_t par=1);
764 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);
765 virtual void SetCOMP(Int_t par=1);
766 virtual void SetCUTS(Float_t cutgam,Float_t cutele,Float_t cutneu,Float_t cuthad,
767 Float_t cutmuo ,Float_t bcute ,Float_t bcutm ,Float_t dcute ,
768 Float_t dcutm ,Float_t ppcutm, Float_t tofmax);
769 virtual void SetDCAY(Int_t par=1);
770 virtual void SetDEBU(Int_t emin=1, Int_t emax=999, Int_t emod=1);
771 virtual void SetDRAY(Int_t par=1);
772 virtual void SetHADR(Int_t par=1);
773 virtual void SetKINE(Int_t kine, Float_t xk1=0, Float_t xk2=0, Float_t xk3=0, Float_t xk4=0,
774 Float_t xk5=0, Float_t xk6=0, Float_t xk7=0, Float_t xk8=0, Float_t xk9=0,
776 virtual void SetLOSS(Int_t par=2);
777 virtual void SetMULS(Int_t par=1);
778 virtual void SetMUNU(Int_t par=1);
779 virtual void SetOPTI(Int_t par=2);
780 virtual void SetPAIR(Int_t par=1);
781 virtual void SetPFIS(Int_t par=1);
782 virtual void SetPHOT(Int_t par=1);
783 virtual void SetRAYL(Int_t par=1);
784 virtual void SetSWIT(Int_t sw, Int_t val=1);
785 virtual void SetTRIG(Int_t nevents=1);
786 virtual void SetUserDecay(Int_t ipart);
788 virtual void Vname(const char *name, char *vname);
790 virtual void InitLego();
792 // Routines from GEANE
794 virtual void Ertrgo();
795 virtual void Ertrak(const Float_t *const x1, const Float_t *const p1,
796 const Float_t *x2, const Float_t *p2,
797 Int_t ipa, Option_t *chopt);
799 ClassDef(TGeant3,1) //C++ interface to Geant basic routines