SymPy Autowrap generated function

gistfile1.f90

!******************************************************************************
!*                      Code generated with sympy 0.7.3                       *
!*                                                                            *
!*              See http://www.sympy.org/ for more information.               *
!*                                                                            *
!*                      This file is part of 'autowrap'                       *
!******************************************************************************

REAL*8 function autofunc(Gal, empty, fullbound_RE, fullbound_closed_RE, k_base_synt_p53, k_bindleft_p53_RE, k_bindright_p53_RE, k_deg_p53, k_max_synt_p53, k_sat_p53, k_transclosed, k_transhalf, k_transopen, k_unbindleft_p53_RE, k_unbindright_p53_RE, leftbound_RE, p53, rightbound_RE)
implicit none
REAL*8, intent(in) :: Gal
REAL*8, intent(in) :: empty
REAL*8, intent(in) :: fullbound_RE
REAL*8, intent(in) :: fullbound_closed_RE
REAL*8, intent(in) :: k_base_synt_p53
REAL*8, intent(in) :: k_bindleft_p53_RE
REAL*8, intent(in) :: k_bindright_p53_RE
REAL*8, intent(in) :: k_deg_p53
REAL*8, intent(in) :: k_max_synt_p53
REAL*8, intent(in) :: k_sat_p53
REAL*8, intent(in) :: k_transclosed
REAL*8, intent(in) :: k_transhalf
REAL*8, intent(in) :: k_transopen
REAL*8, intent(in) :: k_unbindleft_p53_RE
REAL*8, intent(in) :: k_unbindright_p53_RE
REAL*8, intent(in) :: leftbound_RE
REAL*8, intent(in) :: p53
REAL*8, intent(in) :: rightbound_RE

autofunc = 2*fullbound_RE*k_transopen + fullbound_RE*k_unbindleft_p53_RE &
      + fullbound_RE*k_unbindright_p53_RE + 2*fullbound_closed_RE* &
      k_transclosed - k_bindleft_p53_RE*p53*rightbound_RE - &
      k_bindleft_p53_RE*p53*(-fullbound_RE - fullbound_closed_RE - &
      leftbound_RE - rightbound_RE + 0.0005725d0) - k_bindright_p53_RE* &
      leftbound_RE*p53 - k_bindright_p53_RE*p53*(-fullbound_RE - &
      fullbound_closed_RE - leftbound_RE - rightbound_RE + 0.0005725d0 &
      ) - k_deg_p53*p53 + k_transhalf*leftbound_RE + k_transhalf* &
      rightbound_RE + k_unbindleft_p53_RE*leftbound_RE + &
      k_unbindright_p53_RE*rightbound_RE + (-empty + 1)*(Gal* &
      k_max_synt_p53/(Gal + k_sat_p53) + k_base_synt_p53)

end function