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