	subroutine born
	implicit character (a-s,u-z)
	implicit double complex (t)

#include "vars.h"

        Ctree(1) = Ctree(1) + (8*Alfa*Pi)/SW2*Abb20 - 
     -   (4*Alfa*Pi)/SW2*AbbSum3 - 
     -   (4*Alfa*MW2*Pi)/SW2*Abb1/(-MH2 + S) - 
     -   (4*Alfa*MW2*Pi)/SW2*Abb14/(-MH2 + T) + 
     -   (16*Alfa*Pi*(AbbSum2*S) + 4*Alfa*Pi*(Abb14*(-S + U)))/T + 
     -   ((16*Alfa*CW2*Pi)/SW2*(AbbSum2*S) + 
     -      (4*Alfa*CW2*Pi)/SW2*(Abb14*(-S + U)))/(-MZ2 + T) - 
     -   (16*Alfa*Pi*(AbbSum1*S) - 4*Alfa*Pi*(Abb1*(-T + U)))/S - 
     -   ((16*Alfa*CW2*Pi)/SW2*(AbbSum1*S) - 
     -      (4*Alfa*CW2*Pi)/SW2*(Abb1*(-T + U)))/(-MZ2 + S)

	end

