Seen shape variables

  
  REAL ::&
   eigen(3,3),&           !*sphericity tensor axes (in order of
                          ! the eigen values)
   sph,&                  !*Sphericity
   apl,&                  !*Aplanarity
   thrust(3,3),&          !*Thrust-,major- & minor- axes
   thr,&                  !*Thrust
   obl,&                  !*Oblateness
   ththru,&               !*theta of thrust
   h10,h20,h30,h40        !*Fox-Wolfram moments
  
  INTEGER ::&
   njet                   !*# jets

main-vertex-position