+//_____________________________________________________________________________
+Int_t TGeant3::Glvolu(Int_t nlev, Int_t *lnam,Int_t *lnum)
+{
+ //
+ // nlev number of leveles deap into the volume tree
+ // size of the arrays lnam and lnum
+ // lnam an integer array whos 4 bytes contain the askii code for the
+ // volume names
+ // lnum an integer array containing the copy numbers for that specific
+ // volume
+ //
+ // This routine fills the volulme paramters in common /gcvolu/ for a
+ // physical tree, specified by the list lnam and lnum of volume names
+ // and numbers, and for all its ascendants up to level 1. This routine
+ // is optimsed and does not re-compute the part of the history already
+ // available in GCVOLU. This means that if it is used in user programs
+ // outside the usual framwork of the tracking, the user has to initilise
+ // to zero NLEVEL in the common GCVOLU. It return 0 if there were no
+ // problems in make the call.
+ //
+ Int_t ier;
+ glvolu(nlev, lnam, lnum, ier);
+ return ier;
+}
+