4.6.21 SUBROUTINE ZAUFWO : Fox-WOlfram moments.

This routine calculates the Fow-Wolfram momnetss H10,H20,H30 and H40 by calling LUFOWO.

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/ :  H10,H20,H30 and H40, Fox-Wolfram moments.

CALLED BY :

ZAUSER (see 4.5.10).

CALLED ROUTINE(S):

LUFOWO

(JETSET routine for Fow-Wolfram moments.)

SIDE EFFECTS:

none

AUTHORS:

M. Berggren, UFRJ

CREATION DATE:

12-APR-1995