ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      written by the UFO converter
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

      SUBROUTINE COUP2()

      IMPLICIT NONE
      INCLUDE 'model_functions.inc'

      DOUBLE PRECISION PI, ZERO
      PARAMETER  (PI=3.141592653589793D0)
      PARAMETER  (ZERO=0D0)
      INCLUDE 'input.inc'
      INCLUDE 'coupl.inc'
      GC_10 = -G
      GC_11 = MDL_COMPLEXI*G
      GC_12 = MDL_COMPLEXI*MDL_G__EXP__2
      GC_358 = (MDL_CTG*MDL_COMPLEXI*G*MDL_VEV0)/(MDL_LAMBDA__EXP__2
     $ *MDL_SQRT__2)
      GC_360 = -((MDL_CTG*MDL_G__EXP__2*MDL_VEV0)/(MDL_LAMBDA__EXP__2
     $ *MDL_SQRT__2))
      END
