Revision
1.2 -
(
download)
(
annotate)
Fri Dec 14 23:10:36 2001 UTC
(11 years, 5 months ago)
by
nevski
Branch:
MAIN
CVS Tags:
offline-04-00-00, offline-04-00-01, offline-10-03-00, offline-10-00-03, offline-10-00-02, offline-10-00-01, offline-10-00-00, offline-07-01-00, offline-10-00-06, offline-10-00-04, offline-08-00-04, offline-08-00-05, offline-08-00-06, offline-08-00-07, offline-08-00-00, offline-08-00-01, offline-08-00-02, offline-08-00-03, offline-08-00-08, offline-04-01-00, offline-07-05-00, atlsim-01-42-24, offline-11-02-00, atlsim-01-42-22, atlsim-01-42-21, offline-08-05-00, offline-09-03-00, offline-06-01-00, offline-11-00-06, offline-09-00-00, offline-11-00-04, offline-11-00-05, offline-11-00-02, offline-11-00-03, offline-11-00-00, offline-11-00-01, offline-02-06-00, offline-07-02-00, offline-10-05-00, offline-05-00-00, offline-07-06-00, offline-09-02-00, offline-08-02-00, offline-11-01-00, atlsim-01-41-04, atlsim-01-41-05, atlsim-01-41-06, atlsim-01-41-07, atlsim-01-41-03, offline-10-02-00, atlsim-01-42-01, atlsim-01-42-03, atlsim-01-42-02, atlsim-01-42-05, offline-08-03-00, offline-04-06-00, atlsim-01-42-06, atlsim-01-42-09, atlsim-01-42-08, offline-04-05-00, offline-08-04-00, offline-04-02-00, atlsim-01-42-09-01, atlsim-01-42-18, atlsim-01-42-19, atlsim-01-42-16, atlsim-01-42-23, atlsim-01-42-14, atlsim-01-42-15, atlsim-01-42-12, atlsim-01-42-13, atlsim-01-42-10, atlsim-01-42-11, offline-07-08-00, offline-09-04-00, atlsim-01-42-20, offline-04-04-00, offline-04-03-00, offline-11-00-41, offline-06-04-00, atlsim-01-42-17, offline-06-06-00, offline-03-02-00, offline-03-00-01, offline-03-00-00, offline-06-05-00, offline-09-00-01, offline-09-00-03, offline-09-00-02, offline-03-01-00, offline-09-00-04, offline-08-06-00, offline-05-02-00, offline-06-03-00, offline-02-05-00, offline-07-04-00, offline-09-01-02, offline-07-03-00, offline-07-00-03, offline-07-00-02, offline-07-00-01, offline-07-00-00, offline-08-01-00, offline-05-03-00, offline-07-07-00, atlsim-01-42-04, offline-06-02-00, atlsim-01-42-07, offline-08-08-00, offline-08-08-01, offline-10-04-01, offline-08-07-00, offline-06-00-04, offline-10-04-00, offline-06-00-02, offline-06-00-03, offline-06-00-00, offline-06-00-01, HEAD
Changes since
1.1: +8 -3 lines
upgrade atlsim library to atlsim main level
* $Id: agfvolu.age,v 1.2 2001/12/14 23:10:36 nevski Exp $
* $Name: $
* $Log: agfvolu.age,v $
* Revision 1.2 2001/12/14 23:10:36 nevski
* upgrade atlsim library to atlsim main level
*
* Revision 1.1 2001/12/14 19:50:01 nevski
* upgrade atlsim library to atlsimmmain
*
* --------------------------------------------------------
#include <commons/config.h>
*************************************************************************
SUBROUTINE aGFVOLU (Ivol,Cvol,Cshap,numed,par,npar)
*
* description: extract parameters of a give geant volume
*
*************************************************************************
#include "commons/typing.inc"
#include "geant321/gcbank.inc"
#include "geant321/gcunit.inc"
integer Ivol,numed,npar,nv
* integher Ishap
character Cvol*4,Cshap*4
real par(*)
* make GFVOLU call... ? => CVOL,CSHAP
Nv=-1; npar=0; numed=0;
If (JVOLUM>0) Nv=IQ(JVOLUM-1)
if (Ivol<1 | Ivol>Nv) Return
Call GFVOLU (Ivol,CVOL,CSHAP)
* Call UHTOC (IQ(JVOLUM+IVOL),4,Cvol,4)
* Ishap = Q(LQ(JVOLUM-IVOL)+2)
* Cshap = Cshapes(Ishap)
Numed = Q(LQ(JVOLUM-IVOL)+4)
Npar = Q(LQ(JVOLUM-IVOL)+5)
* Numat = Q(LQ(JTMED-Numed)+6)
Call Ucopy (Q(LQ(JVOLUM-IVOL)+7),par,min(50,Npar) )
end
Parent Directory
| 
Revision Log
| 
Revision Graph