Updates EvtGen Code

[u/mrichter/AliRoot.git] / TEvtGen / Tauola / tauola-fortran / new-currents / RChL-currents / funct_declar.inc

C==============================================================================
C  declaration of function in funct_rpt
C==============================================================================
      COMPLEX           ALP1_RPT,BETA_RPT,ALP3_R,BETA3_RR,ALP1R_1
     &                 ,ALP1R_2,ALP2R_1,ALP2R_2,ALP1R_3,ALP2R_3
     &                 ,A_RCHT,JPQ1_FUNCT,JPQ2_FUNCT,compsqrt,complog
     &                 ,HKPI,FKPIPL_GS,FKPIEXP,FKPIPL,FKPIPL_TOT
     &                 ,DINT_DELKP,R0scal_3pi,R2scal_3pi,ALP1_RPT_RHO1
     &                 ,BETA_RPT_RHO1,BWsig,FFsig
       
      REAL              GRHO_RCHT,GRHO1_RCHT,LAMB_RCHT,ALP_R,BETA_R
     &                  ,ALP_RR,BETA_RR,GGMKST,DR,CRR,GRHO_RCHT_NOSU2
     &                  ,GRHO1_RCHT_NOSU2,QQ_KPI,GGMKSTPR, FKPIPL_DISP
     &                  ,DECOUL,COUL3PART,fattcoul,frepcoul

      DOUBLE PRECISION  SIGP,FKPISC_PASS