C $Id: biofit.f,v 1.1 2009/06/09 21:51:52 daven Exp $
      REAL*8 FUNCTION BIOFIT(COEFF1,XLAI1,SUNCOS1,CFRAC1)

      IMPLICIT NONE
C===============================================
C Calculate the light correction
C===============================================
C* BIOFIT and SUNPARAM were written by Y.H. Wang.  See comment
C* in subroutine DEPVEL on what these subroutines do.
C*************************************************************
#     include "CMN_SIZE"
#     include "CMN_DEP"
      INTEGER KK
      PARAMETER (KK=4)
      REAL*8 COEFF1(NPOLY),TERM(KK),REALTERM(NPOLY)
      REAL*8 XLAI1,SUNCOS1,CFRAC1
      INTEGER K,K1,K2,K3

      TERM(1)=1.
      TERM(2)=XLAI1
      TERM(3)=SUNCOS1
      TERM(4)=CFRAC1
      CALL SUNPARAM(TERM(2))
      K=0
      DO K3=1,KK
        DO K2=K3,KK
          DO K1=K2,KK
            K=K+1
            REALTERM(K)=TERM(K1)*TERM(K2)*TERM(K3)
          END DO
        END DO
      END DO
      BIOFIT=0
      DO K=1,NPOLY
        BIOFIT=BIOFIT+COEFF1(K)*REALTERM(K)
      END DO
      IF (BIOFIT.LT.0.1) BIOFIT=0.1

      RETURN
      END