REAL FUNCTION te()
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      2    
*     Ntuple Title:   tabular data
*     Creation:       17/06/2006 18.36.20
*
*********************************************************
*
      LOGICAL         CHAIN
      CHARACTER*128   CFILE
      INTEGER         IDNEVT,NCHEVT,ICHEVT
      REAL            OBS(13)
*
      COMMON /PAWIDN/ IDNEVT,OBS
      COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
      COMMON /PAWCHC/ CFILE
*
*--   Ntuple Variable Declarations
*
      REAL Emax,Epeak,emit,dist,coldiam,tagflux,polflux,bgflux
*
      COMMON /PAWCR4/ Emax,Epeak,emit,dist,coldiam,tagflux,polflux
     + ,bgflux
*
      real untagf
      save untagf
*
*--   Enter user code here
*
      if (coldiam.eq.0) then
        untagf=tagflux
        te=1
      else
        te=tagflux/untagf
      endif
*
      END