ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      written by the UFO converter
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

      DOUBLE PRECISION SQRT__AS,G__EXP__2,CONJG__CKM3X3,CKM3X3
     $ ,LAMWS__EXP__2,LAMWS__EXP__3,MZ__EXP__2,MZ__EXP__4,SQRT__2
     $ ,MH__EXP__2,AEW,SQRT__AEW,EE,MW__EXP__2,SW2,CW,SQRT__SW2,SW,G1
     $ ,GW,VEV,VEV__EXP__2,LAM,YB,YT,YTAU,MUH,EE__EXP__2,SW__EXP__2
     $ ,CW__EXP__2,AEWM1,GF,AS,LAMWS,AWS,RHOWS,ETAWS,YMB,YMT,YMTAU

      COMMON/PARAMS_R/ SQRT__AS,G__EXP__2,CONJG__CKM3X3,CKM3X3
     $ ,LAMWS__EXP__2,LAMWS__EXP__3,MZ__EXP__2,MZ__EXP__4,SQRT__2
     $ ,MH__EXP__2,AEW,SQRT__AEW,EE,MW__EXP__2,SW2,CW,SQRT__SW2,SW,G1
     $ ,GW,VEV,VEV__EXP__2,LAM,YB,YT,YTAU,MUH,EE__EXP__2,SW__EXP__2
     $ ,CW__EXP__2,AEWM1,GF,AS,LAMWS,AWS,RHOWS,ETAWS,YMB,YMT,YMTAU


      DOUBLE COMPLEX CKM1X1,CKM1X2,COMPLEXI,CKM1X3,CKM2X1,CKM2X2
     $ ,CKM2X3,CKM3X1,CKM3X2,CONJG__CKM1X3,CONJG__CKM2X3,CONJG__CKM2X1
     $ ,CONJG__CKM3X1,CONJG__CKM2X2,CONJG__CKM3X2,CONJG__CKM1X1
     $ ,CONJG__CKM1X2,I1X31,I1X32,I1X33,I2X13,I2X23,I2X33,I3X31,I3X32
     $ ,I3X33,I4X13,I4X23,I4X33

      COMMON/PARAMS_C/ CKM1X1,CKM1X2,COMPLEXI,CKM1X3,CKM2X1,CKM2X2
     $ ,CKM2X3,CKM3X1,CKM3X2,CONJG__CKM1X3,CONJG__CKM2X3,CONJG__CKM2X1
     $ ,CONJG__CKM3X1,CONJG__CKM2X2,CONJG__CKM3X2,CONJG__CKM1X1
     $ ,CONJG__CKM1X2,I1X31,I1X32,I1X33,I2X13,I2X23,I2X33,I3X31,I3X32
     $ ,I3X33,I4X13,I4X23,I4X33