ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      written by the UFO converter
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

      SUBROUTINE COUP1()

      IMPLICIT NONE
      INCLUDE 'model_functions.inc'

      DOUBLE PRECISION PI, ZERO
      PARAMETER  (PI=3.141592653589793D0)
      PARAMETER  (ZERO=0D0)
      INCLUDE 'input.inc'
      INCLUDE 'coupl.inc'
      GC_109 = (MDL_CTQ1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_110 = (MDL_CTQ8*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_112 = (MDL_CTU1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_113 = (MDL_CTU8*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_30 = (MDL_CQQ11*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2-(MDL_CQQ13
     $ *MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_31 = (MDL_CQQ11*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2+(MDL_CQQ13
     $ *MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_32 = (MDL_CQQ1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2-(MDL_CQQ8
     $ *MDL_COMPLEXI)/(6.000000D+00*MDL_LAMBDA__EXP__2)
      GC_33 = (MDL_CQQ1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2+(MDL_CQQ8
     $ *MDL_COMPLEXI)/(3.000000D+00*MDL_LAMBDA__EXP__2)
      GC_34 = (MDL_CQQ81*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2-(MDL_CQQ83
     $ *MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_35 = (MDL_CQQ81*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2+(MDL_CQQ83
     $ *MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_71 = (MDL_CQD1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_72 = (MDL_CQD8*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_83 = (MDL_CQQ8*MDL_COMPLEXI)/(2.000000D+00*MDL_LAMBDA__EXP__2)
      GC_85 = (MDL_CQT1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_86 = (MDL_CQT8*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_87 = (MDL_CQU1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_88 = (MDL_CQU8*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_89 = (MDL_CTD1*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      GC_90 = (MDL_CTD8*MDL_COMPLEXI)/MDL_LAMBDA__EXP__2
      END
