4.6.20 SUBROUTINE ZAUTHR : THRust

This routine calculates the thrust, oblateness, and the thrust-, major- & minor axes. by calling LUTHRU.

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/ :  THRUST, Thrust-,major- & minor- axes; THR, thrust;
                  OBL, olateness, THTHRU, theta of thrust axis.

CALLED BY :

ZAUSER (see 4.5.10).

CALLED ROUTINE(S):

LUTHRU

(JETSET routine for thrust.)

VMOD

(CERNLIB routine)

SIDE EFFECTS:

none

AUTHORS:

M. Berggren, UFRJ

CREATION DATE:

12-APR-1995