4.6.19 SUBROUTINE ZAUSPH : SPHericity

This routine calculates the sphericity, aplanarity, and major axis of the sphericity tensor by calling LUSPHE.

Before calling this routine /LUJETS/ must have been filled, eg. by calling ZAUJSF. (NB ZAUCLU calls ZAUJSF).

ARGUMENTS:

none.

IMPLICIT INPUTS:

    From /LUDAT/ : (filled by the call to LUSPHE) P(NLUND+1,...),
                   major axis of sphericity tensor.

IMPLICIT OUTPUTS:

    To /ZAEVT/ :  EIGEN, sphericity tensor axes; SPH, sphericity;
                  APL, aplanarity.

CALLED BY :

ZAUSER (see 4.5.10).

CALLED ROUTINE(S):

LUSPHE

(JETSET routine for sphericity.)

SIDE EFFECTS:

none

AUTHORS:

M. Berggren, UFRJ

CREATION DATE:

12-APR-1995