*
* $Id$
*
* $Log$
*
*CMZ :  3.00/00 28/09/2001  22.33.28  by  Unknown
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.01/00 30/04/96  18.28.33  by  Francesco Cafagna
*CMZ :  1.00/03 29/04/96  17.05.38  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   29/04/96
      SUBROUTINE GPUTRE(IFLAG)
************************************************************************
*                                                                      *
* User action in GUTREV                                                *
*                                                                      *
* Variables definition:                                                *
* IN:                                                                  *
*  IFLAG = 1, before GTREVE call in GUTREV                             *
*  IFLAG = 2, after  GTREVE call in GUTREV                             *
*                                                                      *
* Called by: GUTREV                                                    *
* Author: Francesco Cafagna, 29/04/96 17.05.38                         *
*                                                                      *
************************************************************************
#include "gptotr.inc"
      INTEGER IFLAG
*
      IF(IFLAG.EQ.1) THEN
C #
C # Reset Transition radiation related quantities
C #
         ENTRTOT=0
         CALL VZERO(ENLAY,18)
         NPHTOTR=0
         CALL VZERO(NPHLAY,18)
         CALL VZERO(ENTRSTRAW,32*32)
         CALL VZERO(NTRSTRAW,32*32)
      ENDIF
      RETURN
      END
