--- tauface-jetset.F-orig	2012-01-19 15:33:07.960271844 +0900
+++ tauface-jetset.F	2012-01-19 15:34:55.816009561 +0900
@@ -20,6 +20,8 @@
       save pseudocoup
       COMMON / INOUT / INUT,IOUT
 
+      REAL*8 PLZAPX
+
 C to switch tau polarization OFF in taus 
       DIMENSION POL1(4), POL2(4)
       double precision POL1x(4), POL2x(4)
@@ -859,6 +861,7 @@
 C this function calculates probability for the helicity +1 +1 configuration
 C of taus for given Z/gamma transfer and COSTH0 cosine of scattering angle
       REAL*8 PLZAP0,SVAR,COSTHE,COSTH0
+      REAL*8 T_BORN
 
       COSTHE=COSTH0
 C >>>>>      IF (IDE*IDF.LT.0) COSTHE=-COSTH0 ! this is probably not needed ID