      REAL FUNCTION tmp()
*********************************************************
*                                                       *
* This file was generated by HUWFUN.                    *
*                                                       *
*********************************************************
*
*     Ntuple Id:      10   
*     Ntuple Title:   spinnt
*     Creation:       25/07/2005 16.32.08
*
*********************************************************
*
      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 lam,xi,yi,zi,thi,phi,xf,yf,zf,polx,poly,polz,rotxy,rotxz
     + ,rotyx,rotyz,rotzx,rotzy
      INTEGER i
*
      COMMON /PAWCR4/ i,lam,xi,yi,zi,thi,phi,xf,yf,zf,polx,poly,polz
     + ,rotxy,rotxz,rotyx,rotyz,rotzx,rotzy
*

*
*--   Enter user code here
*
	write(*,*) i, polx, poly,polz
      tmp = 1.
*
      END
