! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Numerical Integrator (Time-Stepping) File
! 
! Generated by KPP-2.1 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : cri_mosaic_8bin_aq_Integrator.f90
! Time                 : Mon Feb 27 11:08:38 2017
! Working directory    : /data/ksetigui/setigui/WRFV3_171015/chem/KPP/mechanisms/cri_mosaic_8bin_aq
! Equation file        : cri_mosaic_8bin_aq.kpp
! Output root filename : cri_mosaic_8bin_aq
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! INTEGRATE - Integrator routine
!   Arguments :
!      TIN       - Start Time for Integration
!      TOUT      - End Time for Integration
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

MODULE cri_mosaic_8bin_aq_Integrator

 USE cri_mosaic_8bin_aq_Parameters
 USE cri_mosaic_8bin_aq_Precision
 USE cri_mosaic_8bin_aq_JacobianSP

  IMPLICIT NONE
 


  INTEGER, PARAMETER :: ifun=1, ijac=2, istp=3, iacc=4, &
    irej=5, idec=6, isol=7, isng=8, itexit=1, ihexit=2
    

  ! description of the error numbers IERR
  CHARACTER(LEN=50), PARAMETER, DIMENSION(-8:1) :: IERR_NAMES = (/ &
    'Matrix is repeatedly singular                     ', & ! -8
    'Step size too small                               ', & ! -7
    'No of steps exceeds maximum bound                 ', & ! -6
    'Improper tolerance values                         ', & ! -5
    'FacMin/FacMax/FacRej must be positive             ', & ! -4
    'Hmin/Hmax/Hstart must be positive                 ', & ! -3
    'Selected Rosenbrock method not implemented        ', & ! -2
    'Improper value for maximal no of steps            ', & ! -1
    '                                                  ', & !  0 (not used)
    'Success                                           ' /) !  1

CONTAINS

SUBROUTINE  cri_mosaic_8bin_aq_INTEGRATE( TIN, TOUT, &
  FIX, VAR,  RCONST, ATOL, RTOL,           &
  ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U  )

   USE cri_mosaic_8bin_aq_Parameters
!!   USE cri_mosaic_8bin_aq_Global
   IMPLICIT NONE
   REAL(kind=dp), INTENT(INOUT), DIMENSION(NFIX) :: FIX
   REAL(kind=dp), INTENT(INOUT), DIMENSION(NVAR) :: VAR
   REAL(kind=dp), INTENT(IN), DIMENSION(NSPEC) :: ATOL, RTOL
   REAL(kind=dp), INTENT(IN), DIMENSION(NREACT) :: RCONST
   REAL(kind=dp), INTENT(IN) :: TIN  ! Start Time
   REAL(kind=dp), INTENT(IN) :: TOUT ! End Time
   ! Optional input parameters and statistics
   INTEGER,  INTENT(IN),  OPTIONAL :: ICNTRL_U(20)
   REAL(kind=dp), INTENT(IN),  OPTIONAL :: RCNTRL_U(20)
   INTEGER,  INTENT(OUT), OPTIONAL :: ISTATUS_U(20)
   REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20)
   INTEGER,  INTENT(OUT), OPTIONAL :: IERR_U

   REAL(kind=dp)  :: STEPMIN


   INTEGER :: N_stp, N_acc, N_rej, N_sng
   SAVE N_stp, N_acc, N_rej, N_sng
   INTEGER :: i, IERR
   REAL(kind=dp) :: RCNTRL(20), RSTATUS(20)
   INTEGER :: ICNTRL(20), ISTATUS(20)

   ICNTRL(:)  = 0
   RCNTRL(:)  = 0.0_dp
   ISTATUS(:) = 0
   RSTATUS(:) = 0.0_dp

   ! If optional parameters are given, and if they are >0, 
   ! then they overwrite default settings. 
   IF (PRESENT(ICNTRL_U)) THEN
     WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:)
   END IF
   IF (PRESENT(RCNTRL_U)) THEN
     WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:)
   END IF

   CALL cri_mosaic_8bin_aq_Rosenbrock(VAR, FIX, RCONST, TIN,TOUT,   &
         ATOL,RTOL,               &
         RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR)

   STEPMIN = RCNTRL(ihexit)
   ! if optional parameters are given for output they to return information
   IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:)
   IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:)
   IF (PRESENT(IERR_U))    IERR_U       = IERR

END SUBROUTINE  cri_mosaic_8bin_aq_INTEGRATE

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE  cri_mosaic_8bin_aq_Rosenbrock(Y, FIX, RCONST, Tstart,Tend, &
           AbsTol,RelTol,            &
           RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!    Solves the system y'=F(t,y) using a Rosenbrock method defined by:
!
!     G = 1/(H*gamma(1)) - Jac(t0,Y0)
!     T_i = t0 + Alpha(i)*H
!     Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j
!     G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j +
!         gamma(i)*dF/dT(t0, Y0)
!     Y1 = Y0 + \sum_{j=1}^S M(j)*K_j
!
!    For details on Rosenbrock methods and their implementation consult:
!      E. Hairer and G. Wanner
!      "Solving ODEs II. Stiff and differential-algebraic problems".
!      Springer series in computational mathematics, Springer-Verlag, 1996.
!    The codes contained in the book inspired this implementation.
!
!    (C)  Adrian Sandu, August 2004
!    Virginia Polytechnic Institute and State University
!    Contact: sandu@cs.vt.edu
!    This implementation is part of KPP - the Kinetic PreProcessor
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!~~~>   INPUT ARGUMENTS:
!
!-     Y(NVAR)    = vector of initial conditions (at T=Tstart)
!-    [Tstart,Tend]  = time range of integration
!     (if Tstart>Tend the integration is performed backwards in time)
!-    RelTol, AbsTol = user precribed accuracy
!- SUBROUTINE  Fun( T, Y, Ydot ) = ODE function,
!                       returns Ydot = Y' = F(T,Y)
!- SUBROUTINE  Jac( T, Y, Jcb ) = Jacobian of the ODE function,
!                       returns Jcb = dFun/dY
!-    ICNTRL(1:20)    = integer inputs parameters
!-    RCNTRL(1:20)    = real inputs parameters
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!~~~>     OUTPUT ARGUMENTS:
!
!-    Y(NVAR)    -> vector of final states (at T->Tend)
!-    ISTATUS(1:20)   -> integer output parameters
!-    RSTATUS(1:20)   -> real output parameters
!-    IERR            -> job status upon return
!                        success (positive value) or
!                        failure (negative value)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!~~~>     INPUT PARAMETERS:
!
!    Note: For input parameters equal to zero the default values of the
!       corresponding variables are used.
!
!    ICNTRL(1) = 1: F = F(y)   Independent of T (AUTONOMOUS)
!              = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS)
!
!    ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors
!              = 1: AbsTol, RelTol are scalars
!
!    ICNTRL(3)  -> selection of a particular Rosenbrock method
!        = 0 :  default method is Rodas3
!        = 1 :  method is  Ros2
!        = 2 :  method is  Ros3
!        = 3 :  method is  Ros4
!        = 4 :  method is  Rodas3
!        = 5:   method is  Rodas4
!
!    ICNTRL(4)  -> maximum number of integration steps
!        For ICNTRL(4)=0) the default value of 100000 is used
!
!    RCNTRL(1)  -> Hmin, lower bound for the integration step size
!          It is strongly recommended to keep Hmin = ZERO
!    RCNTRL(2)  -> Hmax, upper bound for the integration step size
!    RCNTRL(3)  -> Hstart, starting value for the integration step size
!
!    RCNTRL(4)  -> FacMin, lower bound on step decrease factor (default=0.2)
!    RCNTRL(5)  -> FacMax, upper bound on step increase factor (default=6)
!    RCNTRL(6)  -> FacRej, step decrease factor after multiple rejections
!            (default=0.1)
!    RCNTRL(7)  -> FacSafe, by which the new step is slightly smaller
!         than the predicted value  (default=0.9)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!~~~>     OUTPUT PARAMETERS:
!
!    Note: each call to Rosenbrock adds the current no. of fcn calls
!      to previous value of ISTATUS(1), and similar for the other params.
!      Set ISTATUS(1:20) = 0 before call to avoid this accumulation.
!
!    ISTATUS(1) = No. of function calls
!    ISTATUS(2) = No. of jacobian calls
!    ISTATUS(3) = No. of steps
!    ISTATUS(4) = No. of accepted steps
!    ISTATUS(5) = No. of rejected steps (except at the beginning)
!    ISTATUS(6) = No. of LU decompositions
!    ISTATUS(7) = No. of forward/backward substitutions
!    ISTATUS(8) = No. of singular matrix decompositions
!
!    RSTATUS(1)  -> Texit, the time corresponding to the
!                   computed Y upon return
!    RSTATUS(2)  -> Hexit, last accepted step before exit
!    For multiple restarts, use Hexit as Hstart in the following run
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  USE cri_mosaic_8bin_aq_Parameters
!!  USE cri_mosaic_8bin_aq_LinearAlgebra
  IMPLICIT NONE

!~~~>  Arguments
   REAL(kind=dp), INTENT(INOUT) :: Y(NVAR)
   REAL(kind=dp), INTENT(IN), DIMENSION(NFIX) :: FIX
   REAL(kind=dp), INTENT(IN), DIMENSION(NREACT) :: RCONST
   REAL(kind=dp), INTENT(IN)   :: Tstart,Tend
   REAL(kind=dp), INTENT(IN)   :: AbsTol(NVAR),RelTol(NVAR)
   INTEGER, INTENT(IN)    :: ICNTRL(20)
   REAL(kind=dp), INTENT(IN)   :: RCNTRL(20)
   INTEGER, INTENT(INOUT) :: ISTATUS(20)
   REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20)
   INTEGER, INTENT(OUT)   :: IERR
!~~~>  The method parameters
   INTEGER, PARAMETER :: Smax = 6
   INTEGER  :: Method, ros_S
   REAL(kind=dp), DIMENSION(Smax) :: ros_M, ros_E, ros_Alpha, ros_Gamma
   REAL(kind=dp), DIMENSION(Smax*(Smax-1)/2) :: ros_A, ros_C
   REAL(kind=dp) :: ros_ELO
   LOGICAL, DIMENSION(Smax) :: ros_NewF
   CHARACTER(LEN=12) :: ros_Name

!~~~>  Statistics on the work performed by the Rosenbrock method
  INTEGER :: Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng


!~~~>  Local variables
   REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe
   REAL(kind=dp) :: Hmin, Hmax, Hstart, Hexit
   REAL(kind=dp) :: Texit
   INTEGER :: i, UplimTol, Max_no_steps
   LOGICAL :: Autonomous, VectorTol
!~~~>   Parameters
   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp
   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp

!~~~>  Initialize statistics
   Nfun = ISTATUS(ifun)
   Njac = ISTATUS(ijac)
   Nstp = ISTATUS(istp)
   Nacc = ISTATUS(iacc)
   Nrej = ISTATUS(irej)
   Ndec = ISTATUS(idec)
   Nsol = ISTATUS(isol)
   Nsng = ISTATUS(isng)

!~~~>  Autonomous or time dependent ODE. Default is time dependent.
   Autonomous = .NOT.(ICNTRL(1) == 0)





!~~~>  For Scalar tolerances (ICNTRL(2).NE.0)  the code uses AbsTol(1) and RelTol(1)
!   For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR)
   IF (ICNTRL(2) == 0) THEN
      VectorTol = .TRUE.
         UplimTol  = NVAR
   ELSE
      VectorTol = .FALSE.
         UplimTol  = 1
   END IF

!~~~>  The particular Rosenbrock method chosen
   IF (ICNTRL(3) == 0) THEN
      Method = 4
   ELSEIF ( (ICNTRL(3) >= 1).AND.(ICNTRL(3) <= 5) ) THEN
      Method = ICNTRL(3)
   ELSE
      PRINT * , 'User-selected Rosenbrock method: ICNTRL(3)=', Method
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-2,Tstart,ZERO,IERR)
      RETURN
   END IF

!~~~>   The maximum number of steps admitted
   IF (ICNTRL(4) == 0) THEN
      Max_no_steps = 100000
   ELSEIF (ICNTRL(4) > 0) THEN
      Max_no_steps=ICNTRL(4)
   ELSE
      PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-1,Tstart,ZERO,IERR)
      RETURN
   END IF

!~~~>  Unit roundoff (1+Roundoff>1)
   Roundoff = cri_mosaic_8bin_aq_WLAMCH('E')

!~~~>  Lower bound on the step size: (positive value)
   IF (RCNTRL(1) == ZERO) THEN
      Hmin = ZERO
   ELSEIF (RCNTRL(1) > ZERO) THEN
      Hmin = RCNTRL(1)
   ELSE
      PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-3,Tstart,ZERO,IERR)
      RETURN
   END IF
!~~~>  Upper bound on the step size: (positive value)
   IF (RCNTRL(2) == ZERO) THEN
      Hmax = ABS(Tend-Tstart)
   ELSEIF (RCNTRL(2) > ZERO) THEN
      Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart))
   ELSE
      PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-3,Tstart,ZERO,IERR)
      RETURN
   END IF
!~~~>  Starting step size: (positive value)
   IF (RCNTRL(3) == ZERO) THEN
      Hstart = MAX(Hmin,DeltaMin)
   ELSEIF (RCNTRL(3) > ZERO) THEN
      Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart))
   ELSE
      PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-3,Tstart,ZERO,IERR)
      RETURN
   END IF
!~~~>  Step size can be changed s.t.  FacMin < Hnew/Hexit < FacMax
   IF (RCNTRL(4) == ZERO) THEN
      FacMin = 0.2_dp
   ELSEIF (RCNTRL(4) > ZERO) THEN
      FacMin = RCNTRL(4)
   ELSE
      PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-4,Tstart,ZERO,IERR)
      RETURN
   END IF
   IF (RCNTRL(5) == ZERO) THEN
      FacMax = 6.0_dp
   ELSEIF (RCNTRL(5) > ZERO) THEN
      FacMax = RCNTRL(5)
   ELSE
      PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-4,Tstart,ZERO,IERR)
      RETURN
   END IF
!~~~>   FacRej: Factor to decrease step after 2 succesive rejections
   IF (RCNTRL(6) == ZERO) THEN
      FacRej = 0.1_dp
   ELSEIF (RCNTRL(6) > ZERO) THEN
      FacRej = RCNTRL(6)
   ELSE
      PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-4,Tstart,ZERO,IERR)
      RETURN
   END IF
!~~~>   FacSafe: Safety Factor in the computation of new step size
   IF (RCNTRL(7) == ZERO) THEN
      FacSafe = 0.9_dp
   ELSEIF (RCNTRL(7) > ZERO) THEN
      FacSafe = RCNTRL(7)
   ELSE
      PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7)
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-4,Tstart,ZERO,IERR)
      RETURN
   END IF
!~~~>  Check if tolerances are reasonable
    DO i=1,UplimTol
      IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) &
         .OR. (RelTol(i) >= 1.0_dp) ) THEN
        PRINT * , ' AbsTol(',i,') = ',AbsTol(i)
        PRINT * , ' RelTol(',i,') = ',RelTol(i)
        CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-5,Tstart,ZERO,IERR)
        RETURN
      END IF
    END DO


!~~~>   Initialize the particular Rosenbrock method
   SELECT CASE (Method)
     CASE (1)
       CALL cri_mosaic_8bin_aq_Ros2(ros_S, ros_A, ros_C, ros_M, ros_E,   &
          ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name)
     CASE (2)
       CALL cri_mosaic_8bin_aq_Ros3(ros_S, ros_A, ros_C, ros_M, ros_E,   &
          ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name)
     CASE (3)
       CALL cri_mosaic_8bin_aq_Ros4(ros_S, ros_A, ros_C, ros_M, ros_E,   &
          ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name)
     CASE (4)
       CALL cri_mosaic_8bin_aq_Rodas3(ros_S, ros_A, ros_C, ros_M, ros_E, &
          ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name)
     CASE (5)
       CALL cri_mosaic_8bin_aq_Rodas4(ros_S, ros_A, ros_C, ros_M, ros_E, &
          ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name)
     CASE DEFAULT
       PRINT * , 'Unknown Rosenbrock method: ICNTRL(4)=', Method
       CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-2,Tstart,ZERO,IERR)
       RETURN
   END SELECT

!~~~>  CALL Rosenbrock method
   CALL cri_mosaic_8bin_aq_ros_Integrator(Y,Tstart,Tend,Texit,      &
        AbsTol, RelTol,                          &
!  Rosenbrock method coefficients
        ros_S, ros_M, ros_E, ros_A, ros_C,       &
        ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, &
!  Integration parameters
        Autonomous, VectorTol, Max_no_steps,     &
        Roundoff, Hmin, Hmax, Hstart, Hexit,     &
        FacMin, FacMax, FacRej, FacSafe,         &
!  Error indicator
        IERR,                                    &
!  Statistics on the work performed by the Rosenbrock method
         Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng,&
!~~~> 
         RCONST, FIX &
)


!~~~>  Collect run statistics
   ISTATUS(ifun) = Nfun
   ISTATUS(ijac) = Njac
   ISTATUS(istp) = Nstp
   ISTATUS(iacc) = Nacc
   ISTATUS(irej) = Nrej
   ISTATUS(idec) = Ndec
   ISTATUS(isol) = Nsol
   ISTATUS(isng) = Nsng
!~~~> Last T and H
   RSTATUS(itexit) = Texit
   RSTATUS(ihexit) = Hexit

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
CONTAINS !  SUBROUTINES internal to Rosenbrock
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 SUBROUTINE  cri_mosaic_8bin_aq_ros_ErrorMsg(Code,T,H,IERR)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!    Handles all error messages
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   USE cri_mosaic_8bin_aq_Precision

   REAL(kind=dp), INTENT(IN) :: T, H
   INTEGER, INTENT(IN)  :: Code
   INTEGER, INTENT(OUT) :: IERR

   IERR = Code
   PRINT * , &
     'Forced exit from Rosenbrock due to the following error:'
   IF ((Code>=-8).AND.(Code<=-1)) THEN
     PRINT *, IERR_NAMES(Code)
   ELSE
     PRINT *, 'Unknown Error code: ', Code
   ENDIF

   PRINT *, "T=", T, "and H=", H

 END SUBROUTINE  cri_mosaic_8bin_aq_ros_ErrorMsg

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 SUBROUTINE  cri_mosaic_8bin_aq_ros_Integrator (Y, Tstart, Tend, T,     &
        AbsTol, RelTol,                          &
!~~~> Rosenbrock method coefficients
        ros_S, ros_M, ros_E, ros_A, ros_C,       &
        ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, &
!~~~> Integration parameters
        Autonomous, VectorTol, Max_no_steps,     &
        Roundoff, Hmin, Hmax, Hstart, Hexit,     &
        FacMin, FacMax, FacRej, FacSafe,         &
!~~~> Error indicator
        IERR,                                    &
!~~~>   Statistics on the work performed by the Rosenbrock method
        Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng, &
!~~~> 
        RCONST, FIX &
 )
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!   Template for the implementation of a generic Rosenbrock method
!      defined by ros_S (no of stages)
!      and its coefficients ros_{A,C,M,E,Alpha,Gamma}
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  IMPLICIT NONE

!~~~> Input: the initial condition at Tstart; Output: the solution at T
   REAL(kind=dp), INTENT(INOUT) :: Y(NVAR)
!~~~> Input: integration interval
   REAL(kind=dp), INTENT(IN) :: Tstart,Tend
!~~~> Output: time at which the solution is returned (T=Tend if success)
   REAL(kind=dp), INTENT(OUT) ::  T
!~~~> Input: tolerances
   REAL(kind=dp), INTENT(IN) ::  AbsTol(NVAR), RelTol(NVAR)
!~~~> Input: The Rosenbrock method parameters
   INTEGER, INTENT(IN) ::  ros_S
   REAL(kind=dp), INTENT(IN) :: ros_M(ros_S), ros_E(ros_S),  &
       ros_Alpha(ros_S), ros_A(ros_S*(ros_S-1)/2), &
       ros_Gamma(ros_S), ros_C(ros_S*(ros_S-1)/2), ros_ELO
   LOGICAL, INTENT(IN) :: ros_NewF(ros_S)
!~~~> Input: integration parameters
   LOGICAL, INTENT(IN) :: Autonomous, VectorTol
   REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax
   INTEGER, INTENT(IN) :: Max_no_steps
   REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe
!~~~> Output: last accepted step
   REAL(kind=dp), INTENT(OUT) :: Hexit
!~~~> Output: Error indicator
   INTEGER, INTENT(OUT) :: IERR
!~~~> Input
   REAL(kind=dp), INTENT(IN), DIMENSION(NFIX) :: FIX
!~~~> Input
   REAL(kind=dp), INTENT(IN), DIMENSION(NREACT) :: RCONST

!~~~>  Statistics on the work performed by the Rosenbrock method
  INTEGER, INTENT(INOUT)  :: Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng

! ~~~~ Local variables
   REAL(kind=dp) :: Ynew(NVAR), Fcn0(NVAR), Fcn(NVAR)
   REAL(kind=dp) :: K(NVAR*ros_S), dFdT(NVAR)
#ifdef FULL_ALGEBRA    
   REAL(kind=dp) :: Jac0(NVAR,NVAR), Ghimj(NVAR,NVAR)
#else
   REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO)
#endif
   REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau
   REAL(kind=dp) :: Err, Yerr(NVAR)
   INTEGER :: Pivot(NVAR), Direction, ioffset, j, istage
   LOGICAL :: RejectLastH, RejectMoreH, Singular
!~~~>  Local parameters
   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE  = 1.0_dp
   REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp
!~~~>  Locally called functions
!    REAL(kind=dp) WLAMCH
!    EXTERNAL WLAMCH
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


!~~~>  Initial preparations
   T = Tstart
   Hexit = 0.0_dp
   H = MIN(Hstart,Hmax)
   IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin

   IF (Tend  >=  Tstart) THEN
     Direction = +1
   ELSE
     Direction = -1
   END IF

   RejectLastH=.FALSE.
   RejectMoreH=.FALSE.

!~~~> Time loop begins below

TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) &
       .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) )

   IF ( Nstp > Max_no_steps ) THEN  ! Too many steps
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-6,T,H,IERR)
      RETURN
   END IF
   IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN  ! Step size too small
      CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-7,T,H,IERR)
      RETURN
   END IF

!~~~>  Limit H if necessary to avoid going beyond Tend
   Hexit = H
   H = MIN(H,ABS(Tend-T))

!~~~>   Compute the function at current time
   CALL cri_mosaic_8bin_aq_FunTemplate(T,Y,Fcn0, RCONST, FIX, Nfun)

!~~~>  Compute the function derivative with respect to T
   IF (.NOT.Autonomous) THEN
      CALL cri_mosaic_8bin_aq_ros_FunTimeDeriv ( T, Roundoff, Y, &
                Fcn0, dFdT, RCONST, FIX, Nfun )
   END IF

!~~~>   Compute the Jacobian at current time
   CALL cri_mosaic_8bin_aq_JacTemplate(T,Y,Jac0, FIX, Njac, RCONST)

!~~~>  Repeat step calculation until current step accepted
UntilAccepted: DO

   CALL cri_mosaic_8bin_aq_ros_PrepareMatrix(H,Direction,ros_Gamma(1), &
          Jac0,Ghimj,Pivot,Singular, Ndec,  Nsng )
   IF (Singular) THEN ! More than 5 consecutive failed decompositions
       CALL cri_mosaic_8bin_aq_ros_ErrorMsg(-8,T,H,IERR)
       RETURN
   END IF

!~~~>   Compute the stages
Stage: DO istage = 1, ros_S

      ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+NVAR)
       ioffset = NVAR*(istage-1)

      ! For the 1st istage the function has been computed previously
       IF ( istage == 1 ) THEN
         CALL cri_mosaic_8bin_aq_WCOPY(NVAR,Fcn0,1,Fcn,1)
      ! istage>1 and a new function evaluation is needed at the current istage
       ELSEIF ( ros_NewF(istage) ) THEN
         CALL cri_mosaic_8bin_aq_WCOPY(NVAR,Y,1,Ynew,1)
         DO j = 1, istage-1
           CALL cri_mosaic_8bin_aq_WAXPY(NVAR,ros_A((istage-1)*(istage-2)/2+j), &
            K(NVAR*(j-1)+1),1,Ynew,1)
         END DO
         Tau = T + ros_Alpha(istage)*Direction*H
         CALL cri_mosaic_8bin_aq_FunTemplate(Tau,Ynew,Fcn, RCONST, FIX, Nfun)
       END IF ! if istage == 1 elseif ros_NewF(istage)
       CALL cri_mosaic_8bin_aq_WCOPY(NVAR,Fcn,1,K(ioffset+1),1)
       DO j = 1, istage-1
         HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H)
         CALL cri_mosaic_8bin_aq_WAXPY(NVAR,HC,K(NVAR*(j-1)+1),1,K(ioffset+1),1)
       END DO
       IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN
         HG = Direction*H*ros_Gamma(istage)
         CALL cri_mosaic_8bin_aq_WAXPY(NVAR,HG,dFdT,1,K(ioffset+1),1)
       END IF
       CALL cri_mosaic_8bin_aq_ros_Solve(Ghimj, Pivot, K(ioffset+1), Nsol)

   END DO Stage


!~~~>  Compute the new solution
   CALL cri_mosaic_8bin_aq_WCOPY(NVAR,Y,1,Ynew,1)
   DO j=1,ros_S
         CALL cri_mosaic_8bin_aq_WAXPY(NVAR,ros_M(j),K(NVAR*(j-1)+1),1,Ynew,1)
   END DO

!~~~>  Compute the error estimation
   CALL cri_mosaic_8bin_aq_WSCAL(NVAR,ZERO,Yerr,1)
   DO j=1,ros_S
        CALL cri_mosaic_8bin_aq_WAXPY(NVAR,ros_E(j),K(NVAR*(j-1)+1),1,Yerr,1)
   END DO
   Err = cri_mosaic_8bin_aq_ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol )

!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax
   Fac  = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO)))
   Hnew = H*Fac

!~~~>  Check the error magnitude and adjust step size
   Nstp = Nstp+1
   IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN  !~~~> Accept step
      Nacc = Nacc+1
      CALL cri_mosaic_8bin_aq_WCOPY(NVAR,Ynew,1,Y,1)
      T = T + Direction*H
      Hnew = MAX(Hmin,MIN(Hnew,Hmax))
      IF (RejectLastH) THEN  ! No step size increase after a rejected step
         Hnew = MIN(Hnew,H)
      END IF
      RejectLastH = .FALSE.
      RejectMoreH = .FALSE.
      H = Hnew
      EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED
   ELSE           !~~~> Reject step
      IF (RejectMoreH) THEN
         Hnew = H*FacRej
      END IF
      RejectMoreH = RejectLastH
      RejectLastH = .TRUE.
      H = Hnew
      IF (Nacc >= 1) THEN
         Nrej = Nrej+1
      END IF
   END IF ! Err <= 1

   END DO UntilAccepted

   END DO TimeLoop

!~~~> Succesful exit
   IERR = 1  !~~~> The integration was successful

  END SUBROUTINE  cri_mosaic_8bin_aq_ros_Integrator


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  REAL(kind=dp) FUNCTION  cri_mosaic_8bin_aq_ros_ErrorNorm ( Y, Ynew, Yerr, &
               AbsTol, RelTol, VectorTol )
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~> Computes the "scaled norm" of the error vector Yerr
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   IMPLICIT NONE

! Input arguments
   REAL(kind=dp), INTENT(IN) :: Y(NVAR), Ynew(NVAR), &
          Yerr(NVAR), AbsTol(NVAR), RelTol(NVAR)
   LOGICAL, INTENT(IN) ::  VectorTol
! Local variables
   REAL(kind=dp) :: Err, Scale, Ymax
   INTEGER  :: i
   REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp

   Err = ZERO
   DO i=1,NVAR
     Ymax = MAX(ABS(Y(i)),ABS(Ynew(i)))
     IF (VectorTol) THEN
       Scale = AbsTol(i)+RelTol(i)*Ymax
     ELSE
       Scale = AbsTol(1)+RelTol(1)*Ymax
     END IF
     Err = Err+(Yerr(i)/Scale)**2
   END DO
   Err  = SQRT(Err/NVAR)

    cri_mosaic_8bin_aq_ros_ErrorNorm = Err

  END FUNCTION  cri_mosaic_8bin_aq_ros_ErrorNorm


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE cri_mosaic_8bin_aq_ros_FunTimeDeriv ( T, Roundoff, Y, &
                Fcn0, dFdT, RCONST, FIX, Nfun )
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~> The time partial derivative of the function by finite differences
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   IMPLICIT NONE

!~~~> Input arguments
   REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(NVAR), Fcn0(NVAR)
   REAL(kind=dp), INTENT(IN) :: RCONST(NREACT), FIX(NFIX)
!~~~> Output arguments
   REAL(kind=dp), INTENT(OUT) :: dFdT(NVAR)
!~~~> InOut args
   INTEGER, INTENT(INOUT) ::Nfun
!~~~> Local variables
   REAL(kind=dp) :: Delta
   REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp

   Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T))
   CALL cri_mosaic_8bin_aq_FunTemplate(T+Delta,Y,dFdT, RCONST, FIX, Nfun)
   CALL cri_mosaic_8bin_aq_WAXPY(NVAR,(-ONE),Fcn0,1,dFdT,1)
   CALL cri_mosaic_8bin_aq_WSCAL(NVAR,(ONE/Delta),dFdT,1)

  END SUBROUTINE  cri_mosaic_8bin_aq_ros_FunTimeDeriv


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_ros_PrepareMatrix ( H, Direction, gam, &
             Jac0, Ghimj, Pivot, Singular, Ndec,  Nsng  )
! --- --- --- --- --- --- --- --- --- --- --- --- ---
!  Prepares the LHS matrix for stage calculations
!  1.  Construct Ghimj = 1/(H*ham) - Jac0
!      "(Gamma H) Inverse Minus Jacobian"
!  2.  Repeat LU decomposition of Ghimj until successful.
!       -half the step size if LU decomposition fails and retry
!       -exit after 5 consecutive fails
! --- --- --- --- --- --- --- --- --- --- --- --- ---
   IMPLICIT NONE

!~~~> Input arguments
#ifdef FULL_ALGEBRA    
   REAL(kind=dp), INTENT(IN) ::  Jac0(NVAR,NVAR)
#else
   REAL(kind=dp), INTENT(IN) ::  Jac0(LU_NONZERO)
#endif   
   REAL(kind=dp), INTENT(IN) ::  gam
   INTEGER, INTENT(IN) ::  Direction
!~~~> Output arguments
#ifdef FULL_ALGEBRA    
   REAL(kind=dp), INTENT(OUT) :: Ghimj(NVAR,NVAR)
#else
   REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO)
#endif   
   LOGICAL, INTENT(OUT) ::  Singular
   INTEGER, INTENT(OUT) ::  Pivot(NVAR)
!~~~> Inout arguments
   REAL(kind=dp), INTENT(INOUT) :: H   ! step size is decreased when LU fails
   INTEGER, INTENT(INOUT) ::  Ndec, Nsng
!~~~> Local variables
   INTEGER  :: i, ising, Nconsecutive
   REAL(kind=dp) :: ghinv
   REAL(kind=dp), PARAMETER :: ONE  = 1.0_dp, HALF = 0.5_dp

   Nconsecutive = 0
   Singular = .TRUE.

   DO WHILE (Singular)

!~~~>    Construct Ghimj = 1/(H*gam) - Jac0
#ifdef FULL_ALGEBRA    
     CALL cri_mosaic_8bin_aq_WCOPY(NVAR*NVAR,Jac0,1,Ghimj,1)
     CALL cri_mosaic_8bin_aq_WSCAL(NVAR*NVAR,(-ONE),Ghimj,1)
     ghinv = ONE/(Direction*H*gam)
     DO i=1,NVAR
       Ghimj(i,i) = Ghimj(i,i)+ghinv
     END DO
#else
     CALL cri_mosaic_8bin_aq_WCOPY(LU_NONZERO,Jac0,1,Ghimj,1)
     CALL cri_mosaic_8bin_aq_WSCAL(LU_NONZERO,(-ONE),Ghimj,1)
     ghinv = ONE/(Direction*H*gam)
     DO i=1,NVAR
       Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv
     END DO
#endif   
!~~~>    Compute LU decomposition
     CALL cri_mosaic_8bin_aq_ros_Decomp( Ghimj, Pivot, ising, Ndec )
     IF (ising == 0) THEN
!~~~>    If successful done
        Singular = .FALSE.
     ELSE ! ising .ne. 0
!~~~>    If unsuccessful half the step size; if 5 consecutive fails then return
        Nsng = Nsng+1
        Nconsecutive = Nconsecutive+1
        Singular = .TRUE.
        PRINT*,'Warning: LU Decomposition returned ising = ',ising
        IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions
           H = H*HALF
        ELSE  ! More than 5 consecutive failed decompositions
           RETURN
        END IF  ! Nconsecutive
      END IF    ! ising

   END DO ! WHILE Singular

  END SUBROUTINE  cri_mosaic_8bin_aq_ros_PrepareMatrix


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_ros_Decomp( A, Pivot, ising, Ndec )
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!  Template for the LU decomposition
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   IMPLICIT NONE
!~~~> Inout variables
   REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO)
!~~~> Output variables
   INTEGER, INTENT(OUT) :: Pivot(NVAR), ising
   INTEGER, INTENT(INOUT) :: Ndec 

#ifdef FULL_ALGEBRA    
   CALL  cri_mosaic_8bin_aq_DGETRF( NVAR, NVAR, A, NVAR, Pivot, ising )
#else   
   CALL cri_mosaic_8bin_aq_KppDecomp ( A, ising )
   Pivot(1) = 1
#endif
   Ndec = Ndec + 1

  END SUBROUTINE  cri_mosaic_8bin_aq_ros_Decomp


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_ros_Solve( A, Pivot, b, Nsol )
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!  Template for the forward/backward substitution (using pre-computed LU decomposition)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   IMPLICIT NONE
!~~~> Input variables
   REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO)
   INTEGER, INTENT(IN) :: Pivot(NVAR)
!~~~~>  InOut args
   INTEGER, INTENT(INOUT) :: nsol 
!~~~> InOut variables
   REAL(kind=dp), INTENT(INOUT) :: b(NVAR)


#ifdef FULL_ALGEBRA    
   CALL  cri_mosaic_8bin_aq_DGETRS( 'N', NVAR , 1, A, NVAR, Pivot, b, NVAR, 0 )
#else   
   CALL cri_mosaic_8bin_aq_KppSolve( A, b )
#endif

   Nsol = Nsol+1

  END SUBROUTINE  cri_mosaic_8bin_aq_ros_Solve



!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_Ros2 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,&
            ros_Gamma,ros_NewF,ros_ELO,ros_Name)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! --- AN L-STABLE METHOD, 2 stages, order 2
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  IMPLICIT NONE

   INTEGER, PARAMETER :: S=2
   INTEGER, INTENT(OUT) ::  ros_S
   REAL(kind=dp), DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma
   REAL(kind=dp), DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C
   REAL(kind=dp), INTENT(OUT) :: ros_ELO
   LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF
   CHARACTER(LEN=12), INTENT(OUT) :: ros_Name
!cms   DOUBLE PRECISION g
    REAL(kind=dp) :: g

    g = 1.0_dp + 1.0_dp/SQRT(2.0_dp)

!~~~> Name of the method
    ros_Name = 'ROS-2'
!~~~> Number of stages
    ros_S = S

!~~~> The coefficient matrices A and C are strictly lower triangular.
!   The lower triangular (subdiagonal) elements are stored in row-wise order:
!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.
!   The general mapping formula is:
!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )
!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )

    ros_A(1) = (1.0_dp)/g
    ros_C(1) = (-2.0_dp)/g
!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)
!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)
    ros_NewF(1) = .TRUE.
    ros_NewF(2) = .TRUE.
!~~~> M_i = Coefficients for new step solution
    ros_M(1)= (3.0_dp)/(2.0_dp*g)
    ros_M(2)= (1.0_dp)/(2.0_dp*g)
! E_i = Coefficients for error estimator
    ros_E(1) = 1.0_dp/(2.0_dp*g)
    ros_E(2) = 1.0_dp/(2.0_dp*g)
!~~~> ros_ELO = estimator of local order - the minimum between the
!    main and the embedded scheme orders plus one
    ros_ELO = 2.0_dp
!~~~> Y_stage_i ~ Y( T + H*Alpha_i )
    ros_Alpha(1) = 0.0_dp
    ros_Alpha(2) = 1.0_dp
!~~~> Gamma_i = \sum_j  gamma_{i,j}
    ros_Gamma(1) = g
    ros_Gamma(2) =-g

 END SUBROUTINE  cri_mosaic_8bin_aq_Ros2


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_Ros3 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,&
           ros_Gamma,ros_NewF,ros_ELO,ros_Name)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  IMPLICIT NONE

   INTEGER, PARAMETER :: S=3
   INTEGER, INTENT(OUT) ::  ros_S
   REAL(kind=dp), DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma
   REAL(kind=dp), DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C
   REAL(kind=dp), INTENT(OUT) :: ros_ELO
   LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF
   CHARACTER(LEN=12), INTENT(OUT) :: ros_Name

!~~~> Name of the method
   ros_Name = 'ROS-3'
!~~~> Number of stages
   ros_S = S

!~~~> The coefficient matrices A and C are strictly lower triangular.
!   The lower triangular (subdiagonal) elements are stored in row-wise order:
!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.
!   The general mapping formula is:
!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )
!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )

   ros_A(1)= 1.0_dp
   ros_A(2)= 1.0_dp
   ros_A(3)= 0.0_dp

   ros_C(1) = -0.10156171083877702091975600115545E+01_dp
   ros_C(2) =  0.40759956452537699824805835358067E+01_dp
   ros_C(3) =  0.92076794298330791242156818474003E+01_dp
!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)
!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)
   ros_NewF(1) = .TRUE.
   ros_NewF(2) = .TRUE.
   ros_NewF(3) = .FALSE.
!~~~> M_i = Coefficients for new step solution
   ros_M(1) =  0.1E+01_dp
   ros_M(2) =  0.61697947043828245592553615689730E+01_dp
   ros_M(3) = -0.42772256543218573326238373806514E+00_dp
! E_i = Coefficients for error estimator
   ros_E(1) =  0.5E+00_dp
   ros_E(2) = -0.29079558716805469821718236208017E+01_dp
   ros_E(3) =  0.22354069897811569627360909276199E+00_dp
!~~~> ros_ELO = estimator of local order - the minimum between the
!    main and the embedded scheme orders plus 1
   ros_ELO = 3.0_dp
!~~~> Y_stage_i ~ Y( T + H*Alpha_i )
   ros_Alpha(1)= 0.0E+00_dp
   ros_Alpha(2)= 0.43586652150845899941601945119356E+00_dp
   ros_Alpha(3)= 0.43586652150845899941601945119356E+00_dp
!~~~> Gamma_i = \sum_j  gamma_{i,j}
   ros_Gamma(1)= 0.43586652150845899941601945119356E+00_dp
   ros_Gamma(2)= 0.24291996454816804366592249683314E+00_dp
   ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp

  END SUBROUTINE  cri_mosaic_8bin_aq_Ros3

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_Ros4 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,&
           ros_Gamma,ros_NewF,ros_ELO,ros_Name)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!     L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES
!     L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3
!
!      E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL
!      EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS.
!      SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS,
!      SPRINGER-VERLAG (1990)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  IMPLICIT NONE

   INTEGER, PARAMETER :: S=4
   INTEGER, INTENT(OUT) ::  ros_S
   REAL(kind=dp), DIMENSION(4), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma
   REAL(kind=dp), DIMENSION(6), INTENT(OUT) :: ros_A, ros_C
   REAL(kind=dp), INTENT(OUT) :: ros_ELO
   LOGICAL, DIMENSION(4), INTENT(OUT) :: ros_NewF
   CHARACTER(LEN=12), INTENT(OUT) :: ros_Name
!cms   DOUBLE PRECISION g
   REAL(kind=dp) :: g


!~~~> Name of the method
   ros_Name = 'ROS-4'
!~~~> Number of stages
   ros_S = S

!~~~> The coefficient matrices A and C are strictly lower triangular.
!   The lower triangular (subdiagonal) elements are stored in row-wise order:
!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.
!   The general mapping formula is:
!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )
!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )

   ros_A(1) = 0.2000000000000000E+01_dp
   ros_A(2) = 0.1867943637803922E+01_dp
   ros_A(3) = 0.2344449711399156E+00_dp
   ros_A(4) = ros_A(2)
   ros_A(5) = ros_A(3)
   ros_A(6) = 0.0_dp

   ros_C(1) =-0.7137615036412310E+01_dp
   ros_C(2) = 0.2580708087951457E+01_dp
   ros_C(3) = 0.6515950076447975E+00_dp
   ros_C(4) =-0.2137148994382534E+01_dp
   ros_C(5) =-0.3214669691237626E+00_dp
   ros_C(6) =-0.6949742501781779E+00_dp
!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)
!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)
   ros_NewF(1)  = .TRUE.
   ros_NewF(2)  = .TRUE.
   ros_NewF(3)  = .TRUE.
   ros_NewF(4)  = .FALSE.
!~~~> M_i = Coefficients for new step solution
   ros_M(1) = 0.2255570073418735E+01_dp
   ros_M(2) = 0.2870493262186792E+00_dp
   ros_M(3) = 0.4353179431840180E+00_dp
   ros_M(4) = 0.1093502252409163E+01_dp
!~~~> E_i  = Coefficients for error estimator
   ros_E(1) =-0.2815431932141155E+00_dp
   ros_E(2) =-0.7276199124938920E-01_dp
   ros_E(3) =-0.1082196201495311E+00_dp
   ros_E(4) =-0.1093502252409163E+01_dp
!~~~> ros_ELO  = estimator of local order - the minimum between the
!    main and the embedded scheme orders plus 1
   ros_ELO  = 4.0_dp
!~~~> Y_stage_i ~ Y( T + H*Alpha_i )
   ros_Alpha(1) = 0.0_dp
   ros_Alpha(2) = 0.1145640000000000E+01_dp
   ros_Alpha(3) = 0.6552168638155900E+00_dp
   ros_Alpha(4) = ros_Alpha(3)
!~~~> Gamma_i = \sum_j  gamma_{i,j}
   ros_Gamma(1) = 0.5728200000000000E+00_dp
   ros_Gamma(2) =-0.1769193891319233E+01_dp
   ros_Gamma(3) = 0.7592633437920482E+00_dp
   ros_Gamma(4) =-0.1049021087100450E+00_dp

  END SUBROUTINE  cri_mosaic_8bin_aq_Ros4

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_Rodas3 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,&
            ros_Gamma,ros_NewF,ros_ELO,ros_Name)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! --- A STIFFLY-STABLE METHOD, 4 stages, order 3
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  IMPLICIT NONE

   INTEGER, PARAMETER :: S=4
   INTEGER, INTENT(OUT) ::  ros_S
   REAL(kind=dp), DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma
   REAL(kind=dp), DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C
   REAL(kind=dp), INTENT(OUT) :: ros_ELO
   LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF
   CHARACTER(LEN=12), INTENT(OUT) :: ros_Name
!cms   DOUBLE PRECISION g
   REAL(kind=dp) :: g

!~~~> Name of the method
   ros_Name = 'RODAS-3'
!~~~> Number of stages
   ros_S = S

!~~~> The coefficient matrices A and C are strictly lower triangular.
!   The lower triangular (subdiagonal) elements are stored in row-wise order:
!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.
!   The general mapping formula is:
!       A(i,j) = ros_A( (i-1)*(i-2)/2 + j )
!       C(i,j) = ros_C( (i-1)*(i-2)/2 + j )

   ros_A(1) = 0.0E+00_dp
   ros_A(2) = 2.0E+00_dp
   ros_A(3) = 0.0E+00_dp
   ros_A(4) = 2.0E+00_dp
   ros_A(5) = 0.0E+00_dp
   ros_A(6) = 1.0E+00_dp

   ros_C(1) = 4.0E+00_dp
   ros_C(2) = 1.0E+00_dp
   ros_C(3) =-1.0E+00_dp
   ros_C(4) = 1.0E+00_dp
   ros_C(5) =-1.0E+00_dp
   ros_C(6) =-(8.0E+00_dp/3.0E+00_dp)

!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)
!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)
   ros_NewF(1)  = .TRUE.
   ros_NewF(2)  = .FALSE.
   ros_NewF(3)  = .TRUE.
   ros_NewF(4)  = .TRUE.
!~~~> M_i = Coefficients for new step solution
   ros_M(1) = 2.0E+00_dp
   ros_M(2) = 0.0E+00_dp
   ros_M(3) = 1.0E+00_dp
   ros_M(4) = 1.0E+00_dp
!~~~> E_i  = Coefficients for error estimator
   ros_E(1) = 0.0E+00_dp
   ros_E(2) = 0.0E+00_dp
   ros_E(3) = 0.0E+00_dp
   ros_E(4) = 1.0E+00_dp
!~~~> ros_ELO  = estimator of local order - the minimum between the
!    main and the embedded scheme orders plus 1
   ros_ELO  = 3.0E+00_dp
!~~~> Y_stage_i ~ Y( T + H*Alpha_i )
   ros_Alpha(1) = 0.0E+00_dp
   ros_Alpha(2) = 0.0E+00_dp
   ros_Alpha(3) = 1.0E+00_dp
   ros_Alpha(4) = 1.0E+00_dp
!~~~> Gamma_i = \sum_j  gamma_{i,j}
   ros_Gamma(1) = 0.5E+00_dp
   ros_Gamma(2) = 1.5E+00_dp
   ros_Gamma(3) = 0.0E+00_dp
   ros_Gamma(4) = 0.0E+00_dp

  END SUBROUTINE  cri_mosaic_8bin_aq_Rodas3

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  SUBROUTINE  cri_mosaic_8bin_aq_Rodas4 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,&
             ros_Gamma,ros_NewF,ros_ELO,ros_Name)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!     STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES
!
!      E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL
!      EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS.
!      SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS,
!      SPRINGER-VERLAG (1996)
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  IMPLICIT NONE

   INTEGER, PARAMETER :: S=6
   INTEGER, INTENT(OUT) ::  ros_S
   REAL(kind=dp), DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma
   REAL(kind=dp), DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C
   REAL(kind=dp), INTENT(OUT) :: ros_ELO
   LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF
   CHARACTER(LEN=12), INTENT(OUT) :: ros_Name
!cms   DOUBLE PRECISION g
    REAL(kind=dp) :: g

!~~~> Name of the method
    ros_Name = 'RODAS-4'
!~~~> Number of stages
    ros_S = 6

!~~~> Y_stage_i ~ Y( T + H*Alpha_i )
    ros_Alpha(1) = 0.000_dp
    ros_Alpha(2) = 0.386_dp
    ros_Alpha(3) = 0.210_dp
    ros_Alpha(4) = 0.630_dp
    ros_Alpha(5) = 1.000_dp
    ros_Alpha(6) = 1.000_dp

!~~~> Gamma_i = \sum_j  gamma_{i,j}
    ros_Gamma(1) = 0.2500000000000000E+00_dp
    ros_Gamma(2) =-0.1043000000000000E+00_dp
    ros_Gamma(3) = 0.1035000000000000E+00_dp
    ros_Gamma(4) =-0.3620000000000023E-01_dp
    ros_Gamma(5) = 0.0_dp
    ros_Gamma(6) = 0.0_dp

!~~~> The coefficient matrices A and C are strictly lower triangular.
!   The lower triangular (subdiagonal) elements are stored in row-wise order:
!   A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc.
!   The general mapping formula is:  A(i,j) = ros_A( (i-1)*(i-2)/2 + j )
!                  C(i,j) = ros_C( (i-1)*(i-2)/2 + j )

    ros_A(1) = 0.1544000000000000E+01_dp
    ros_A(2) = 0.9466785280815826E+00_dp
    ros_A(3) = 0.2557011698983284E+00_dp
    ros_A(4) = 0.3314825187068521E+01_dp
    ros_A(5) = 0.2896124015972201E+01_dp
    ros_A(6) = 0.9986419139977817E+00_dp
    ros_A(7) = 0.1221224509226641E+01_dp
    ros_A(8) = 0.6019134481288629E+01_dp
    ros_A(9) = 0.1253708332932087E+02_dp
    ros_A(10) =-0.6878860361058950E+00_dp
    ros_A(11) = ros_A(7)
    ros_A(12) = ros_A(8)
    ros_A(13) = ros_A(9)
    ros_A(14) = ros_A(10)
    ros_A(15) = 1.0E+00_dp

    ros_C(1) =-0.5668800000000000E+01_dp
    ros_C(2) =-0.2430093356833875E+01_dp
    ros_C(3) =-0.2063599157091915E+00_dp
    ros_C(4) =-0.1073529058151375E+00_dp
    ros_C(5) =-0.9594562251023355E+01_dp
    ros_C(6) =-0.2047028614809616E+02_dp
    ros_C(7) = 0.7496443313967647E+01_dp
    ros_C(8) =-0.1024680431464352E+02_dp
    ros_C(9) =-0.3399990352819905E+02_dp
    ros_C(10) = 0.1170890893206160E+02_dp
    ros_C(11) = 0.8083246795921522E+01_dp
    ros_C(12) =-0.7981132988064893E+01_dp
    ros_C(13) =-0.3152159432874371E+02_dp
    ros_C(14) = 0.1631930543123136E+02_dp
    ros_C(15) =-0.6058818238834054E+01_dp

!~~~> M_i = Coefficients for new step solution
    ros_M(1) = ros_A(7)
    ros_M(2) = ros_A(8)
    ros_M(3) = ros_A(9)
    ros_M(4) = ros_A(10)
    ros_M(5) = 1.0E+00_dp
    ros_M(6) = 1.0E+00_dp

!~~~> E_i  = Coefficients for error estimator
    ros_E(1) = 0.0E+00_dp
    ros_E(2) = 0.0E+00_dp
    ros_E(3) = 0.0E+00_dp
    ros_E(4) = 0.0E+00_dp
    ros_E(5) = 0.0E+00_dp
    ros_E(6) = 1.0E+00_dp

!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE)
!   or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE)
    ros_NewF(1) = .TRUE.
    ros_NewF(2) = .TRUE.
    ros_NewF(3) = .TRUE.
    ros_NewF(4) = .TRUE.
    ros_NewF(5) = .TRUE.
    ros_NewF(6) = .TRUE.

!~~~> ros_ELO  = estimator of local order - the minimum between the
!        main and the embedded scheme orders plus 1
    ros_ELO = 4.0_dp

  END SUBROUTINE  cri_mosaic_8bin_aq_Rodas4

!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!   End of the set of internal Rosenbrock subroutines
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
END SUBROUTINE  cri_mosaic_8bin_aq_Rosenbrock
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE  cri_mosaic_8bin_aq_FunTemplate( T, Y, Ydot, RCONST, FIX, Nfun )
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!  Template for the ODE function call.
!  Updates the rate coefficients (and possibly the fixed species) at each call
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   USE cri_mosaic_8bin_aq_Parameters
!! USE cri_mosaic_8bin_aq_Global
!! USE cri_mosaic_8bin_aq_Function
!! USE cri_mosaic_8bin_aq_Rates
!~~~> Input variables
   REAL(kind=dp) :: T, Y(NVAR)
   REAL(kind=dp) :: RCONST(NREACT)
   REAL(kind=dp) :: FIX(NFIX)
!~~~> Output variables
   REAL(kind=dp) :: Ydot(NVAR)
   INTEGER :: Nfun


!~~~> Local variables
!!   REAL(kind=dp) :: Told

!!   Told = TIME
!!   TIME = T
!!   CALL Update_SUN()
!!   CALL Update_RCONST()
   CALL cri_mosaic_8bin_aq_Fun( Y, FIX, RCONST, Ydot )
!!   TIME = Told

   Nfun = Nfun+1

END SUBROUTINE  cri_mosaic_8bin_aq_FunTemplate


!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE  cri_mosaic_8bin_aq_JacTemplate( T, Y, Jcb, FIX, Njac, RCONST )
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!  Template for the ODE Jacobian call.
!  Updates the rate coefficients (and possibly the fixed species) at each call
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 USE cri_mosaic_8bin_aq_Parameters
 !!USE cri_mosaic_8bin_aq_Global
 USE cri_mosaic_8bin_aq_Jacobian
!! USE cri_mosaic_8bin_aq_LinearAlgebra
!! USE cri_mosaic_8bin_aq_Rates
!~~~> Input variables
    REAL(kind=dp) :: T, Y(NVAR)
    REAL(kind=dp) :: FIX(NFIX)
    REAL(kind=dp) :: RCONST(NREACT)

    INTEGER :: Njac

!~~~> Output variables
#ifdef FULL_ALGEBRA    
    REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR)
#else
    REAL(kind=dp) :: Jcb(LU_NONZERO)
#endif   
!~~~> Local variables
    REAL(kind=dp) :: Told
#ifdef FULL_ALGEBRA    
    INTEGER :: i, j
#endif   

!!    Told = TIME
!!    TIME = T
!!    CALL Update_SUN()
!!    CALL Update_RCONST()
#ifdef FULL_ALGEBRA    
    CALL cri_mosaic_8bin_aq_Jac_SP(Y, FIX, RCONST, JV)
    DO j=1,NVAR
      DO i=1,NVAR
         Jcb(i,j) = 0.0d0
      END DO
    END DO
    DO i=1,LU_NONZERO
       Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i)
    END DO
#else
    CALL cri_mosaic_8bin_aq_Jac_SP( Y, FIX, RCONST, Jcb )
#endif   
!!    TIME = Told

    Njac = Njac+1

END SUBROUTINE  cri_mosaic_8bin_aq_JacTemplate

!!!END MODULE cri_mosaic_8bin_aq_Integrator
! End of INTEGRATE function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! cri_mosaic_8bin_aq_Fun - time derivatives of variables - Agregate form
!   Arguments :
!      V         - Concentrations of variable species (local)
!      F         - Concentrations of fixed species (local)
!      RCT       - Rate constants (local)
!      Vdot      - Time derivative of variable species concentrations
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE cri_mosaic_8bin_aq_Fun ( V, F, RCT, Vdot )

! V - Concentrations of variable species (local)
  REAL(kind=dp) :: V(NVAR)
! F - Concentrations of fixed species (local)
  REAL(kind=dp) :: F(NFIX)
! RCT - Rate constants (local)
  REAL(kind=dp) :: RCT(NREACT)
! Vdot - Time derivative of variable species concentrations
  REAL(kind=dp) :: Vdot(NVAR)


! Local variables
! A - Rate for each equation
  REAL(kind=dp) :: A(NREACT)

! Computation of equation rates
  A(1) = RCT(1)*V(223)
  A(2) = RCT(2)*V(223)
  A(3) = RCT(3)*V(107)
  A(4) = RCT(4)*V(232)
  A(5) = RCT(5)*V(230)
  A(6) = RCT(6)*V(230)
  A(7) = RCT(7)*V(41)
  A(8) = RCT(8)*V(192)
  A(9) = RCT(9)*V(207)
  A(10) = RCT(10)*V(207)
  A(11) = RCT(11)*V(233)
  A(12) = RCT(12)*V(227)
  A(13) = RCT(13)*V(195)
  A(14) = RCT(14)*V(33)
  A(15) = RCT(15)*V(138)
  A(16) = RCT(16)*V(132)
  A(17) = RCT(17)*V(141)
  A(18) = RCT(18)*V(179)
  A(19) = RCT(19)*V(140)
  A(20) = RCT(20)*V(168)
  A(21) = RCT(21)*V(181)
  A(22) = RCT(22)*V(199)
  A(23) = RCT(23)*V(203)
  A(24) = RCT(24)*V(151)
  A(25) = RCT(25)*V(190)
  A(26) = RCT(26)*V(147)
  A(27) = RCT(27)*V(45)
  A(28) = RCT(28)*V(38)
  A(29) = RCT(29)*V(191)
  A(30) = RCT(30)*V(152)
  A(31) = RCT(31)*V(163)
  A(32) = RCT(32)*V(155)
  A(33) = RCT(33)*V(183)
  A(34) = RCT(34)*V(170)
  A(35) = RCT(35)*V(166)
  A(36) = RCT(36)*V(160)
  A(37) = RCT(37)*V(90)
  A(38) = RCT(38)*V(91)
  A(39) = RCT(39)*V(94)
  A(40) = RCT(40)*V(84)
  A(41) = RCT(41)*V(135)
  A(42) = RCT(42)*V(135)
  A(43) = RCT(43)*V(79)
  A(44) = RCT(44)*V(98)
  A(45) = RCT(45)*V(119)
  A(46) = RCT(46)*V(121)
  A(47) = RCT(47)*V(139)
  A(48) = RCT(48)*V(100)
  A(49) = RCT(49)*V(93)
  A(50) = RCT(50)*V(73)
  A(51) = RCT(51)*V(56)
  A(52) = RCT(52)*V(74)
  A(53) = RCT(53)*V(175)
  A(54) = RCT(54)*V(175)
  A(55) = RCT(55)*V(80)
  A(56) = RCT(56)*V(57)
  A(57) = RCT(57)*V(76)
  A(58) = RCT(58)*V(62)
  A(59) = RCT(59)*V(85)
  A(60) = RCT(60)*V(58)
  A(61) = RCT(61)*V(59)
  A(62) = RCT(62)*V(116)
  A(63) = RCT(63)*V(81)
  A(64) = RCT(64)*V(114)
  A(65) = RCT(65)*V(114)
  A(66) = RCT(66)*V(115)
  A(67) = RCT(67)*V(86)
  A(68) = RCT(68)*V(65)
  A(69) = RCT(69)*V(88)
  A(70) = RCT(70)*V(101)
  A(71) = RCT(71)*V(118)
  A(72) = RCT(72)*V(82)
  A(73) = RCT(73)*V(137)
  A(74) = RCT(74)*V(130)
  A(75) = RCT(75)*V(60)
  A(76) = RCT(76)*V(83)
  A(77) = RCT(77)*V(61)
  A(78) = RCT(78)*V(89)
  A(79) = RCT(79)*V(92)
  A(80) = RCT(80)*V(131)
  A(81) = RCT(81)*V(68)
  A(82) = RCT(82)*V(70)
  A(83) = RCT(83)*V(69)
  A(84) = RCT(84)*V(71)
  A(85) = RCT(85)*V(72)
  A(86) = RCT(86)*V(95)
  A(87) = RCT(87)*V(124)
  A(88) = RCT(88)*V(96)
  A(89) = RCT(89)*V(125)
  A(90) = RCT(90)*V(75)
  A(91) = RCT(91)*V(103)
  A(92) = RCT(92)*V(126)
  A(93) = RCT(93)*V(155)
  A(94) = RCT(94)*V(183)
  A(95) = RCT(95)*V(170)
  A(96) = RCT(96)*V(173)*F(2)
  A(97) = RCT(97)*V(35)
  A(98) = RCT(98)*V(173)*V(223)
  A(99) = RCT(99)*V(173)*V(229)
  A(100) = RCT(100)*V(173)*V(232)
  A(101) = RCT(101)*V(173)*V(232)
  A(102) = RCT(102)*V(8)*F(2)
  A(103) = RCT(103)*V(223)*V(229)
  A(104) = RCT(104)*V(223)*V(232)
  A(105) = RCT(105)*V(229)*V(229)*F(2)
  A(106) = RCT(106)*V(229)*V(230)
  A(107) = RCT(107)*V(230)*V(232)
  A(108) = RCT(108)*V(230)*V(232)
  A(109) = RCT(109)*V(32)
  A(110) = RCT(110)*V(8)*F(1)
  A(111) = RCT(111)*V(223)*V(231)
  A(112) = RCT(112)*V(231)*F(2)
  A(113) = RCT(113)*V(187)*V(231)
  A(114) = RCT(114)*V(107)*V(231)
  A(115) = RCT(115)*V(223)*V(228)
  A(116) = RCT(116)*V(228)*V(231)
  A(117) = RCT(117)*V(228)*V(228)
  A(118) = RCT(118)*V(228)*V(228)*F(1)
  A(119) = RCT(119)*V(229)*V(231)
  A(120) = RCT(120)*V(231)*V(232)
  A(121) = RCT(121)*V(230)*V(231)
  A(122) = RCT(122)*V(228)*V(229)
  A(123) = RCT(123)*V(228)*V(232)
  A(124) = RCT(124)*V(63)
  A(125) = RCT(125)*V(63)*V(231)
  A(126) = RCT(126)*V(228)*V(230)
  A(127) = RCT(127)*V(41)*V(231)
  A(128) = RCT(128)*V(192)*V(231)
  A(129) = RCT(129)*V(127)*V(173)
  A(130) = RCT(130)*V(127)*V(231)
  A(131) = RCT(131)*V(10)*F(2)
  A(132) = RCT(132)*V(5)*F(1)*F(1)
  A(133) = RCT(133)*V(20)*V(231)
  A(134) = RCT(134)*V(9)*V(231)
  A(135) = RCT(135)*V(26)*V(231)
  A(136) = RCT(136)*V(26)*V(231)
  A(137) = RCT(137)*V(11)*V(231)
  A(138) = RCT(138)*V(154)*V(231)
  A(139) = RCT(139)*V(150)*V(231)
  A(140) = RCT(140)*V(161)*V(231)
  A(141) = RCT(141)*V(154)*V(230)
  A(142) = RCT(142)*V(150)*V(230)
  A(143) = RCT(143)*V(161)*V(230)
  A(144) = RCT(144)*V(154)*V(223)
  A(145) = RCT(145)*V(154)*V(223)
  A(146) = RCT(146)*V(150)*V(223)
  A(147) = RCT(147)*V(150)*V(223)
  A(148) = RCT(148)*V(161)*V(223)
  A(149) = RCT(149)*V(161)*V(223)
  A(150) = RCT(150)*V(177)*V(231)
  A(151) = RCT(151)*V(177)*V(230)
  A(152) = RCT(152)*V(177)*V(223)
  A(153) = RCT(153)*V(177)*V(223)
  A(154) = RCT(154)*V(165)*V(231)
  A(155) = RCT(155)*V(165)*V(230)
  A(156) = RCT(156)*V(165)*V(223)
  A(157) = RCT(157)*V(165)*V(223)
  A(158) = RCT(158)*V(165)*V(223)
  A(159) = RCT(159)*V(159)*V(231)
  A(160) = RCT(160)*V(159)*V(230)
  A(161) = RCT(161)*V(159)*V(223)
  A(162) = RCT(162)*V(159)*V(223)
  A(163) = RCT(163)*V(159)*V(223)
  A(164) = RCT(164)*V(159)*V(223)
  A(165) = RCT(165)*V(36)*V(231)
  A(166) = RCT(166)*V(36)*V(231)
  A(167) = RCT(167)*V(30)*V(231)
  A(168) = RCT(168)*V(30)*V(231)
  A(169) = RCT(169)*V(31)*V(231)
  A(170) = RCT(170)*V(31)*V(231)
  A(171) = RCT(171)*V(27)*V(231)
  A(172) = RCT(172)*V(27)*V(231)
  A(173) = RCT(173)*V(207)*V(231)
  A(174) = RCT(174)*V(231)*V(233)
  A(175) = RCT(175)*V(227)*V(231)
  A(176) = RCT(176)*V(207)*V(230)
  A(177) = RCT(177)*V(230)*V(233)
  A(178) = RCT(178)*V(227)*V(230)
  A(179) = RCT(179)*V(195)*V(231)
  A(180) = RCT(180)*V(33)*V(231)
  A(181) = RCT(181)*V(37)*V(231)
  A(182) = RCT(182)*V(43)*V(231)
  A(183) = RCT(183)*V(43)*V(231)
  A(184) = RCT(184)*V(51)*V(231)
  A(185) = RCT(185)*V(51)*V(231)
  A(186) = RCT(186)*V(44)*V(231)
  A(187) = RCT(187)*V(44)*V(231)
  A(188) = RCT(188)*V(46)*V(231)
  A(189) = RCT(189)*V(52)*V(231)
  A(190) = RCT(190)*V(210)*V(229)
  A(191) = RCT(191)*V(214)*V(229)
  A(192) = RCT(192)*V(216)*V(229)
  A(193) = RCT(193)*V(156)*V(229)
  A(194) = RCT(194)*V(226)*V(229)
  A(195) = RCT(195)*V(226)*V(229)
  A(196) = RCT(196)*V(224)*V(229)
  A(197) = RCT(197)*V(206)*V(229)
  A(198) = RCT(198)*V(149)*V(229)
  A(199) = RCT(199)*V(178)*V(229)
  A(200) = RCT(200)*V(164)*V(229)
  A(201) = RCT(201)*V(182)*V(229)
  A(202) = RCT(202)*V(182)*V(229)
  A(203) = RCT(203)*V(189)*V(229)
  A(204) = RCT(204)*V(196)*V(229)
  A(205) = RCT(205)*V(198)*V(229)
  A(206) = RCT(206)*V(198)*V(229)
  A(207) = RCT(207)*V(218)*V(229)
  A(208) = RCT(208)*V(213)*V(229)
  A(209) = RCT(209)*V(209)*V(229)
  A(210) = RCT(210)*V(174)*V(229)
  A(211) = RCT(211)*V(225)*V(229)
  A(212) = RCT(212)*V(202)*V(229)
  A(213) = RCT(213)*V(219)*V(229)
  A(214) = RCT(214)*V(204)*V(229)
  A(215) = RCT(215)*V(188)*V(229)
  A(216) = RCT(216)*V(221)*V(229)
  A(217) = RCT(217)*V(208)*V(229)
  A(218) = RCT(218)*V(217)*V(229)
  A(219) = RCT(219)*V(220)*V(229)
  A(220) = RCT(220)*V(180)*V(229)
  A(221) = RCT(221)*V(180)*V(229)
  A(222) = RCT(222)*V(201)*V(229)
  A(223) = RCT(223)*V(201)*V(229)
  A(224) = RCT(224)*V(200)*V(229)
  A(225) = RCT(225)*V(200)*V(229)
  A(226) = RCT(226)*V(200)*V(229)
  A(227) = RCT(227)*V(148)*V(229)
  A(228) = RCT(228)*V(167)*V(229)
  A(229) = RCT(229)*V(145)*V(229)
  A(230) = RCT(230)*V(144)*V(229)
  A(231) = RCT(231)*V(186)*V(229)
  A(232) = RCT(232)*V(193)*V(229)
  A(233) = RCT(233)*V(193)*V(229)
  A(234) = RCT(234)*V(146)*V(229)
  A(235) = RCT(235)*V(222)*V(229)
  A(236) = RCT(236)*V(212)*V(229)
  A(237) = RCT(237)*V(158)*V(229)
  A(238) = RCT(238)*V(205)*V(229)
  A(239) = RCT(239)*V(194)*V(229)
  A(240) = RCT(240)*V(184)*V(229)
  A(241) = RCT(241)*V(185)*V(229)
  A(242) = RCT(242)*V(185)*V(229)
  A(243) = RCT(243)*V(169)*V(229)
  A(244) = RCT(244)*V(215)*V(229)
  A(245) = RCT(245)*V(215)*V(229)
  A(246) = RCT(246)*V(211)*V(229)
  A(247) = RCT(247)*V(210)*V(229)
  A(248) = RCT(248)*V(214)*V(229)
  A(249) = RCT(249)*V(216)*V(229)
  A(250) = RCT(250)*V(156)*V(229)
  A(251) = RCT(251)*V(226)*V(229)
  A(252) = RCT(252)*V(224)*V(229)
  A(253) = RCT(253)*V(206)*V(229)
  A(254) = RCT(254)*V(198)*V(229)
  A(255) = RCT(255)*V(218)*V(229)
  A(256) = RCT(256)*V(213)*V(229)
  A(257) = RCT(257)*V(209)*V(229)
  A(258) = RCT(258)*V(174)*V(229)
  A(259) = RCT(259)*V(225)*V(229)
  A(260) = RCT(260)*V(202)*V(229)
  A(261) = RCT(261)*V(180)*V(229)
  A(262) = RCT(262)*V(164)*V(229)
  A(263) = RCT(263)*V(182)*V(229)
  A(264) = RCT(264)*V(189)*V(229)
  A(265) = RCT(265)*V(196)*V(229)
  A(266) = RCT(266)*V(193)*V(229)
  A(267) = RCT(267)*V(212)*V(229)
  A(268) = RCT(268)*V(185)*V(229)
  A(269) = RCT(269)*V(215)*V(229)
  A(270) = RCT(270)*V(211)*V(229)
  A(271) = RCT(271)*V(210)*V(230)
  A(272) = RCT(272)*V(214)*V(230)
  A(273) = RCT(273)*V(216)*V(230)
  A(274) = RCT(274)*V(156)*V(230)
  A(275) = RCT(275)*V(226)*V(230)
  A(276) = RCT(276)*V(226)*V(230)
  A(277) = RCT(277)*V(224)*V(230)
  A(278) = RCT(278)*V(206)*V(230)
  A(279) = RCT(279)*V(149)*V(230)
  A(280) = RCT(280)*V(178)*V(230)
  A(281) = RCT(281)*V(164)*V(230)
  A(282) = RCT(282)*V(182)*V(230)
  A(283) = RCT(283)*V(182)*V(230)
  A(284) = RCT(284)*V(189)*V(230)
  A(285) = RCT(285)*V(196)*V(230)
  A(286) = RCT(286)*V(198)*V(230)
  A(287) = RCT(287)*V(198)*V(230)
  A(288) = RCT(288)*V(218)*V(230)
  A(289) = RCT(289)*V(213)*V(230)
  A(290) = RCT(290)*V(209)*V(230)
  A(291) = RCT(291)*V(174)*V(230)
  A(292) = RCT(292)*V(225)*V(230)
  A(293) = RCT(293)*V(202)*V(230)
  A(294) = RCT(294)*V(219)*V(230)
  A(295) = RCT(295)*V(204)*V(230)
  A(296) = RCT(296)*V(188)*V(230)
  A(297) = RCT(297)*V(221)*V(230)
  A(298) = RCT(298)*V(208)*V(230)
  A(299) = RCT(299)*V(217)*V(230)
  A(300) = RCT(300)*V(220)*V(230)
  A(301) = RCT(301)*V(180)*V(230)
  A(302) = RCT(302)*V(180)*V(230)
  A(303) = RCT(303)*V(201)*V(230)
  A(304) = RCT(304)*V(201)*V(230)
  A(305) = RCT(305)*V(200)*V(230)
  A(306) = RCT(306)*V(200)*V(230)
  A(307) = RCT(307)*V(200)*V(230)
  A(308) = RCT(308)*V(148)*V(230)
  A(309) = RCT(309)*V(167)*V(230)
  A(310) = RCT(310)*V(145)*V(230)
  A(311) = RCT(311)*V(144)*V(230)
  A(312) = RCT(312)*V(186)*V(230)
  A(313) = RCT(313)*V(193)*V(230)
  A(314) = RCT(314)*V(146)*V(230)
  A(315) = RCT(315)*V(222)*V(230)
  A(316) = RCT(316)*V(212)*V(230)
  A(317) = RCT(317)*V(158)*V(230)
  A(318) = RCT(318)*V(205)*V(230)
  A(319) = RCT(319)*V(194)*V(230)
  A(320) = RCT(320)*V(184)*V(230)
  A(321) = RCT(321)*V(185)*V(230)
  A(322) = RCT(322)*V(215)*V(230)
  A(323) = RCT(323)*V(211)*V(230)
  A(324) = RCT(324)*V(169)*V(230)
  A(325) = RCT(325)*V(210)*V(228)
  A(326) = RCT(326)*V(214)*V(228)
  A(327) = RCT(327)*V(216)*V(228)
  A(328) = RCT(328)*V(156)*V(228)
  A(329) = RCT(329)*V(226)*V(228)
  A(330) = RCT(330)*V(224)*V(228)
  A(331) = RCT(331)*V(206)*V(228)
  A(332) = RCT(332)*V(149)*V(228)
  A(333) = RCT(333)*V(178)*V(228)
  A(334) = RCT(334)*V(164)*V(228)
  A(335) = RCT(335)*V(182)*V(228)
  A(336) = RCT(336)*V(189)*V(228)
  A(337) = RCT(337)*V(196)*V(228)
  A(338) = RCT(338)*V(198)*V(228)
  A(339) = RCT(339)*V(218)*V(228)
  A(340) = RCT(340)*V(213)*V(228)
  A(341) = RCT(341)*V(209)*V(228)
  A(342) = RCT(342)*V(174)*V(228)
  A(343) = RCT(343)*V(225)*V(228)
  A(344) = RCT(344)*V(202)*V(228)
  A(345) = RCT(345)*V(219)*V(228)
  A(346) = RCT(346)*V(204)*V(228)
  A(347) = RCT(347)*V(188)*V(228)
  A(348) = RCT(348)*V(221)*V(228)
  A(349) = RCT(349)*V(208)*V(228)
  A(350) = RCT(350)*V(217)*V(228)
  A(351) = RCT(351)*V(220)*V(228)
  A(352) = RCT(352)*V(180)*V(228)
  A(353) = RCT(353)*V(201)*V(228)
  A(354) = RCT(354)*V(200)*V(228)
  A(355) = RCT(355)*V(148)*V(228)
  A(356) = RCT(356)*V(167)*V(228)
  A(357) = RCT(357)*V(145)*V(228)
  A(358) = RCT(358)*V(144)*V(228)
  A(359) = RCT(359)*V(186)*V(228)
  A(360) = RCT(360)*V(193)*V(228)
  A(361) = RCT(361)*V(146)*V(228)
  A(362) = RCT(362)*V(222)*V(228)
  A(363) = RCT(363)*V(212)*V(228)
  A(364) = RCT(364)*V(158)*V(228)
  A(365) = RCT(365)*V(205)*V(228)
  A(366) = RCT(366)*V(194)*V(228)
  A(367) = RCT(367)*V(184)*V(228)
  A(368) = RCT(368)*V(185)*V(228)
  A(369) = RCT(369)*V(215)*V(228)
  A(370) = RCT(370)*V(211)*V(228)
  A(371) = RCT(371)*V(169)*V(228)
  A(372) = RCT(372)*V(210)
  A(373) = RCT(373)*V(210)
  A(374) = RCT(374)*V(210)
  A(375) = RCT(375)*V(214)
  A(376) = RCT(376)*V(214)
  A(377) = RCT(377)*V(214)
  A(378) = RCT(378)*V(216)
  A(379) = RCT(379)*V(216)
  A(380) = RCT(380)*V(216)
  A(381) = RCT(381)*V(156)
  A(382) = RCT(382)*V(156)
  A(383) = RCT(383)*V(156)
  A(384) = RCT(384)*V(226)
  A(385) = RCT(385)*V(226)
  A(386) = RCT(386)*V(149)
  A(387) = RCT(387)*V(178)
  A(388) = RCT(388)*V(164)
  A(389) = RCT(389)*V(182)
  A(390) = RCT(390)*V(182)
  A(391) = RCT(391)*V(189)
  A(392) = RCT(392)*V(196)
  A(393) = RCT(393)*V(224)
  A(394) = RCT(394)*V(206)
  A(395) = RCT(395)*V(198)
  A(396) = RCT(396)*V(198)
  A(397) = RCT(397)*V(218)
  A(398) = RCT(398)*V(213)
  A(399) = RCT(399)*V(209)
  A(400) = RCT(400)*V(174)
  A(401) = RCT(401)*V(225)
  A(402) = RCT(402)*V(202)
  A(403) = RCT(403)*V(219)
  A(404) = RCT(404)*V(204)
  A(405) = RCT(405)*V(188)
  A(406) = RCT(406)*V(221)
  A(407) = RCT(407)*V(208)
  A(408) = RCT(408)*V(217)
  A(409) = RCT(409)*V(220)
  A(410) = RCT(410)*V(180)
  A(411) = RCT(411)*V(180)
  A(412) = RCT(412)*V(201)
  A(413) = RCT(413)*V(201)
  A(414) = RCT(414)*V(200)
  A(415) = RCT(415)*V(200)
  A(416) = RCT(416)*V(200)
  A(417) = RCT(417)*V(148)
  A(418) = RCT(418)*V(167)
  A(419) = RCT(419)*V(145)
  A(420) = RCT(420)*V(144)
  A(421) = RCT(421)*V(186)
  A(422) = RCT(422)*V(193)
  A(423) = RCT(423)*V(146)
  A(424) = RCT(424)*V(222)
  A(425) = RCT(425)*V(212)
  A(426) = RCT(426)*V(158)
  A(427) = RCT(427)*V(205)
  A(428) = RCT(428)*V(194)
  A(429) = RCT(429)*V(184)
  A(430) = RCT(430)*V(185)
  A(431) = RCT(431)*V(215)
  A(432) = RCT(432)*V(211)
  A(433) = RCT(433)*V(169)
  A(434) = RCT(434)*V(138)*V(231)
  A(435) = RCT(435)*V(132)*V(231)
  A(436) = RCT(436)*V(141)*V(231)
  A(437) = RCT(437)*V(179)*V(231)
  A(438) = RCT(438)*V(140)*V(231)
  A(439) = RCT(439)*V(168)*V(231)
  A(440) = RCT(440)*V(181)*V(231)
  A(441) = RCT(441)*V(203)*V(231)
  A(442) = RCT(442)*V(203)*V(230)
  A(443) = RCT(443)*V(203)*V(223)
  A(444) = RCT(444)*V(203)*V(223)
  A(445) = RCT(445)*V(199)*V(231)
  A(446) = RCT(446)*V(199)*V(230)
  A(447) = RCT(447)*V(151)*V(231)
  A(448) = RCT(448)*V(190)*V(231)
  A(449) = RCT(449)*V(147)*V(231)
  A(450) = RCT(450)*V(45)*V(231)
  A(451) = RCT(451)*V(38)*V(231)
  A(452) = RCT(452)*V(39)*V(231)
  A(453) = RCT(453)*V(191)*V(231)
  A(454) = RCT(454)*V(191)*V(230)
  A(455) = RCT(455)*V(191)*V(223)
  A(456) = RCT(456)*V(191)*V(223)
  A(457) = RCT(457)*V(152)*V(231)
  A(458) = RCT(458)*V(163)*V(231)
  A(459) = RCT(459)*V(155)*V(231)
  A(460) = RCT(460)*V(183)*V(231)
  A(461) = RCT(461)*V(170)*V(231)
  A(462) = RCT(462)*V(166)*V(231)
  A(463) = RCT(463)*V(34)*V(231)
  A(464) = RCT(464)*V(160)*V(231)
  A(465) = RCT(465)*V(166)*V(230)
  A(466) = RCT(466)*V(160)*V(230)
  A(467) = RCT(467)*V(40)*V(231)
  A(468) = RCT(468)*V(133)*V(231)
  A(469) = RCT(469)*V(108)*V(231)
  A(470) = RCT(470)*V(90)*V(231)
  A(471) = RCT(471)*V(91)*V(231)
  A(472) = RCT(472)*V(94)*V(231)
  A(473) = RCT(473)*V(84)*V(231)
  A(474) = RCT(474)*V(135)*V(231)
  A(475) = RCT(475)*V(79)*V(231)
  A(476) = RCT(476)*V(98)*V(231)
  A(477) = RCT(477)*V(66)*V(231)
  A(478) = RCT(478)*V(54)*V(231)
  A(479) = RCT(479)*V(55)*V(231)
  A(480) = RCT(480)*V(104)*V(231)
  A(481) = RCT(481)*V(105)*V(231)
  A(482) = RCT(482)*V(64)*V(231)
  A(483) = RCT(483)*V(119)*V(231)
  A(484) = RCT(484)*V(121)*V(231)
  A(485) = RCT(485)*V(139)*V(231)
  A(486) = RCT(486)*V(67)*V(231)
  A(487) = RCT(487)*V(97)*V(231)
  A(488) = RCT(488)*V(99)*V(231)
  A(489) = RCT(489)*V(100)*V(231)
  A(490) = RCT(490)*V(102)*V(231)
  A(491) = RCT(491)*V(47)*V(231)
  A(492) = RCT(492)*V(47)*V(230)
  A(493) = RCT(493)*V(48)*V(232)
  A(494) = RCT(494)*V(120)*V(231)
  A(495) = RCT(495)*V(120)*V(230)
  A(496) = RCT(496)*V(49)*V(231)
  A(497) = RCT(497)*V(49)*V(230)
  A(498) = RCT(498)*V(50)*V(232)
  A(499) = RCT(499)*V(122)*V(231)
  A(500) = RCT(500)*V(122)*V(230)
  A(501) = RCT(501)*V(93)*V(231)
  A(502) = RCT(502)*V(93)*V(231)
  A(503) = RCT(503)*V(73)*V(231)
  A(504) = RCT(504)*V(56)*V(231)
  A(505) = RCT(505)*V(74)*V(231)
  A(506) = RCT(506)*V(175)*V(231)
  A(507) = RCT(507)*V(80)*V(231)
  A(508) = RCT(508)*V(57)*V(231)
  A(509) = RCT(509)*V(76)*V(231)
  A(510) = RCT(510)*V(62)*V(231)
  A(511) = RCT(511)*V(85)*V(231)
  A(512) = RCT(512)*V(58)*V(231)
  A(513) = RCT(513)*V(59)*V(231)
  A(514) = RCT(514)*V(116)*V(231)
  A(515) = RCT(515)*V(81)*V(231)
  A(516) = RCT(516)*V(114)*V(231)
  A(517) = RCT(517)*V(115)*V(231)
  A(518) = RCT(518)*V(86)*V(231)
  A(519) = RCT(519)*V(65)*V(231)
  A(520) = RCT(520)*V(88)*V(231)
  A(521) = RCT(521)*V(101)*V(231)
  A(522) = RCT(522)*V(118)*V(231)
  A(523) = RCT(523)*V(82)*V(231)
  A(524) = RCT(524)*V(137)*V(231)
  A(525) = RCT(525)*V(130)*V(231)
  A(526) = RCT(526)*V(60)*V(231)
  A(527) = RCT(527)*V(83)*V(231)
  A(528) = RCT(528)*V(61)*V(231)
  A(529) = RCT(529)*V(89)*V(231)
  A(530) = RCT(530)*V(92)*V(231)
  A(531) = RCT(531)*V(131)*V(231)
  A(532) = RCT(532)*V(68)*V(231)
  A(533) = RCT(533)*V(69)*V(231)
  A(534) = RCT(534)*V(70)*V(231)
  A(535) = RCT(535)*V(71)*V(231)
  A(536) = RCT(536)*V(72)*V(231)
  A(537) = RCT(537)*V(95)*V(231)
  A(538) = RCT(538)*V(124)*V(231)
  A(539) = RCT(539)*V(96)*V(231)
  A(540) = RCT(540)*V(125)*V(231)
  A(541) = RCT(541)*V(75)*V(231)
  A(542) = RCT(542)*V(103)*V(231)
  A(543) = RCT(543)*V(126)*V(231)
  A(544) = RCT(544)*V(219)*V(232)
  A(545) = RCT(545)*V(129)
  A(546) = RCT(546)*V(204)*V(232)
  A(547) = RCT(547)*V(112)
  A(548) = RCT(548)*V(188)*V(232)
  A(549) = RCT(549)*V(113)
  A(550) = RCT(550)*V(129)*V(231)
  A(551) = RCT(551)*V(112)*V(231)
  A(552) = RCT(552)*V(113)*V(231)
  A(553) = RCT(553)*V(201)*V(232)
  A(554) = RCT(554)*V(87)
  A(555) = RCT(555)*V(200)*V(232)
  A(556) = RCT(556)*V(117)
  A(557) = RCT(557)*V(117)*V(231)
  A(558) = RCT(558)*V(87)*V(231)
  A(559) = RCT(559)*V(222)*V(232)
  A(560) = RCT(560)*V(123)
  A(561) = RCT(561)*V(123)*V(231)
  A(562) = RCT(562)*V(77)*V(231)
  A(563) = RCT(563)*V(155)*V(231)
  A(564) = RCT(564)*V(183)*V(231)
  A(565) = RCT(565)*V(170)*V(231)
  A(566) = RCT(566)*V(12)*V(231)
  A(567) = RCT(567)*V(13)*V(231)
  A(568) = RCT(568)*V(14)*V(231)
  A(569) = RCT(569)*V(15)*V(231)
  A(570) = RCT(570)*V(19)*V(231)
  A(571) = RCT(571)*V(18)*V(231)
  A(572) = RCT(572)*V(16)*V(231)
  A(573) = RCT(573)*V(17)*V(231)
  A(574) = RCT(574)*V(210)*V(232)
  A(575) = RCT(575)*V(78)
  A(576) = RCT(576)*V(136)
  A(577) = RCT(577)*V(142)
  A(578) = RCT(578)*V(134)
  A(579) = RCT(579)*V(128)
  A(580) = RCT(580)*V(106)
  A(581) = RCT(581)*V(153)
  A(582) = RCT(582)*V(153)
  A(583) = RCT(583)*V(205)*V(229)
  A(584) = RCT(584)*V(162)*V(231)
  A(585) = RCT(585)*V(78)*V(231)
  A(586) = RCT(586)*V(136)*V(231)
  A(587) = RCT(587)*V(136)*V(230)
  A(588) = RCT(588)*V(28)*V(231)
  A(589) = RCT(589)*V(28)*V(231)
  A(590) = RCT(590)*V(29)*V(231)
  A(591) = RCT(591)*V(29)*V(231)
  A(592) = RCT(592)*V(21)*V(231)
  A(593) = RCT(593)*V(22)*V(231)
  A(594) = RCT(594)*V(23)*V(231)
  A(595) = RCT(595)*V(24)*V(231)
  A(596) = RCT(596)*V(157)*V(229)
  A(597) = RCT(597)*V(197)*V(229)
  A(598) = RCT(598)*V(157)*V(229)
  A(599) = RCT(599)*V(197)*V(229)
  A(600) = RCT(600)*V(157)*V(230)
  A(601) = RCT(601)*V(197)*V(230)
  A(602) = RCT(602)*V(157)*V(228)
  A(603) = RCT(603)*V(197)*V(228)
  A(604) = RCT(604)*V(157)
  A(605) = RCT(605)*V(197)
  A(606) = RCT(606)*V(142)*V(231)
  A(607) = RCT(607)*V(134)*V(231)
  A(608) = RCT(608)*V(25)*V(231)
  A(609) = RCT(609)*V(176)*V(229)
  A(610) = RCT(610)*V(176)*V(229)
  A(611) = RCT(611)*V(176)*V(230)
  A(612) = RCT(612)*V(176)*V(228)
  A(613) = RCT(613)*V(176)
  A(614) = RCT(614)*V(128)*V(231)
  A(615) = RCT(615)*V(106)*V(231)
  A(616) = RCT(616)*V(153)*V(231)
  A(617) = RCT(617)*V(153)*V(231)
  A(621) = RCT(621)*V(109)*V(231)
  A(622) = RCT(622)*V(109)*V(231)
  A(623) = RCT(623)*V(109)*V(230)
  A(624) = RCT(624)*V(111)*V(229)
  A(625) = RCT(625)*V(111)*V(111)
  A(626) = RCT(626)*V(143)*V(223)
  A(627) = RCT(627)*V(143)*V(232)
  A(628) = RCT(628)*V(172)*V(232)
  A(629) = RCT(629)*V(172)*V(223)
  A(630) = RCT(630)*V(171)
  A(631) = RCT(631)*V(171)*V(232)
  A(632) = RCT(632)*V(171)*V(223)
  A(633) = RCT(633)*V(53)*V(228)
  A(634) = RCT(634)*V(53)
  A(635) = RCT(635)*V(42)*V(231)
  A(636) = RCT(636)*V(110)*V(231)
  A(637) = RCT(637)*V(110)*V(230)

! Aggregate function
  Vdot(1) = 0
  Vdot(2) = 0
  Vdot(3) = 0
  Vdot(4) = A(132)+A(634)
  Vdot(5) = A(129)+A(131)-A(132)
  Vdot(6) = A(633)+0.05*A(636)
  Vdot(7) = 0.05*A(635)
  Vdot(8) = A(1)-A(102)-A(110)
  Vdot(9) = -A(134)
  Vdot(10) = A(130)-A(131)
  Vdot(11) = -A(137)
  Vdot(12) = -A(566)
  Vdot(13) = -A(567)
  Vdot(14) = -A(568)
  Vdot(15) = -A(569)
  Vdot(16) = -A(572)
  Vdot(17) = -A(573)
  Vdot(18) = -A(571)
  Vdot(19) = -A(570)
  Vdot(20) = -A(133)
  Vdot(21) = -A(592)
  Vdot(22) = -A(593)
  Vdot(23) = -A(594)
  Vdot(24) = -A(595)
  Vdot(25) = -A(608)
  Vdot(26) = -A(135)-A(136)
  Vdot(27) = -A(171)-A(172)
  Vdot(28) = -A(588)-A(589)
  Vdot(29) = -A(590)-A(591)
  Vdot(30) = -A(167)-A(168)
  Vdot(31) = -A(169)-A(170)
  Vdot(32) = A(108)-A(109)
  Vdot(33) = -A(14)-A(180)
  Vdot(34) = -A(463)+A(487)
  Vdot(35) = -A(97)+A(574)
  Vdot(36) = -A(165)-A(166)
  Vdot(37) = -A(181)+A(374)
  Vdot(38) = -A(28)-A(451)+A(515)
  Vdot(39) = -A(452)+A(490)+A(542)
  Vdot(40) = A(158)-A(467)
  Vdot(41) = -A(7)+A(119)-A(127)
  Vdot(42) = A(622)-A(635)
  Vdot(43) = -A(182)-A(183)+A(377)
  Vdot(44) = -A(186)-A(187)+A(383)
  Vdot(45) = -A(27)-A(450)+A(514)
  Vdot(46) = A(145)+A(153)+A(165)-A(188)
  Vdot(47) = A(168)-A(491)-A(492)
  Vdot(48) = A(491)+A(492)-A(493)
  Vdot(49) = A(170)-A(496)-A(497)
  Vdot(50) = A(496)+A(497)-A(498)
  Vdot(51) = -A(184)-A(185)+A(380)
  Vdot(52) = A(147)+A(149)-A(189)
  Vdot(53) = A(631)+A(632)-A(633)-A(634)
  Vdot(54) = A(255)-A(478)
  Vdot(55) = A(256)-A(479)
  Vdot(56) = -A(51)+A(327)-A(504)
  Vdot(57) = -A(56)+A(331)-A(508)
  Vdot(58) = -A(60)+A(348)-A(512)
  Vdot(59) = -A(61)+A(349)-A(513)
  Vdot(60) = -A(75)+A(355)-A(526)
  Vdot(61) = -A(77)+A(357)-A(528)
  Vdot(62) = -A(58)+A(346)-A(510)
  Vdot(63) = A(123)-A(124)-A(125)
  Vdot(64) = A(261)-A(482)
  Vdot(65) = -A(68)+A(358)-A(519)
  Vdot(66) = A(254)-A(477)
  Vdot(67) = A(266)-A(486)
  Vdot(68) = -A(81)+A(360)-A(532)
  Vdot(69) = -A(83)+A(362)-A(533)
  Vdot(70) = -A(82)+A(361)-A(534)
  Vdot(71) = -A(84)+A(363)-A(535)
  Vdot(72) = -A(85)+A(364)-A(536)
  Vdot(73) = -A(50)+A(326)-A(503)
  Vdot(74) = -A(52)+A(328)-A(505)
  Vdot(75) = -A(90)+A(369)-A(541)
  Vdot(76) = -A(57)+A(345)-A(509)
  Vdot(77) = A(93)+A(94)+A(95)-A(562)+A(563)+A(564)+A(565)+A(581)+A(617)
  Vdot(78) = -A(575)+A(584)-A(585)
  Vdot(79) = -A(43)+A(252)-A(475)
  Vdot(80) = -A(55)+A(330)+A(333)-A(507)
  Vdot(81) = -A(63)+A(351)-A(515)
  Vdot(82) = -A(72)+A(340)-A(523)
  Vdot(83) = -A(76)+A(356)-A(527)
  Vdot(84) = -A(40)+A(250)-A(473)
  Vdot(85) = -A(59)+A(347)-A(511)
  Vdot(86) = -A(67)+A(354)-A(518)
  Vdot(87) = A(553)-A(554)-A(558)
  Vdot(88) = -A(69)+A(359)-A(520)
  Vdot(89) = -A(78)+A(334)-A(529)
  Vdot(90) = -A(37)+A(247)-A(470)
  Vdot(91) = -A(38)+A(248)-A(471)
  Vdot(92) = -A(79)+A(335)-A(530)
  Vdot(93) = -A(49)+A(325)-A(501)-A(502)
  Vdot(94) = -A(39)+A(249)-A(472)
  Vdot(95) = -A(86)+A(365)-A(537)
  Vdot(96) = -A(88)+A(367)-A(539)
  Vdot(97) = A(267)-A(487)
  Vdot(98) = -A(44)+A(253)-A(476)
  Vdot(99) = A(268)-A(488)
  Vdot(100) = -A(48)+A(269)-A(489)
  Vdot(101) = -A(70)+A(338)-A(521)
  Vdot(102) = A(270)-A(490)
  Vdot(103) = -A(91)+A(370)-A(542)
  Vdot(104) = A(257)+A(259)-A(480)
  Vdot(105) = A(258)+A(260)-A(481)
  Vdot(106) = -A(580)+A(612)-A(615)
  Vdot(107) = -A(3)-A(114)+A(117)+A(118)+A(157)+A(162)+A(444)+A(456)
  Vdot(108) = A(48)+A(90)+A(163)+A(244)+A(322)+A(431)-A(469)+A(489)+A(541)
  Vdot(109) = -A(621)-A(622)-A(623)
  Vdot(110) = 0.95*A(635)-A(636)-A(637)
  Vdot(111) = A(621)+A(623)-A(624)-2*A(625)
  Vdot(112) = A(546)-A(547)-A(551)
  Vdot(113) = A(548)-A(549)-A(552)
  Vdot(114) = -A(64)-A(65)+A(352)-A(516)
  Vdot(115) = -A(66)+A(353)-A(517)
  Vdot(116) = -A(62)+A(350)-A(514)
  Vdot(117) = A(555)-A(556)-A(557)
  Vdot(118) = -A(71)+A(339)-A(522)
  Vdot(119) = -A(45)+A(262)-A(483)
  Vdot(120) = A(493)-A(494)-A(495)
  Vdot(121) = -A(46)+A(263)-A(484)
  Vdot(122) = A(498)-A(499)-A(500)
  Vdot(123) = A(559)-A(560)-A(561)
  Vdot(124) = -A(87)+A(366)-A(538)
  Vdot(125) = -A(89)+A(368)-A(540)
  Vdot(126) = -A(92)+A(371)-A(543)
  Vdot(127) = -A(129)-A(130)+0.18*A(628)+A(630)
  Vdot(128) = -A(579)+A(610)-A(614)
  Vdot(129) = A(544)-A(545)-A(550)
  Vdot(130) = -A(74)+A(342)+A(344)-A(525)
  Vdot(131) = -A(80)+A(336)+A(337)-A(531)
  Vdot(132) = -A(16)-A(435)+A(476)+A(508)
  Vdot(133) = A(89)+A(92)+A(162)+A(164)+A(241)+A(243)+A(321)+A(324)+A(430)+A(433)-A(468)+A(488)
  Vdot(134) = -A(578)+A(602)+A(603)-A(607)
  Vdot(135) = -A(41)-A(42)+A(251)-A(474)
  Vdot(136) = -A(576)+A(585)-A(586)-A(587)
  Vdot(137) = -A(73)+A(341)+A(343)-A(524)
  Vdot(138) = -A(15)-A(434)+A(475)+A(507)
  Vdot(139) = -A(47)+A(264)+A(265)-A(485)
  Vdot(140) = -A(19)-A(438)+A(479)+A(523)
  Vdot(141) = -A(17)+A(42)+A(54)+A(195)+A(276)+A(385)-A(436)+A(474)+A(506)
  Vdot(142) = -A(577)+A(598)+A(599)-A(606)
  Vdot(143) = A(624)+2*A(625)-A(626)-A(627)
  Vdot(144) = A(151)-A(230)-A(311)-A(358)-A(420)
  Vdot(145) = A(143)-A(229)-A(310)-A(357)-A(419)
  Vdot(146) = A(155)-A(234)-A(314)-A(361)-A(423)
  Vdot(147) = -A(26)+A(204)+A(285)+A(438)-A(449)+A(513)+A(597)+A(601)+A(605)
  Vdot(148) = A(141)-A(227)-A(308)-A(355)-A(417)
  Vdot(149) = -A(198)+A(245)-A(279)-A(332)-A(386)
  Vdot(150) = -A(139)-A(142)-A(146)-A(147)
  Vdot(151) = -A(24)+A(45)+A(46)+A(78)+A(79)+A(166)+A(200)+A(201)+A(203)+A(281)+A(282)+A(284)+A(388)+A(389)+A(391)&
                &+A(392)-A(447)+A(483)+A(484)+A(529)+A(530)
  Vdot(152) = -A(30)+A(68)+A(230)+A(311)+A(420)-A(457)+A(519)
  Vdot(153) = A(579)+A(580)-A(581)-A(582)+A(609)+A(611)+A(613)+A(614)+A(615)-A(616)-A(617)
  Vdot(154) = -A(138)-A(141)-A(144)-A(145)
  Vdot(155) = -A(32)+A(45)+A(78)-A(93)+A(200)+A(202)+A(204)+A(281)+A(283)+A(285)+A(388)+A(390)-A(459)+A(483)+A(529)&
                &-A(563)
  Vdot(156) = A(135)-A(193)-A(250)-A(274)-A(328)-A(381)-A(382)-A(383)
  Vdot(157) = A(588)+A(590)+A(592)+A(593)+A(594)+A(595)-A(596)-A(598)-A(600)-A(602)-A(604)
  Vdot(158) = A(84)+A(236)-A(237)+A(316)-A(317)-A(364)+A(425)-A(426)+A(536)
  Vdot(159) = -A(159)-A(160)-A(161)-A(162)-A(163)-A(164)
  Vdot(160) = -A(36)+A(87)+A(239)+A(319)+A(428)-A(464)-A(466)
  Vdot(161) = -A(140)-A(143)-A(148)-A(149)
  Vdot(162) = A(583)-A(584)
  Vdot(163) = A(30)-A(31)+A(69)+A(231)+A(312)+A(421)-A(458)+A(520)
  Vdot(164) = A(167)-A(200)-A(262)-A(281)-A(334)-A(388)
  Vdot(165) = -A(154)-A(155)-A(156)-A(157)-A(158)
  Vdot(166) = -A(35)+A(81)+A(82)+A(157)+A(232)+A(234)+A(313)+A(314)+A(422)+A(423)-A(462)-A(465)+A(486)+A(532)+A(534)
  Vdot(167) = A(142)-A(228)-A(309)-A(356)-A(418)
  Vdot(168) = -A(20)+A(211)+A(292)+A(401)-A(439)+A(480)+A(494)+A(495)+A(524)
  Vdot(169) = A(160)-A(243)-A(324)-A(371)-A(433)+A(543)
  Vdot(170) = -A(34)-A(95)+A(203)+A(284)+A(391)+A(392)-A(461)-A(565)+A(577)+A(578)+A(596)+A(600)+A(604)+A(606)+A(607)
  Vdot(171) = 0.82*A(628)+A(629)-A(630)-A(631)-A(632)+0.95*A(636)+A(637)
  Vdot(172) = A(626)+A(627)-A(628)-A(629)
  Vdot(173) = A(2)+A(4)+A(6)-A(96)-A(98)-A(99)-A(100)-A(101)+A(102)-A(129)
  Vdot(174) = A(44)-A(210)-A(258)-A(291)-A(342)-A(400)
  Vdot(175) = -A(53)-A(54)+A(329)+A(332)-A(506)
  Vdot(176) = A(608)-A(609)-A(610)-A(611)-A(612)-A(613)
  Vdot(177) = -A(150)-A(151)-A(152)-A(153)
  Vdot(178) = -A(199)+A(219)-A(280)+A(300)-A(333)-A(387)+A(409)
  Vdot(179) = -A(18)+A(223)+A(226)+A(304)+A(307)+A(413)+A(416)-A(437)+A(478)+A(522)+A(557)
  Vdot(180) = A(150)-A(220)-A(221)-A(261)-A(301)-A(302)-A(352)-A(410)-A(411)
  Vdot(181) = -A(21)+A(212)+A(293)+A(402)-A(440)+A(481)+A(499)+A(500)+A(525)+A(561)
  Vdot(182) = A(169)-A(201)-A(202)-A(263)-A(282)-A(283)-A(335)-A(389)-A(390)
  Vdot(183) = -A(33)+A(46)+A(47)+A(79)+A(80)-A(94)+A(201)+A(282)+A(389)-A(460)+A(484)+A(485)+A(530)+A(531)-A(564)+A(597)&
                &+A(601)+A(605)
  Vdot(184) = -A(240)-A(320)-A(367)-A(429)+A(464)+A(466)+A(539)+A(576)+A(586)+A(587)
  Vdot(185) = A(159)-A(241)-A(242)-A(268)-A(321)-A(368)-A(430)+A(540)
  Vdot(186) = -A(231)-A(312)-A(359)-A(421)+A(457)
  Vdot(187) = A(9)+A(10)+A(11)+A(12)+A(22)+2*A(24)+A(25)+A(29)+2*A(30)+A(36)+A(69)+A(88)-A(113)+A(144)+A(146)+A(148)&
                &+A(152)+A(164)+A(165)+A(173)+A(176)+A(223)+A(231)+A(240)+A(304)+A(312)+A(320)+A(421)+A(429)+A(443)+2*A(447)&
                &+A(448)+A(455)+A(520)+A(550)+A(551)+A(552)+A(557)+A(576)+A(586)+A(587)
  Vdot(188) = -A(215)-A(296)-A(347)-A(405)+A(445)+A(446)+A(511)-A(548)+A(549)+A(575)
  Vdot(189) = A(171)-A(203)-A(264)-A(284)-A(336)-A(391)
  Vdot(190) = -A(25)+A(47)+A(66)+A(80)+A(202)+A(225)+A(283)+A(306)+A(390)+A(415)+A(437)+A(444)-A(448)+A(456)+A(458)&
                &+A(485)+A(512)+A(531)+A(577)+A(578)+A(579)+A(580)+A(596)+A(600)+A(604)+A(606)+A(607)+A(609)+A(611)+A(613)&
                &+A(614)+A(615)
  Vdot(191) = -A(29)+A(64)+A(220)+A(301)+A(410)-A(453)-A(454)-A(455)-A(456)+A(482)+A(516)
  Vdot(192) = -A(8)+A(120)-A(128)+A(176)+A(177)+A(178)+A(442)+A(446)+A(454)+A(465)+A(466)+A(492)+A(495)+A(497)+A(500)&
                &+A(587)+A(623)+A(637)
  Vdot(193) = A(154)-A(232)-A(233)-A(266)-A(313)-A(360)-A(422)
  Vdot(194) = A(86)+A(238)-A(239)+A(318)-A(319)-A(366)+A(427)-A(428)+A(538)
  Vdot(195) = -A(13)+A(40)+A(52)+A(86)+A(91)+A(156)-A(179)+A(186)+A(193)+A(233)+A(238)+A(242)+A(245)+A(246)+A(274)&
                &+A(318)+A(323)+A(381)+A(382)+A(427)+A(432)+A(473)+A(487)+A(490)+A(505)+A(542)+A(561)+A(584)
  Vdot(196) = A(172)-A(204)-A(265)-A(285)-A(337)-A(392)
  Vdot(197) = A(589)+A(591)-A(597)-A(599)-A(601)-A(603)-A(605)
  Vdot(198) = A(138)+A(183)-A(205)-A(206)-A(254)-A(286)-A(287)-A(338)-A(395)-A(396)+A(562)+A(570)+A(571)+A(572)+A(573)
  Vdot(199) = -A(22)+A(29)+A(66)+A(67)+A(206)+A(222)+A(224)+A(287)+A(303)+A(305)+A(396)+A(412)+A(413)+A(414)-A(445)&
                &-A(446)+A(455)+A(456)+A(477)+A(521)
  Vdot(200) = -A(224)-A(225)-A(226)-A(305)-A(306)-A(307)-A(354)-A(414)-A(415)-A(416)+A(441)+A(442)+A(518)-A(555)+A(556)
  Vdot(201) = -A(222)-A(223)-A(303)-A(304)-A(353)-A(412)-A(413)+A(453)+A(454)+A(517)-A(553)+A(554)
  Vdot(202) = A(56)+A(156)+A(197)-A(212)-A(260)+A(278)-A(293)-A(344)+A(394)-A(402)
  Vdot(203) = -A(23)+A(65)+A(152)+A(153)+A(221)+A(302)+A(411)-A(441)-A(442)-A(443)-A(444)+A(558)
  Vdot(204) = A(175)+A(178)-A(214)+A(218)-A(295)+A(299)-A(346)-A(404)+A(408)+A(510)-A(546)+A(547)
  Vdot(205) = A(85)+A(237)-A(238)+A(317)-A(318)-A(365)+A(426)-A(427)+A(537)-A(583)
  Vdot(206) = -A(197)+A(233)+A(242)-A(253)-A(278)-A(331)-A(394)
  Vdot(207) = -A(9)-A(10)+A(18)+A(22)+A(23)+A(31)+A(37)+A(49)+A(59)+A(65)+2*A(70)+A(71)+2*A(75)+A(76)+A(87)+A(89)+A(92)&
                &+A(144)+A(145)+A(146)+A(147)+A(162)+A(163)-A(173)-A(176)+A(181)+A(190)+2*A(205)+A(207)+A(215)+A(216)+A(221)&
                &+A(225)+A(226)+2*A(227)+A(228)+A(239)+A(241)+A(243)+A(245)+A(271)+2*A(286)+A(288)+A(296)+A(297)+A(302)&
                &+A(306)+A(307)+2*A(308)+A(309)+A(319)+A(321)+A(324)+A(372)+A(373)+2*A(395)+A(397)+A(405)+A(406)+A(411)&
                &+A(415)+A(416)+2*A(417)+A(418)+A(428)+A(430)+A(433)+A(443)+A(444)+A(470)+A(488)+A(502)+2*A(526)+A(527)&
                &+A(550)+A(552)+A(624)+2*A(625)
  Vdot(208) = A(180)-A(217)-A(298)-A(349)-A(407)+A(436)
  Vdot(209) = A(43)+A(199)-A(209)-A(257)+A(280)-A(290)-A(341)+A(387)-A(399)+A(451)
  Vdot(210) = A(11)+A(13)+A(57)+A(94)+A(97)+A(133)+A(146)+A(148)+A(189)-A(190)+A(213)-A(247)-A(271)+A(294)-A(325)-A(372)&
                &-A(373)-A(374)+A(403)+A(501)+A(564)+A(566)+A(567)+A(568)-A(574)+0.18*A(628)+A(630)+A(634)+0.95*A(635)
  Vdot(211) = -A(246)-A(270)-A(323)-A(370)-A(432)+A(469)
  Vdot(212) = A(83)+A(235)-A(236)-A(267)+A(315)-A(316)-A(363)+A(424)-A(425)+A(467)+A(535)
  Vdot(213) = A(140)+A(198)-A(208)-A(256)+A(279)-A(289)-A(340)+A(386)-A(398)+A(450)+A(452)
  Vdot(214) = A(12)+A(14)+A(17)+A(32)+A(41)+A(53)+A(58)+A(60)+A(95)+A(134)-A(191)+A(194)+A(214)-A(248)-A(272)+A(275)&
                &+A(295)-A(326)-A(375)-A(376)-A(377)+A(384)+A(404)+A(459)+A(565)+A(569)
  Vdot(215) = A(161)-A(244)-A(245)-A(269)-A(322)-A(369)-A(431)+A(468)
  Vdot(216) = A(15)+A(16)+A(33)+A(61)+A(136)-A(192)-A(249)-A(273)-A(327)-A(378)-A(379)-A(380)+A(460)+A(581)+A(617)
  Vdot(217) = -A(218)-A(299)-A(350)-A(408)+A(434)
  Vdot(218) = A(139)+A(185)+A(187)-A(207)-A(255)-A(288)-A(339)-A(397)+A(449)+A(575)
  Vdot(219) = A(13)+A(14)+A(15)+A(17)+A(18)+A(19)+A(23)+A(25)+2*A(26)+A(27)+A(29)+A(31)+2*A(36)+A(67)+A(174)+A(177)&
                &-A(213)+A(216)+A(217)+A(222)+A(224)-A(294)+A(297)+A(298)+A(303)+A(305)-A(345)-A(403)+A(406)+A(407)+A(412)&
                &+A(414)+A(443)+A(448)+A(455)+A(509)-A(544)+A(545)
  Vdot(220) = -A(219)-A(300)-A(351)-A(409)+A(435)
  Vdot(221) = A(16)+A(20)+A(21)+A(27)+2*A(28)+A(88)+A(179)-A(216)+A(240)-A(297)+A(320)-A(348)-A(406)+A(429)
  Vdot(222) = A(35)-A(235)-A(315)-A(362)-A(424)+A(462)+A(465)+A(533)-A(559)+A(560)
  Vdot(223) = -A(1)-A(2)+A(96)-A(98)-A(103)-A(104)-A(111)-A(115)-A(144)-A(145)-A(146)-A(147)-A(148)-A(149)-A(152)-A(153)&
                &-A(156)-A(157)-A(158)-A(161)-A(162)-A(163)-A(164)-A(443)-A(444)-A(455)-A(456)-A(626)-A(629)-A(632)
  Vdot(224) = A(63)-A(196)-A(252)-A(277)-A(330)-A(393)+A(440)+A(582)+A(616)
  Vdot(225) = A(55)+A(196)-A(211)-A(259)+A(277)-A(292)-A(343)+A(393)-A(401)+A(463)
  Vdot(226) = A(34)+A(62)+A(91)+A(137)-A(194)-A(195)+A(246)-A(251)-A(275)-A(276)+A(323)-A(329)-A(384)-A(385)+A(432)&
                &+A(439)+A(461)
  Vdot(227) = -A(12)+A(21)+A(39)+A(51)+A(73)+2*A(74)-A(175)-A(178)+A(184)+A(192)+A(209)+2*A(210)+A(273)+A(290)+2*A(291)&
                &+A(378)+A(379)+A(399)+2*A(400)+A(472)+A(504)
  Vdot(228) = 2*A(9)+A(11)+A(12)+A(18)+A(19)+A(20)+A(21)+2*A(22)+A(23)+2*A(24)+A(25)+A(29)+2*A(30)+A(32)+A(33)+A(34)&
                &+A(35)+A(37)+A(38)+A(39)+A(40)+A(42)+A(45)+A(46)+A(47)+A(48)+A(49)+A(50)+A(51)+A(52)+A(54)+A(59)+A(64)&
                &+A(65)+A(66)+A(68)+A(69)+A(70)+A(71)+A(72)+A(73)+A(74)+A(78)+A(79)+A(80)+A(81)+A(87)+A(89)+A(90)+2*A(93)&
                &+A(94)+A(95)+A(111)+A(112)+A(113)+A(114)-A(115)-A(116)-2*A(117)-2*A(118)+A(121)-A(122)-A(123)+A(124)-A(126)&
                &+A(131)+A(144)+A(152)+A(165)+A(168)+A(170)+A(173)+A(176)+A(181)+A(182)+A(184)+A(186)+A(188)+A(190)+A(191)&
                &+A(192)+A(193)+A(195)+A(200)+A(201)+A(202)+A(203)+A(204)+A(205)+A(206)+A(207)+A(208)+A(209)+A(210)+A(211)&
                &+A(212)+A(215)+A(220)+A(221)+A(223)+A(225)+A(226)+A(230)+A(231)+A(232)+A(239)+A(241)+A(244)+A(271)+A(272)&
                &+A(273)+A(274)+A(276)+A(281)+A(282)+A(283)+A(284)+A(285)+A(286)+A(287)+A(288)+A(289)+A(290)+A(291)+A(292)&
                &+A(293)+A(296)+A(301)+A(302)+A(304)+A(306)+A(307)+A(311)+A(312)+A(313)+A(319)+A(321)+A(322)-A(325)-A(326)&
                &-A(327)-A(328)-A(329)-A(330)-A(331)-A(332)-A(333)-A(334)-A(335)-A(336)-A(337)-A(338)-A(339)-A(340)-A(341)&
                &-A(342)-A(343)-A(344)-A(345)-A(346)-A(347)-A(348)-A(349)-A(350)-A(351)-A(352)-A(353)-A(354)-A(355)-A(356)&
                &-A(357)-A(358)-A(359)-A(360)-A(361)-A(362)-A(363)-A(364)-A(365)-A(366)-A(367)-A(368)-A(369)-A(370)-A(371)&
                &+A(372)+A(375)+A(378)+A(381)+A(385)+A(388)+A(389)+A(390)+A(391)+A(392)+A(395)+A(396)+A(397)+A(398)+A(399)&
                &+A(400)+A(401)+A(402)+A(405)+A(410)+A(411)+A(413)+A(415)+A(416)+A(420)+A(421)+A(422)+A(428)+A(430)+A(431)&
                &+A(437)+A(438)+A(447)+A(563)+A(576)+A(577)+A(578)+A(579)+A(580)+A(581)+A(582)+A(585)+A(596)+A(597)+A(600)&
                &+A(601)-A(602)-A(603)+A(604)+A(605)+A(609)+A(611)-A(612)+A(613)+A(622)-A(633)+0.05*A(636)
  Vdot(229) = A(4)+A(5)+A(7)-A(99)+A(100)-A(103)-2*A(105)-A(106)+A(107)-A(119)-A(122)-A(190)-A(191)-A(192)-A(193)-A(194)&
                &-A(195)-A(196)-A(197)-A(198)-A(199)-A(200)-A(201)-A(202)-A(203)-A(204)-A(205)-A(206)-A(207)-A(208)-A(209)&
                &-A(210)-A(211)-A(212)-A(213)-A(214)-A(215)-A(216)-A(217)-A(218)-A(219)-A(220)-A(221)-A(222)-A(223)-A(224)&
                &-A(225)-A(226)-A(227)-A(228)-A(229)-A(230)-A(231)-A(232)-A(233)-A(234)-A(235)-A(236)-A(237)-A(238)-A(239)&
                &-A(240)-A(241)-A(242)-A(243)-A(244)-A(245)-A(246)-A(247)-A(248)-A(249)-A(250)-A(251)-A(252)-A(253)-A(254)&
                &-A(255)-A(256)-A(257)-A(258)-A(259)-A(260)-A(261)-A(262)-A(263)-A(264)-A(265)-A(266)-A(267)-A(268)-A(269)&
                &-A(270)-A(583)-A(596)-A(597)-A(598)-A(599)-A(609)-A(610)-A(624)+A(627)+A(628)+A(631)
  Vdot(230) = -A(5)-A(6)+A(101)+A(104)-A(106)-A(107)-A(108)+A(109)-A(121)-A(126)+A(128)-A(141)-A(142)-A(143)-A(151)&
                &-A(155)-A(160)-A(176)-A(177)-A(178)-A(271)-A(272)-A(273)-A(274)-A(275)-A(276)-A(277)-A(278)-A(279)-A(280)&
                &-A(281)-A(282)-A(283)-A(284)-A(285)-A(286)-A(287)-A(288)-A(289)-A(290)-A(291)-A(292)-A(293)-A(294)-A(295)&
                &-A(296)-A(297)-A(298)-A(299)-A(300)-A(301)-A(302)-A(303)-A(304)-A(305)-A(306)-A(307)-A(308)-A(309)-A(310)&
                &-A(311)-A(312)-A(313)-A(314)-A(315)-A(316)-A(317)-A(318)-A(319)-A(320)-A(321)-A(322)-A(323)-A(324)-A(442)&
                &-A(446)-A(454)-A(465)-A(466)-A(492)-A(495)-A(497)-A(500)-A(587)-A(600)-A(601)-A(611)-A(623)-A(637)
  Vdot(231) = 2*A(3)+A(7)+A(8)+A(49)+A(50)+A(51)+A(52)+A(53)+A(54)+A(55)+A(56)+A(57)+A(58)+A(59)+A(60)+A(61)+A(62)+A(63)&
                &+A(64)+A(65)+A(66)+A(67)+A(68)+A(69)+A(70)+A(71)+A(72)+A(73)+A(74)+A(75)+A(76)+A(77)+A(78)+A(79)+A(80)&
                &+A(81)+A(82)+A(83)+A(84)+A(85)+A(86)+A(87)+A(88)+A(89)+A(90)+A(91)+A(92)+2*A(110)-A(111)-A(112)-A(113)&
                &-A(114)+A(115)-A(116)-A(119)-A(120)-A(121)+A(122)-A(125)+A(126)-A(127)-A(128)-A(130)-A(133)-A(134)-A(135)&
                &-A(136)-A(137)-A(138)-A(139)-A(140)+A(144)+A(146)+A(148)-A(150)+A(152)-A(154)+A(156)-A(159)+A(161)-A(165)&
                &-A(167)-A(168)-A(169)-A(170)-A(171)-A(172)-A(173)-A(174)-A(175)-A(179)-A(180)-A(181)-A(182)-A(183)-A(184)&
                &-A(185)-A(186)-A(187)-A(188)-A(189)-A(434)-A(435)-A(436)-A(437)-A(438)-A(439)-A(440)-A(441)+A(443)-A(445)&
                &-A(447)-A(448)-A(449)-A(450)-A(451)-A(452)-A(453)+A(455)-A(457)-A(458)-A(459)-A(460)-A(461)-A(462)-A(463)&
                &-A(464)-A(467)-A(468)-A(469)-A(470)-A(471)-A(472)-A(473)-A(474)-A(475)-A(476)-A(477)-A(478)-A(479)-A(480)&
                &-A(481)-A(482)-A(483)-A(484)-A(485)-A(486)-A(487)-A(488)-A(489)-A(490)-A(491)-A(494)-A(496)-A(499)-A(501)&
                &-A(509)-A(510)-A(511)-A(517)-A(518)-A(533)-A(535)-A(536)-A(537)-A(538)-A(539)-A(540)-A(543)-A(550)-A(551)&
                &-A(552)-A(557)-A(558)-A(561)-A(562)-A(563)-A(564)-A(565)-A(566)-A(567)-A(568)-A(569)-A(570)-A(571)-A(572)&
                &-A(573)+A(578)+A(580)-A(584)-A(585)-A(586)-A(588)-A(589)-A(590)-A(591)-A(592)-A(593)-A(594)-A(595)-A(606)&
                &-A(608)-A(614)-A(616)-A(617)-A(621)-A(622)-A(635)-A(636)
  Vdot(232) = -A(4)+A(6)+A(8)+A(31)+A(37)+A(38)+A(39)+A(40)+A(41)+A(42)+A(43)+A(44)+A(45)+A(46)+A(47)+A(48)+A(75)+A(76)&
                &+A(77)+A(82)+A(92)+A(97)+A(99)-A(100)-A(101)+A(103)-A(104)+2*A(105)+2*A(106)-A(108)+A(109)-A(120)+A(121)&
                &+A(122)-A(123)+A(124)+A(125)+A(126)+A(127)+A(190)+A(191)+A(192)+A(193)+A(194)+A(195)+A(196)+A(197)+A(198)&
                &+A(199)+A(200)+A(201)+A(202)+A(203)+A(204)+A(205)+A(206)+A(207)+A(208)+A(209)+A(210)+A(211)+A(212)+A(213)&
                &+A(214)+A(215)+A(216)+A(217)+A(218)+A(219)+A(220)+A(221)+A(222)+A(223)+A(224)+A(225)+A(226)+2*A(227)+2&
                &*A(228)+2*A(229)+A(230)+A(231)+A(232)+A(233)+2*A(234)+A(235)+A(236)+A(237)+A(238)+A(239)+A(240)+A(241)&
                &+A(242)+2*A(243)+A(244)+A(245)+A(246)+A(271)+A(272)+A(273)+A(274)+A(275)+A(276)+A(277)+A(278)+A(279)+A(280)&
                &+A(281)+A(282)+A(283)+A(284)+A(285)+A(286)+A(287)+A(288)+A(289)+A(290)+A(291)+A(292)+A(293)+A(294)+A(295)&
                &+A(296)+A(297)+A(298)+A(299)+A(300)+A(301)+A(302)+A(303)+A(304)+A(305)+A(306)+A(307)+2*A(308)+2*A(309)+2&
                &*A(310)+A(311)+A(312)+A(313)+2*A(314)+A(315)+A(316)+A(317)+A(318)+A(319)+A(320)+A(321)+A(322)+A(323)+2&
                &*A(324)+A(417)+A(418)+A(419)+A(423)+A(433)+A(458)+A(470)+A(471)+A(472)+A(473)+A(474)+A(475)+A(476)+A(477)&
                &+A(478)+A(479)+A(480)+A(481)+A(482)+A(483)+A(484)+A(485)+A(486)+A(487)+A(488)+A(489)+A(490)-A(493)+A(494)&
                &+A(495)-A(498)+A(499)+A(500)+A(526)+A(527)+A(528)+A(534)-A(544)+A(545)-A(546)+A(547)-A(548)+A(549)+A(550)&
                &+A(551)+A(552)-A(553)+A(554)-A(555)+A(556)+A(557)+A(558)-A(559)+A(560)+A(561)-A(574)+A(577)+A(579)+A(584)&
                &+A(596)+A(597)+A(600)+A(601)+A(606)+A(609)+A(611)+A(614)+A(624)-A(627)-A(628)-A(631)
  Vdot(233) = -A(11)+A(19)+A(20)+A(38)+A(41)+A(50)+A(53)+A(71)+2*A(72)+A(73)+A(76)+2*A(77)+A(148)+A(149)-A(174)-A(177)&
                &+A(182)+A(191)+A(194)+A(207)+2*A(208)+A(209)+A(217)+A(218)+A(228)+2*A(229)+A(272)+A(275)+A(288)+2*A(289)&
                &+A(290)+A(298)+A(299)+A(309)+2*A(310)+A(375)+A(376)+A(384)+A(397)+2*A(398)+A(399)+A(407)+A(408)+A(418)+2&
                &*A(419)+A(471)+A(503)+A(527)+2*A(528)+A(551)
      
END SUBROUTINE cri_mosaic_8bin_aq_Fun

! End of cri_mosaic_8bin_aq_Fun function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! cri_mosaic_8bin_aq_Jac_SP - the Jacobian of Variables in sparse matrix representation
!   Arguments :
!      V         - Concentrations of variable species (local)
!      F         - Concentrations of fixed species (local)
!      RCT       - Rate constants (local)
!      JVS       - sparse Jacobian of variables
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE cri_mosaic_8bin_aq_Jac_SP ( V, F, RCT, JVS )

! V - Concentrations of variable species (local)
  REAL(kind=dp) :: V(NVAR)
! F - Concentrations of fixed species (local)
  REAL(kind=dp) :: F(NFIX)
! RCT - Rate constants (local)
  REAL(kind=dp) :: RCT(NREACT)
! JVS - sparse Jacobian of variables
  REAL(kind=dp) :: JVS(LU_NONZERO)


! Local variables
! B - Temporary array
  REAL(kind=dp) :: B(1090)

! B(1) = dA(1)/dV(223)
  B(1) = RCT(1)
! B(2) = dA(2)/dV(223)
  B(2) = RCT(2)
! B(3) = dA(3)/dV(107)
  B(3) = RCT(3)
! B(4) = dA(4)/dV(232)
  B(4) = RCT(4)
! B(5) = dA(5)/dV(230)
  B(5) = RCT(5)
! B(6) = dA(6)/dV(230)
  B(6) = RCT(6)
! B(7) = dA(7)/dV(41)
  B(7) = RCT(7)
! B(8) = dA(8)/dV(192)
  B(8) = RCT(8)
! B(9) = dA(9)/dV(207)
  B(9) = RCT(9)
! B(10) = dA(10)/dV(207)
  B(10) = RCT(10)
! B(11) = dA(11)/dV(233)
  B(11) = RCT(11)
! B(12) = dA(12)/dV(227)
  B(12) = RCT(12)
! B(13) = dA(13)/dV(195)
  B(13) = RCT(13)
! B(14) = dA(14)/dV(33)
  B(14) = RCT(14)
! B(15) = dA(15)/dV(138)
  B(15) = RCT(15)
! B(16) = dA(16)/dV(132)
  B(16) = RCT(16)
! B(17) = dA(17)/dV(141)
  B(17) = RCT(17)
! B(18) = dA(18)/dV(179)
  B(18) = RCT(18)
! B(19) = dA(19)/dV(140)
  B(19) = RCT(19)
! B(20) = dA(20)/dV(168)
  B(20) = RCT(20)
! B(21) = dA(21)/dV(181)
  B(21) = RCT(21)
! B(22) = dA(22)/dV(199)
  B(22) = RCT(22)
! B(23) = dA(23)/dV(203)
  B(23) = RCT(23)
! B(24) = dA(24)/dV(151)
  B(24) = RCT(24)
! B(25) = dA(25)/dV(190)
  B(25) = RCT(25)
! B(26) = dA(26)/dV(147)
  B(26) = RCT(26)
! B(27) = dA(27)/dV(45)
  B(27) = RCT(27)
! B(28) = dA(28)/dV(38)
  B(28) = RCT(28)
! B(29) = dA(29)/dV(191)
  B(29) = RCT(29)
! B(30) = dA(30)/dV(152)
  B(30) = RCT(30)
! B(31) = dA(31)/dV(163)
  B(31) = RCT(31)
! B(32) = dA(32)/dV(155)
  B(32) = RCT(32)
! B(33) = dA(33)/dV(183)
  B(33) = RCT(33)
! B(34) = dA(34)/dV(170)
  B(34) = RCT(34)
! B(35) = dA(35)/dV(166)
  B(35) = RCT(35)
! B(36) = dA(36)/dV(160)
  B(36) = RCT(36)
! B(37) = dA(37)/dV(90)
  B(37) = RCT(37)
! B(38) = dA(38)/dV(91)
  B(38) = RCT(38)
! B(39) = dA(39)/dV(94)
  B(39) = RCT(39)
! B(40) = dA(40)/dV(84)
  B(40) = RCT(40)
! B(41) = dA(41)/dV(135)
  B(41) = RCT(41)
! B(42) = dA(42)/dV(135)
  B(42) = RCT(42)
! B(43) = dA(43)/dV(79)
  B(43) = RCT(43)
! B(44) = dA(44)/dV(98)
  B(44) = RCT(44)
! B(45) = dA(45)/dV(119)
  B(45) = RCT(45)
! B(46) = dA(46)/dV(121)
  B(46) = RCT(46)
! B(47) = dA(47)/dV(139)
  B(47) = RCT(47)
! B(48) = dA(48)/dV(100)
  B(48) = RCT(48)
! B(49) = dA(49)/dV(93)
  B(49) = RCT(49)
! B(50) = dA(50)/dV(73)
  B(50) = RCT(50)
! B(51) = dA(51)/dV(56)
  B(51) = RCT(51)
! B(52) = dA(52)/dV(74)
  B(52) = RCT(52)
! B(53) = dA(53)/dV(175)
  B(53) = RCT(53)
! B(54) = dA(54)/dV(175)
  B(54) = RCT(54)
! B(55) = dA(55)/dV(80)
  B(55) = RCT(55)
! B(56) = dA(56)/dV(57)
  B(56) = RCT(56)
! B(57) = dA(57)/dV(76)
  B(57) = RCT(57)
! B(58) = dA(58)/dV(62)
  B(58) = RCT(58)
! B(59) = dA(59)/dV(85)
  B(59) = RCT(59)
! B(60) = dA(60)/dV(58)
  B(60) = RCT(60)
! B(61) = dA(61)/dV(59)
  B(61) = RCT(61)
! B(62) = dA(62)/dV(116)
  B(62) = RCT(62)
! B(63) = dA(63)/dV(81)
  B(63) = RCT(63)
! B(64) = dA(64)/dV(114)
  B(64) = RCT(64)
! B(65) = dA(65)/dV(114)
  B(65) = RCT(65)
! B(66) = dA(66)/dV(115)
  B(66) = RCT(66)
! B(67) = dA(67)/dV(86)
  B(67) = RCT(67)
! B(68) = dA(68)/dV(65)
  B(68) = RCT(68)
! B(69) = dA(69)/dV(88)
  B(69) = RCT(69)
! B(70) = dA(70)/dV(101)
  B(70) = RCT(70)
! B(71) = dA(71)/dV(118)
  B(71) = RCT(71)
! B(72) = dA(72)/dV(82)
  B(72) = RCT(72)
! B(73) = dA(73)/dV(137)
  B(73) = RCT(73)
! B(74) = dA(74)/dV(130)
  B(74) = RCT(74)
! B(75) = dA(75)/dV(60)
  B(75) = RCT(75)
! B(76) = dA(76)/dV(83)
  B(76) = RCT(76)
! B(77) = dA(77)/dV(61)
  B(77) = RCT(77)
! B(78) = dA(78)/dV(89)
  B(78) = RCT(78)
! B(79) = dA(79)/dV(92)
  B(79) = RCT(79)
! B(80) = dA(80)/dV(131)
  B(80) = RCT(80)
! B(81) = dA(81)/dV(68)
  B(81) = RCT(81)
! B(82) = dA(82)/dV(70)
  B(82) = RCT(82)
! B(83) = dA(83)/dV(69)
  B(83) = RCT(83)
! B(84) = dA(84)/dV(71)
  B(84) = RCT(84)
! B(85) = dA(85)/dV(72)
  B(85) = RCT(85)
! B(86) = dA(86)/dV(95)
  B(86) = RCT(86)
! B(87) = dA(87)/dV(124)
  B(87) = RCT(87)
! B(88) = dA(88)/dV(96)
  B(88) = RCT(88)
! B(89) = dA(89)/dV(125)
  B(89) = RCT(89)
! B(90) = dA(90)/dV(75)
  B(90) = RCT(90)
! B(91) = dA(91)/dV(103)
  B(91) = RCT(91)
! B(92) = dA(92)/dV(126)
  B(92) = RCT(92)
! B(93) = dA(93)/dV(155)
  B(93) = RCT(93)
! B(94) = dA(94)/dV(183)
  B(94) = RCT(94)
! B(95) = dA(95)/dV(170)
  B(95) = RCT(95)
! B(96) = dA(96)/dV(173)
  B(96) = RCT(96)*F(2)
! B(98) = dA(97)/dV(35)
  B(98) = RCT(97)
! B(99) = dA(98)/dV(173)
  B(99) = RCT(98)*V(223)
! B(100) = dA(98)/dV(223)
  B(100) = RCT(98)*V(173)
! B(101) = dA(99)/dV(173)
  B(101) = RCT(99)*V(229)
! B(102) = dA(99)/dV(229)
  B(102) = RCT(99)*V(173)
! B(103) = dA(100)/dV(173)
  B(103) = RCT(100)*V(232)
! B(104) = dA(100)/dV(232)
  B(104) = RCT(100)*V(173)
! B(105) = dA(101)/dV(173)
  B(105) = RCT(101)*V(232)
! B(106) = dA(101)/dV(232)
  B(106) = RCT(101)*V(173)
! B(107) = dA(102)/dV(8)
  B(107) = RCT(102)*F(2)
! B(109) = dA(103)/dV(223)
  B(109) = RCT(103)*V(229)
! B(110) = dA(103)/dV(229)
  B(110) = RCT(103)*V(223)
! B(111) = dA(104)/dV(223)
  B(111) = RCT(104)*V(232)
! B(112) = dA(104)/dV(232)
  B(112) = RCT(104)*V(223)
! B(113) = dA(105)/dV(229)
  B(113) = RCT(105)*2*V(229)*F(2)
! B(115) = dA(106)/dV(229)
  B(115) = RCT(106)*V(230)
! B(116) = dA(106)/dV(230)
  B(116) = RCT(106)*V(229)
! B(117) = dA(107)/dV(230)
  B(117) = RCT(107)*V(232)
! B(118) = dA(107)/dV(232)
  B(118) = RCT(107)*V(230)
! B(119) = dA(108)/dV(230)
  B(119) = RCT(108)*V(232)
! B(120) = dA(108)/dV(232)
  B(120) = RCT(108)*V(230)
! B(121) = dA(109)/dV(32)
  B(121) = RCT(109)
! B(122) = dA(110)/dV(8)
  B(122) = RCT(110)*F(1)
! B(124) = dA(111)/dV(223)
  B(124) = RCT(111)*V(231)
! B(125) = dA(111)/dV(231)
  B(125) = RCT(111)*V(223)
! B(126) = dA(112)/dV(231)
  B(126) = RCT(112)*F(2)
! B(128) = dA(113)/dV(187)
  B(128) = RCT(113)*V(231)
! B(129) = dA(113)/dV(231)
  B(129) = RCT(113)*V(187)
! B(130) = dA(114)/dV(107)
  B(130) = RCT(114)*V(231)
! B(131) = dA(114)/dV(231)
  B(131) = RCT(114)*V(107)
! B(132) = dA(115)/dV(223)
  B(132) = RCT(115)*V(228)
! B(133) = dA(115)/dV(228)
  B(133) = RCT(115)*V(223)
! B(134) = dA(116)/dV(228)
  B(134) = RCT(116)*V(231)
! B(135) = dA(116)/dV(231)
  B(135) = RCT(116)*V(228)
! B(136) = dA(117)/dV(228)
  B(136) = RCT(117)*2*V(228)
! B(137) = dA(118)/dV(228)
  B(137) = RCT(118)*2*V(228)*F(1)
! B(139) = dA(119)/dV(229)
  B(139) = RCT(119)*V(231)
! B(140) = dA(119)/dV(231)
  B(140) = RCT(119)*V(229)
! B(141) = dA(120)/dV(231)
  B(141) = RCT(120)*V(232)
! B(142) = dA(120)/dV(232)
  B(142) = RCT(120)*V(231)
! B(143) = dA(121)/dV(230)
  B(143) = RCT(121)*V(231)
! B(144) = dA(121)/dV(231)
  B(144) = RCT(121)*V(230)
! B(145) = dA(122)/dV(228)
  B(145) = RCT(122)*V(229)
! B(146) = dA(122)/dV(229)
  B(146) = RCT(122)*V(228)
! B(147) = dA(123)/dV(228)
  B(147) = RCT(123)*V(232)
! B(148) = dA(123)/dV(232)
  B(148) = RCT(123)*V(228)
! B(149) = dA(124)/dV(63)
  B(149) = RCT(124)
! B(150) = dA(125)/dV(63)
  B(150) = RCT(125)*V(231)
! B(151) = dA(125)/dV(231)
  B(151) = RCT(125)*V(63)
! B(152) = dA(126)/dV(228)
  B(152) = RCT(126)*V(230)
! B(153) = dA(126)/dV(230)
  B(153) = RCT(126)*V(228)
! B(154) = dA(127)/dV(41)
  B(154) = RCT(127)*V(231)
! B(155) = dA(127)/dV(231)
  B(155) = RCT(127)*V(41)
! B(156) = dA(128)/dV(192)
  B(156) = RCT(128)*V(231)
! B(157) = dA(128)/dV(231)
  B(157) = RCT(128)*V(192)
! B(158) = dA(129)/dV(127)
  B(158) = RCT(129)*V(173)
! B(159) = dA(129)/dV(173)
  B(159) = RCT(129)*V(127)
! B(160) = dA(130)/dV(127)
  B(160) = RCT(130)*V(231)
! B(161) = dA(130)/dV(231)
  B(161) = RCT(130)*V(127)
! B(162) = dA(131)/dV(10)
  B(162) = RCT(131)*F(2)
! B(164) = dA(132)/dV(5)
  B(164) = RCT(132)*F(1)*F(1)
! B(166) = dA(133)/dV(20)
  B(166) = RCT(133)*V(231)
! B(167) = dA(133)/dV(231)
  B(167) = RCT(133)*V(20)
! B(168) = dA(134)/dV(9)
  B(168) = RCT(134)*V(231)
! B(169) = dA(134)/dV(231)
  B(169) = RCT(134)*V(9)
! B(170) = dA(135)/dV(26)
  B(170) = RCT(135)*V(231)
! B(171) = dA(135)/dV(231)
  B(171) = RCT(135)*V(26)
! B(172) = dA(136)/dV(26)
  B(172) = RCT(136)*V(231)
! B(173) = dA(136)/dV(231)
  B(173) = RCT(136)*V(26)
! B(174) = dA(137)/dV(11)
  B(174) = RCT(137)*V(231)
! B(175) = dA(137)/dV(231)
  B(175) = RCT(137)*V(11)
! B(176) = dA(138)/dV(154)
  B(176) = RCT(138)*V(231)
! B(177) = dA(138)/dV(231)
  B(177) = RCT(138)*V(154)
! B(178) = dA(139)/dV(150)
  B(178) = RCT(139)*V(231)
! B(179) = dA(139)/dV(231)
  B(179) = RCT(139)*V(150)
! B(180) = dA(140)/dV(161)
  B(180) = RCT(140)*V(231)
! B(181) = dA(140)/dV(231)
  B(181) = RCT(140)*V(161)
! B(182) = dA(141)/dV(154)
  B(182) = RCT(141)*V(230)
! B(183) = dA(141)/dV(230)
  B(183) = RCT(141)*V(154)
! B(184) = dA(142)/dV(150)
  B(184) = RCT(142)*V(230)
! B(185) = dA(142)/dV(230)
  B(185) = RCT(142)*V(150)
! B(186) = dA(143)/dV(161)
  B(186) = RCT(143)*V(230)
! B(187) = dA(143)/dV(230)
  B(187) = RCT(143)*V(161)
! B(188) = dA(144)/dV(154)
  B(188) = RCT(144)*V(223)
! B(189) = dA(144)/dV(223)
  B(189) = RCT(144)*V(154)
! B(190) = dA(145)/dV(154)
  B(190) = RCT(145)*V(223)
! B(191) = dA(145)/dV(223)
  B(191) = RCT(145)*V(154)
! B(192) = dA(146)/dV(150)
  B(192) = RCT(146)*V(223)
! B(193) = dA(146)/dV(223)
  B(193) = RCT(146)*V(150)
! B(194) = dA(147)/dV(150)
  B(194) = RCT(147)*V(223)
! B(195) = dA(147)/dV(223)
  B(195) = RCT(147)*V(150)
! B(196) = dA(148)/dV(161)
  B(196) = RCT(148)*V(223)
! B(197) = dA(148)/dV(223)
  B(197) = RCT(148)*V(161)
! B(198) = dA(149)/dV(161)
  B(198) = RCT(149)*V(223)
! B(199) = dA(149)/dV(223)
  B(199) = RCT(149)*V(161)
! B(200) = dA(150)/dV(177)
  B(200) = RCT(150)*V(231)
! B(201) = dA(150)/dV(231)
  B(201) = RCT(150)*V(177)
! B(202) = dA(151)/dV(177)
  B(202) = RCT(151)*V(230)
! B(203) = dA(151)/dV(230)
  B(203) = RCT(151)*V(177)
! B(204) = dA(152)/dV(177)
  B(204) = RCT(152)*V(223)
! B(205) = dA(152)/dV(223)
  B(205) = RCT(152)*V(177)
! B(206) = dA(153)/dV(177)
  B(206) = RCT(153)*V(223)
! B(207) = dA(153)/dV(223)
  B(207) = RCT(153)*V(177)
! B(208) = dA(154)/dV(165)
  B(208) = RCT(154)*V(231)
! B(209) = dA(154)/dV(231)
  B(209) = RCT(154)*V(165)
! B(210) = dA(155)/dV(165)
  B(210) = RCT(155)*V(230)
! B(211) = dA(155)/dV(230)
  B(211) = RCT(155)*V(165)
! B(212) = dA(156)/dV(165)
  B(212) = RCT(156)*V(223)
! B(213) = dA(156)/dV(223)
  B(213) = RCT(156)*V(165)
! B(214) = dA(157)/dV(165)
  B(214) = RCT(157)*V(223)
! B(215) = dA(157)/dV(223)
  B(215) = RCT(157)*V(165)
! B(216) = dA(158)/dV(165)
  B(216) = RCT(158)*V(223)
! B(217) = dA(158)/dV(223)
  B(217) = RCT(158)*V(165)
! B(218) = dA(159)/dV(159)
  B(218) = RCT(159)*V(231)
! B(219) = dA(159)/dV(231)
  B(219) = RCT(159)*V(159)
! B(220) = dA(160)/dV(159)
  B(220) = RCT(160)*V(230)
! B(221) = dA(160)/dV(230)
  B(221) = RCT(160)*V(159)
! B(222) = dA(161)/dV(159)
  B(222) = RCT(161)*V(223)
! B(223) = dA(161)/dV(223)
  B(223) = RCT(161)*V(159)
! B(224) = dA(162)/dV(159)
  B(224) = RCT(162)*V(223)
! B(225) = dA(162)/dV(223)
  B(225) = RCT(162)*V(159)
! B(226) = dA(163)/dV(159)
  B(226) = RCT(163)*V(223)
! B(227) = dA(163)/dV(223)
  B(227) = RCT(163)*V(159)
! B(228) = dA(164)/dV(159)
  B(228) = RCT(164)*V(223)
! B(229) = dA(164)/dV(223)
  B(229) = RCT(164)*V(159)
! B(230) = dA(165)/dV(36)
  B(230) = RCT(165)*V(231)
! B(231) = dA(165)/dV(231)
  B(231) = RCT(165)*V(36)
! B(232) = dA(166)/dV(36)
  B(232) = RCT(166)*V(231)
! B(233) = dA(166)/dV(231)
  B(233) = RCT(166)*V(36)
! B(234) = dA(167)/dV(30)
  B(234) = RCT(167)*V(231)
! B(235) = dA(167)/dV(231)
  B(235) = RCT(167)*V(30)
! B(236) = dA(168)/dV(30)
  B(236) = RCT(168)*V(231)
! B(237) = dA(168)/dV(231)
  B(237) = RCT(168)*V(30)
! B(238) = dA(169)/dV(31)
  B(238) = RCT(169)*V(231)
! B(239) = dA(169)/dV(231)
  B(239) = RCT(169)*V(31)
! B(240) = dA(170)/dV(31)
  B(240) = RCT(170)*V(231)
! B(241) = dA(170)/dV(231)
  B(241) = RCT(170)*V(31)
! B(242) = dA(171)/dV(27)
  B(242) = RCT(171)*V(231)
! B(243) = dA(171)/dV(231)
  B(243) = RCT(171)*V(27)
! B(244) = dA(172)/dV(27)
  B(244) = RCT(172)*V(231)
! B(245) = dA(172)/dV(231)
  B(245) = RCT(172)*V(27)
! B(246) = dA(173)/dV(207)
  B(246) = RCT(173)*V(231)
! B(247) = dA(173)/dV(231)
  B(247) = RCT(173)*V(207)
! B(248) = dA(174)/dV(231)
  B(248) = RCT(174)*V(233)
! B(249) = dA(174)/dV(233)
  B(249) = RCT(174)*V(231)
! B(250) = dA(175)/dV(227)
  B(250) = RCT(175)*V(231)
! B(251) = dA(175)/dV(231)
  B(251) = RCT(175)*V(227)
! B(252) = dA(176)/dV(207)
  B(252) = RCT(176)*V(230)
! B(253) = dA(176)/dV(230)
  B(253) = RCT(176)*V(207)
! B(254) = dA(177)/dV(230)
  B(254) = RCT(177)*V(233)
! B(255) = dA(177)/dV(233)
  B(255) = RCT(177)*V(230)
! B(256) = dA(178)/dV(227)
  B(256) = RCT(178)*V(230)
! B(257) = dA(178)/dV(230)
  B(257) = RCT(178)*V(227)
! B(258) = dA(179)/dV(195)
  B(258) = RCT(179)*V(231)
! B(259) = dA(179)/dV(231)
  B(259) = RCT(179)*V(195)
! B(260) = dA(180)/dV(33)
  B(260) = RCT(180)*V(231)
! B(261) = dA(180)/dV(231)
  B(261) = RCT(180)*V(33)
! B(262) = dA(181)/dV(37)
  B(262) = RCT(181)*V(231)
! B(263) = dA(181)/dV(231)
  B(263) = RCT(181)*V(37)
! B(264) = dA(182)/dV(43)
  B(264) = RCT(182)*V(231)
! B(265) = dA(182)/dV(231)
  B(265) = RCT(182)*V(43)
! B(266) = dA(183)/dV(43)
  B(266) = RCT(183)*V(231)
! B(267) = dA(183)/dV(231)
  B(267) = RCT(183)*V(43)
! B(268) = dA(184)/dV(51)
  B(268) = RCT(184)*V(231)
! B(269) = dA(184)/dV(231)
  B(269) = RCT(184)*V(51)
! B(270) = dA(185)/dV(51)
  B(270) = RCT(185)*V(231)
! B(271) = dA(185)/dV(231)
  B(271) = RCT(185)*V(51)
! B(272) = dA(186)/dV(44)
  B(272) = RCT(186)*V(231)
! B(273) = dA(186)/dV(231)
  B(273) = RCT(186)*V(44)
! B(274) = dA(187)/dV(44)
  B(274) = RCT(187)*V(231)
! B(275) = dA(187)/dV(231)
  B(275) = RCT(187)*V(44)
! B(276) = dA(188)/dV(46)
  B(276) = RCT(188)*V(231)
! B(277) = dA(188)/dV(231)
  B(277) = RCT(188)*V(46)
! B(278) = dA(189)/dV(52)
  B(278) = RCT(189)*V(231)
! B(279) = dA(189)/dV(231)
  B(279) = RCT(189)*V(52)
! B(280) = dA(190)/dV(210)
  B(280) = RCT(190)*V(229)
! B(281) = dA(190)/dV(229)
  B(281) = RCT(190)*V(210)
! B(282) = dA(191)/dV(214)
  B(282) = RCT(191)*V(229)
! B(283) = dA(191)/dV(229)
  B(283) = RCT(191)*V(214)
! B(284) = dA(192)/dV(216)
  B(284) = RCT(192)*V(229)
! B(285) = dA(192)/dV(229)
  B(285) = RCT(192)*V(216)
! B(286) = dA(193)/dV(156)
  B(286) = RCT(193)*V(229)
! B(287) = dA(193)/dV(229)
  B(287) = RCT(193)*V(156)
! B(288) = dA(194)/dV(226)
  B(288) = RCT(194)*V(229)
! B(289) = dA(194)/dV(229)
  B(289) = RCT(194)*V(226)
! B(290) = dA(195)/dV(226)
  B(290) = RCT(195)*V(229)
! B(291) = dA(195)/dV(229)
  B(291) = RCT(195)*V(226)
! B(292) = dA(196)/dV(224)
  B(292) = RCT(196)*V(229)
! B(293) = dA(196)/dV(229)
  B(293) = RCT(196)*V(224)
! B(294) = dA(197)/dV(206)
  B(294) = RCT(197)*V(229)
! B(295) = dA(197)/dV(229)
  B(295) = RCT(197)*V(206)
! B(296) = dA(198)/dV(149)
  B(296) = RCT(198)*V(229)
! B(297) = dA(198)/dV(229)
  B(297) = RCT(198)*V(149)
! B(298) = dA(199)/dV(178)
  B(298) = RCT(199)*V(229)
! B(299) = dA(199)/dV(229)
  B(299) = RCT(199)*V(178)
! B(300) = dA(200)/dV(164)
  B(300) = RCT(200)*V(229)
! B(301) = dA(200)/dV(229)
  B(301) = RCT(200)*V(164)
! B(302) = dA(201)/dV(182)
  B(302) = RCT(201)*V(229)
! B(303) = dA(201)/dV(229)
  B(303) = RCT(201)*V(182)
! B(304) = dA(202)/dV(182)
  B(304) = RCT(202)*V(229)
! B(305) = dA(202)/dV(229)
  B(305) = RCT(202)*V(182)
! B(306) = dA(203)/dV(189)
  B(306) = RCT(203)*V(229)
! B(307) = dA(203)/dV(229)
  B(307) = RCT(203)*V(189)
! B(308) = dA(204)/dV(196)
  B(308) = RCT(204)*V(229)
! B(309) = dA(204)/dV(229)
  B(309) = RCT(204)*V(196)
! B(310) = dA(205)/dV(198)
  B(310) = RCT(205)*V(229)
! B(311) = dA(205)/dV(229)
  B(311) = RCT(205)*V(198)
! B(312) = dA(206)/dV(198)
  B(312) = RCT(206)*V(229)
! B(313) = dA(206)/dV(229)
  B(313) = RCT(206)*V(198)
! B(314) = dA(207)/dV(218)
  B(314) = RCT(207)*V(229)
! B(315) = dA(207)/dV(229)
  B(315) = RCT(207)*V(218)
! B(316) = dA(208)/dV(213)
  B(316) = RCT(208)*V(229)
! B(317) = dA(208)/dV(229)
  B(317) = RCT(208)*V(213)
! B(318) = dA(209)/dV(209)
  B(318) = RCT(209)*V(229)
! B(319) = dA(209)/dV(229)
  B(319) = RCT(209)*V(209)
! B(320) = dA(210)/dV(174)
  B(320) = RCT(210)*V(229)
! B(321) = dA(210)/dV(229)
  B(321) = RCT(210)*V(174)
! B(322) = dA(211)/dV(225)
  B(322) = RCT(211)*V(229)
! B(323) = dA(211)/dV(229)
  B(323) = RCT(211)*V(225)
! B(324) = dA(212)/dV(202)
  B(324) = RCT(212)*V(229)
! B(325) = dA(212)/dV(229)
  B(325) = RCT(212)*V(202)
! B(326) = dA(213)/dV(219)
  B(326) = RCT(213)*V(229)
! B(327) = dA(213)/dV(229)
  B(327) = RCT(213)*V(219)
! B(328) = dA(214)/dV(204)
  B(328) = RCT(214)*V(229)
! B(329) = dA(214)/dV(229)
  B(329) = RCT(214)*V(204)
! B(330) = dA(215)/dV(188)
  B(330) = RCT(215)*V(229)
! B(331) = dA(215)/dV(229)
  B(331) = RCT(215)*V(188)
! B(332) = dA(216)/dV(221)
  B(332) = RCT(216)*V(229)
! B(333) = dA(216)/dV(229)
  B(333) = RCT(216)*V(221)
! B(334) = dA(217)/dV(208)
  B(334) = RCT(217)*V(229)
! B(335) = dA(217)/dV(229)
  B(335) = RCT(217)*V(208)
! B(336) = dA(218)/dV(217)
  B(336) = RCT(218)*V(229)
! B(337) = dA(218)/dV(229)
  B(337) = RCT(218)*V(217)
! B(338) = dA(219)/dV(220)
  B(338) = RCT(219)*V(229)
! B(339) = dA(219)/dV(229)
  B(339) = RCT(219)*V(220)
! B(340) = dA(220)/dV(180)
  B(340) = RCT(220)*V(229)
! B(341) = dA(220)/dV(229)
  B(341) = RCT(220)*V(180)
! B(342) = dA(221)/dV(180)
  B(342) = RCT(221)*V(229)
! B(343) = dA(221)/dV(229)
  B(343) = RCT(221)*V(180)
! B(344) = dA(222)/dV(201)
  B(344) = RCT(222)*V(229)
! B(345) = dA(222)/dV(229)
  B(345) = RCT(222)*V(201)
! B(346) = dA(223)/dV(201)
  B(346) = RCT(223)*V(229)
! B(347) = dA(223)/dV(229)
  B(347) = RCT(223)*V(201)
! B(348) = dA(224)/dV(200)
  B(348) = RCT(224)*V(229)
! B(349) = dA(224)/dV(229)
  B(349) = RCT(224)*V(200)
! B(350) = dA(225)/dV(200)
  B(350) = RCT(225)*V(229)
! B(351) = dA(225)/dV(229)
  B(351) = RCT(225)*V(200)
! B(352) = dA(226)/dV(200)
  B(352) = RCT(226)*V(229)
! B(353) = dA(226)/dV(229)
  B(353) = RCT(226)*V(200)
! B(354) = dA(227)/dV(148)
  B(354) = RCT(227)*V(229)
! B(355) = dA(227)/dV(229)
  B(355) = RCT(227)*V(148)
! B(356) = dA(228)/dV(167)
  B(356) = RCT(228)*V(229)
! B(357) = dA(228)/dV(229)
  B(357) = RCT(228)*V(167)
! B(358) = dA(229)/dV(145)
  B(358) = RCT(229)*V(229)
! B(359) = dA(229)/dV(229)
  B(359) = RCT(229)*V(145)
! B(360) = dA(230)/dV(144)
  B(360) = RCT(230)*V(229)
! B(361) = dA(230)/dV(229)
  B(361) = RCT(230)*V(144)
! B(362) = dA(231)/dV(186)
  B(362) = RCT(231)*V(229)
! B(363) = dA(231)/dV(229)
  B(363) = RCT(231)*V(186)
! B(364) = dA(232)/dV(193)
  B(364) = RCT(232)*V(229)
! B(365) = dA(232)/dV(229)
  B(365) = RCT(232)*V(193)
! B(366) = dA(233)/dV(193)
  B(366) = RCT(233)*V(229)
! B(367) = dA(233)/dV(229)
  B(367) = RCT(233)*V(193)
! B(368) = dA(234)/dV(146)
  B(368) = RCT(234)*V(229)
! B(369) = dA(234)/dV(229)
  B(369) = RCT(234)*V(146)
! B(370) = dA(235)/dV(222)
  B(370) = RCT(235)*V(229)
! B(371) = dA(235)/dV(229)
  B(371) = RCT(235)*V(222)
! B(372) = dA(236)/dV(212)
  B(372) = RCT(236)*V(229)
! B(373) = dA(236)/dV(229)
  B(373) = RCT(236)*V(212)
! B(374) = dA(237)/dV(158)
  B(374) = RCT(237)*V(229)
! B(375) = dA(237)/dV(229)
  B(375) = RCT(237)*V(158)
! B(376) = dA(238)/dV(205)
  B(376) = RCT(238)*V(229)
! B(377) = dA(238)/dV(229)
  B(377) = RCT(238)*V(205)
! B(378) = dA(239)/dV(194)
  B(378) = RCT(239)*V(229)
! B(379) = dA(239)/dV(229)
  B(379) = RCT(239)*V(194)
! B(380) = dA(240)/dV(184)
  B(380) = RCT(240)*V(229)
! B(381) = dA(240)/dV(229)
  B(381) = RCT(240)*V(184)
! B(382) = dA(241)/dV(185)
  B(382) = RCT(241)*V(229)
! B(383) = dA(241)/dV(229)
  B(383) = RCT(241)*V(185)
! B(384) = dA(242)/dV(185)
  B(384) = RCT(242)*V(229)
! B(385) = dA(242)/dV(229)
  B(385) = RCT(242)*V(185)
! B(386) = dA(243)/dV(169)
  B(386) = RCT(243)*V(229)
! B(387) = dA(243)/dV(229)
  B(387) = RCT(243)*V(169)
! B(388) = dA(244)/dV(215)
  B(388) = RCT(244)*V(229)
! B(389) = dA(244)/dV(229)
  B(389) = RCT(244)*V(215)
! B(390) = dA(245)/dV(215)
  B(390) = RCT(245)*V(229)
! B(391) = dA(245)/dV(229)
  B(391) = RCT(245)*V(215)
! B(392) = dA(246)/dV(211)
  B(392) = RCT(246)*V(229)
! B(393) = dA(246)/dV(229)
  B(393) = RCT(246)*V(211)
! B(394) = dA(247)/dV(210)
  B(394) = RCT(247)*V(229)
! B(395) = dA(247)/dV(229)
  B(395) = RCT(247)*V(210)
! B(396) = dA(248)/dV(214)
  B(396) = RCT(248)*V(229)
! B(397) = dA(248)/dV(229)
  B(397) = RCT(248)*V(214)
! B(398) = dA(249)/dV(216)
  B(398) = RCT(249)*V(229)
! B(399) = dA(249)/dV(229)
  B(399) = RCT(249)*V(216)
! B(400) = dA(250)/dV(156)
  B(400) = RCT(250)*V(229)
! B(401) = dA(250)/dV(229)
  B(401) = RCT(250)*V(156)
! B(402) = dA(251)/dV(226)
  B(402) = RCT(251)*V(229)
! B(403) = dA(251)/dV(229)
  B(403) = RCT(251)*V(226)
! B(404) = dA(252)/dV(224)
  B(404) = RCT(252)*V(229)
! B(405) = dA(252)/dV(229)
  B(405) = RCT(252)*V(224)
! B(406) = dA(253)/dV(206)
  B(406) = RCT(253)*V(229)
! B(407) = dA(253)/dV(229)
  B(407) = RCT(253)*V(206)
! B(408) = dA(254)/dV(198)
  B(408) = RCT(254)*V(229)
! B(409) = dA(254)/dV(229)
  B(409) = RCT(254)*V(198)
! B(410) = dA(255)/dV(218)
  B(410) = RCT(255)*V(229)
! B(411) = dA(255)/dV(229)
  B(411) = RCT(255)*V(218)
! B(412) = dA(256)/dV(213)
  B(412) = RCT(256)*V(229)
! B(413) = dA(256)/dV(229)
  B(413) = RCT(256)*V(213)
! B(414) = dA(257)/dV(209)
  B(414) = RCT(257)*V(229)
! B(415) = dA(257)/dV(229)
  B(415) = RCT(257)*V(209)
! B(416) = dA(258)/dV(174)
  B(416) = RCT(258)*V(229)
! B(417) = dA(258)/dV(229)
  B(417) = RCT(258)*V(174)
! B(418) = dA(259)/dV(225)
  B(418) = RCT(259)*V(229)
! B(419) = dA(259)/dV(229)
  B(419) = RCT(259)*V(225)
! B(420) = dA(260)/dV(202)
  B(420) = RCT(260)*V(229)
! B(421) = dA(260)/dV(229)
  B(421) = RCT(260)*V(202)
! B(422) = dA(261)/dV(180)
  B(422) = RCT(261)*V(229)
! B(423) = dA(261)/dV(229)
  B(423) = RCT(261)*V(180)
! B(424) = dA(262)/dV(164)
  B(424) = RCT(262)*V(229)
! B(425) = dA(262)/dV(229)
  B(425) = RCT(262)*V(164)
! B(426) = dA(263)/dV(182)
  B(426) = RCT(263)*V(229)
! B(427) = dA(263)/dV(229)
  B(427) = RCT(263)*V(182)
! B(428) = dA(264)/dV(189)
  B(428) = RCT(264)*V(229)
! B(429) = dA(264)/dV(229)
  B(429) = RCT(264)*V(189)
! B(430) = dA(265)/dV(196)
  B(430) = RCT(265)*V(229)
! B(431) = dA(265)/dV(229)
  B(431) = RCT(265)*V(196)
! B(432) = dA(266)/dV(193)
  B(432) = RCT(266)*V(229)
! B(433) = dA(266)/dV(229)
  B(433) = RCT(266)*V(193)
! B(434) = dA(267)/dV(212)
  B(434) = RCT(267)*V(229)
! B(435) = dA(267)/dV(229)
  B(435) = RCT(267)*V(212)
! B(436) = dA(268)/dV(185)
  B(436) = RCT(268)*V(229)
! B(437) = dA(268)/dV(229)
  B(437) = RCT(268)*V(185)
! B(438) = dA(269)/dV(215)
  B(438) = RCT(269)*V(229)
! B(439) = dA(269)/dV(229)
  B(439) = RCT(269)*V(215)
! B(440) = dA(270)/dV(211)
  B(440) = RCT(270)*V(229)
! B(441) = dA(270)/dV(229)
  B(441) = RCT(270)*V(211)
! B(442) = dA(271)/dV(210)
  B(442) = RCT(271)*V(230)
! B(443) = dA(271)/dV(230)
  B(443) = RCT(271)*V(210)
! B(444) = dA(272)/dV(214)
  B(444) = RCT(272)*V(230)
! B(445) = dA(272)/dV(230)
  B(445) = RCT(272)*V(214)
! B(446) = dA(273)/dV(216)
  B(446) = RCT(273)*V(230)
! B(447) = dA(273)/dV(230)
  B(447) = RCT(273)*V(216)
! B(448) = dA(274)/dV(156)
  B(448) = RCT(274)*V(230)
! B(449) = dA(274)/dV(230)
  B(449) = RCT(274)*V(156)
! B(450) = dA(275)/dV(226)
  B(450) = RCT(275)*V(230)
! B(451) = dA(275)/dV(230)
  B(451) = RCT(275)*V(226)
! B(452) = dA(276)/dV(226)
  B(452) = RCT(276)*V(230)
! B(453) = dA(276)/dV(230)
  B(453) = RCT(276)*V(226)
! B(454) = dA(277)/dV(224)
  B(454) = RCT(277)*V(230)
! B(455) = dA(277)/dV(230)
  B(455) = RCT(277)*V(224)
! B(456) = dA(278)/dV(206)
  B(456) = RCT(278)*V(230)
! B(457) = dA(278)/dV(230)
  B(457) = RCT(278)*V(206)
! B(458) = dA(279)/dV(149)
  B(458) = RCT(279)*V(230)
! B(459) = dA(279)/dV(230)
  B(459) = RCT(279)*V(149)
! B(460) = dA(280)/dV(178)
  B(460) = RCT(280)*V(230)
! B(461) = dA(280)/dV(230)
  B(461) = RCT(280)*V(178)
! B(462) = dA(281)/dV(164)
  B(462) = RCT(281)*V(230)
! B(463) = dA(281)/dV(230)
  B(463) = RCT(281)*V(164)
! B(464) = dA(282)/dV(182)
  B(464) = RCT(282)*V(230)
! B(465) = dA(282)/dV(230)
  B(465) = RCT(282)*V(182)
! B(466) = dA(283)/dV(182)
  B(466) = RCT(283)*V(230)
! B(467) = dA(283)/dV(230)
  B(467) = RCT(283)*V(182)
! B(468) = dA(284)/dV(189)
  B(468) = RCT(284)*V(230)
! B(469) = dA(284)/dV(230)
  B(469) = RCT(284)*V(189)
! B(470) = dA(285)/dV(196)
  B(470) = RCT(285)*V(230)
! B(471) = dA(285)/dV(230)
  B(471) = RCT(285)*V(196)
! B(472) = dA(286)/dV(198)
  B(472) = RCT(286)*V(230)
! B(473) = dA(286)/dV(230)
  B(473) = RCT(286)*V(198)
! B(474) = dA(287)/dV(198)
  B(474) = RCT(287)*V(230)
! B(475) = dA(287)/dV(230)
  B(475) = RCT(287)*V(198)
! B(476) = dA(288)/dV(218)
  B(476) = RCT(288)*V(230)
! B(477) = dA(288)/dV(230)
  B(477) = RCT(288)*V(218)
! B(478) = dA(289)/dV(213)
  B(478) = RCT(289)*V(230)
! B(479) = dA(289)/dV(230)
  B(479) = RCT(289)*V(213)
! B(480) = dA(290)/dV(209)
  B(480) = RCT(290)*V(230)
! B(481) = dA(290)/dV(230)
  B(481) = RCT(290)*V(209)
! B(482) = dA(291)/dV(174)
  B(482) = RCT(291)*V(230)
! B(483) = dA(291)/dV(230)
  B(483) = RCT(291)*V(174)
! B(484) = dA(292)/dV(225)
  B(484) = RCT(292)*V(230)
! B(485) = dA(292)/dV(230)
  B(485) = RCT(292)*V(225)
! B(486) = dA(293)/dV(202)
  B(486) = RCT(293)*V(230)
! B(487) = dA(293)/dV(230)
  B(487) = RCT(293)*V(202)
! B(488) = dA(294)/dV(219)
  B(488) = RCT(294)*V(230)
! B(489) = dA(294)/dV(230)
  B(489) = RCT(294)*V(219)
! B(490) = dA(295)/dV(204)
  B(490) = RCT(295)*V(230)
! B(491) = dA(295)/dV(230)
  B(491) = RCT(295)*V(204)
! B(492) = dA(296)/dV(188)
  B(492) = RCT(296)*V(230)
! B(493) = dA(296)/dV(230)
  B(493) = RCT(296)*V(188)
! B(494) = dA(297)/dV(221)
  B(494) = RCT(297)*V(230)
! B(495) = dA(297)/dV(230)
  B(495) = RCT(297)*V(221)
! B(496) = dA(298)/dV(208)
  B(496) = RCT(298)*V(230)
! B(497) = dA(298)/dV(230)
  B(497) = RCT(298)*V(208)
! B(498) = dA(299)/dV(217)
  B(498) = RCT(299)*V(230)
! B(499) = dA(299)/dV(230)
  B(499) = RCT(299)*V(217)
! B(500) = dA(300)/dV(220)
  B(500) = RCT(300)*V(230)
! B(501) = dA(300)/dV(230)
  B(501) = RCT(300)*V(220)
! B(502) = dA(301)/dV(180)
  B(502) = RCT(301)*V(230)
! B(503) = dA(301)/dV(230)
  B(503) = RCT(301)*V(180)
! B(504) = dA(302)/dV(180)
  B(504) = RCT(302)*V(230)
! B(505) = dA(302)/dV(230)
  B(505) = RCT(302)*V(180)
! B(506) = dA(303)/dV(201)
  B(506) = RCT(303)*V(230)
! B(507) = dA(303)/dV(230)
  B(507) = RCT(303)*V(201)
! B(508) = dA(304)/dV(201)
  B(508) = RCT(304)*V(230)
! B(509) = dA(304)/dV(230)
  B(509) = RCT(304)*V(201)
! B(510) = dA(305)/dV(200)
  B(510) = RCT(305)*V(230)
! B(511) = dA(305)/dV(230)
  B(511) = RCT(305)*V(200)
! B(512) = dA(306)/dV(200)
  B(512) = RCT(306)*V(230)
! B(513) = dA(306)/dV(230)
  B(513) = RCT(306)*V(200)
! B(514) = dA(307)/dV(200)
  B(514) = RCT(307)*V(230)
! B(515) = dA(307)/dV(230)
  B(515) = RCT(307)*V(200)
! B(516) = dA(308)/dV(148)
  B(516) = RCT(308)*V(230)
! B(517) = dA(308)/dV(230)
  B(517) = RCT(308)*V(148)
! B(518) = dA(309)/dV(167)
  B(518) = RCT(309)*V(230)
! B(519) = dA(309)/dV(230)
  B(519) = RCT(309)*V(167)
! B(520) = dA(310)/dV(145)
  B(520) = RCT(310)*V(230)
! B(521) = dA(310)/dV(230)
  B(521) = RCT(310)*V(145)
! B(522) = dA(311)/dV(144)
  B(522) = RCT(311)*V(230)
! B(523) = dA(311)/dV(230)
  B(523) = RCT(311)*V(144)
! B(524) = dA(312)/dV(186)
  B(524) = RCT(312)*V(230)
! B(525) = dA(312)/dV(230)
  B(525) = RCT(312)*V(186)
! B(526) = dA(313)/dV(193)
  B(526) = RCT(313)*V(230)
! B(527) = dA(313)/dV(230)
  B(527) = RCT(313)*V(193)
! B(528) = dA(314)/dV(146)
  B(528) = RCT(314)*V(230)
! B(529) = dA(314)/dV(230)
  B(529) = RCT(314)*V(146)
! B(530) = dA(315)/dV(222)
  B(530) = RCT(315)*V(230)
! B(531) = dA(315)/dV(230)
  B(531) = RCT(315)*V(222)
! B(532) = dA(316)/dV(212)
  B(532) = RCT(316)*V(230)
! B(533) = dA(316)/dV(230)
  B(533) = RCT(316)*V(212)
! B(534) = dA(317)/dV(158)
  B(534) = RCT(317)*V(230)
! B(535) = dA(317)/dV(230)
  B(535) = RCT(317)*V(158)
! B(536) = dA(318)/dV(205)
  B(536) = RCT(318)*V(230)
! B(537) = dA(318)/dV(230)
  B(537) = RCT(318)*V(205)
! B(538) = dA(319)/dV(194)
  B(538) = RCT(319)*V(230)
! B(539) = dA(319)/dV(230)
  B(539) = RCT(319)*V(194)
! B(540) = dA(320)/dV(184)
  B(540) = RCT(320)*V(230)
! B(541) = dA(320)/dV(230)
  B(541) = RCT(320)*V(184)
! B(542) = dA(321)/dV(185)
  B(542) = RCT(321)*V(230)
! B(543) = dA(321)/dV(230)
  B(543) = RCT(321)*V(185)
! B(544) = dA(322)/dV(215)
  B(544) = RCT(322)*V(230)
! B(545) = dA(322)/dV(230)
  B(545) = RCT(322)*V(215)
! B(546) = dA(323)/dV(211)
  B(546) = RCT(323)*V(230)
! B(547) = dA(323)/dV(230)
  B(547) = RCT(323)*V(211)
! B(548) = dA(324)/dV(169)
  B(548) = RCT(324)*V(230)
! B(549) = dA(324)/dV(230)
  B(549) = RCT(324)*V(169)
! B(550) = dA(325)/dV(210)
  B(550) = RCT(325)*V(228)
! B(551) = dA(325)/dV(228)
  B(551) = RCT(325)*V(210)
! B(552) = dA(326)/dV(214)
  B(552) = RCT(326)*V(228)
! B(553) = dA(326)/dV(228)
  B(553) = RCT(326)*V(214)
! B(554) = dA(327)/dV(216)
  B(554) = RCT(327)*V(228)
! B(555) = dA(327)/dV(228)
  B(555) = RCT(327)*V(216)
! B(556) = dA(328)/dV(156)
  B(556) = RCT(328)*V(228)
! B(557) = dA(328)/dV(228)
  B(557) = RCT(328)*V(156)
! B(558) = dA(329)/dV(226)
  B(558) = RCT(329)*V(228)
! B(559) = dA(329)/dV(228)
  B(559) = RCT(329)*V(226)
! B(560) = dA(330)/dV(224)
  B(560) = RCT(330)*V(228)
! B(561) = dA(330)/dV(228)
  B(561) = RCT(330)*V(224)
! B(562) = dA(331)/dV(206)
  B(562) = RCT(331)*V(228)
! B(563) = dA(331)/dV(228)
  B(563) = RCT(331)*V(206)
! B(564) = dA(332)/dV(149)
  B(564) = RCT(332)*V(228)
! B(565) = dA(332)/dV(228)
  B(565) = RCT(332)*V(149)
! B(566) = dA(333)/dV(178)
  B(566) = RCT(333)*V(228)
! B(567) = dA(333)/dV(228)
  B(567) = RCT(333)*V(178)
! B(568) = dA(334)/dV(164)
  B(568) = RCT(334)*V(228)
! B(569) = dA(334)/dV(228)
  B(569) = RCT(334)*V(164)
! B(570) = dA(335)/dV(182)
  B(570) = RCT(335)*V(228)
! B(571) = dA(335)/dV(228)
  B(571) = RCT(335)*V(182)
! B(572) = dA(336)/dV(189)
  B(572) = RCT(336)*V(228)
! B(573) = dA(336)/dV(228)
  B(573) = RCT(336)*V(189)
! B(574) = dA(337)/dV(196)
  B(574) = RCT(337)*V(228)
! B(575) = dA(337)/dV(228)
  B(575) = RCT(337)*V(196)
! B(576) = dA(338)/dV(198)
  B(576) = RCT(338)*V(228)
! B(577) = dA(338)/dV(228)
  B(577) = RCT(338)*V(198)
! B(578) = dA(339)/dV(218)
  B(578) = RCT(339)*V(228)
! B(579) = dA(339)/dV(228)
  B(579) = RCT(339)*V(218)
! B(580) = dA(340)/dV(213)
  B(580) = RCT(340)*V(228)
! B(581) = dA(340)/dV(228)
  B(581) = RCT(340)*V(213)
! B(582) = dA(341)/dV(209)
  B(582) = RCT(341)*V(228)
! B(583) = dA(341)/dV(228)
  B(583) = RCT(341)*V(209)
! B(584) = dA(342)/dV(174)
  B(584) = RCT(342)*V(228)
! B(585) = dA(342)/dV(228)
  B(585) = RCT(342)*V(174)
! B(586) = dA(343)/dV(225)
  B(586) = RCT(343)*V(228)
! B(587) = dA(343)/dV(228)
  B(587) = RCT(343)*V(225)
! B(588) = dA(344)/dV(202)
  B(588) = RCT(344)*V(228)
! B(589) = dA(344)/dV(228)
  B(589) = RCT(344)*V(202)
! B(590) = dA(345)/dV(219)
  B(590) = RCT(345)*V(228)
! B(591) = dA(345)/dV(228)
  B(591) = RCT(345)*V(219)
! B(592) = dA(346)/dV(204)
  B(592) = RCT(346)*V(228)
! B(593) = dA(346)/dV(228)
  B(593) = RCT(346)*V(204)
! B(594) = dA(347)/dV(188)
  B(594) = RCT(347)*V(228)
! B(595) = dA(347)/dV(228)
  B(595) = RCT(347)*V(188)
! B(596) = dA(348)/dV(221)
  B(596) = RCT(348)*V(228)
! B(597) = dA(348)/dV(228)
  B(597) = RCT(348)*V(221)
! B(598) = dA(349)/dV(208)
  B(598) = RCT(349)*V(228)
! B(599) = dA(349)/dV(228)
  B(599) = RCT(349)*V(208)
! B(600) = dA(350)/dV(217)
  B(600) = RCT(350)*V(228)
! B(601) = dA(350)/dV(228)
  B(601) = RCT(350)*V(217)
! B(602) = dA(351)/dV(220)
  B(602) = RCT(351)*V(228)
! B(603) = dA(351)/dV(228)
  B(603) = RCT(351)*V(220)
! B(604) = dA(352)/dV(180)
  B(604) = RCT(352)*V(228)
! B(605) = dA(352)/dV(228)
  B(605) = RCT(352)*V(180)
! B(606) = dA(353)/dV(201)
  B(606) = RCT(353)*V(228)
! B(607) = dA(353)/dV(228)
  B(607) = RCT(353)*V(201)
! B(608) = dA(354)/dV(200)
  B(608) = RCT(354)*V(228)
! B(609) = dA(354)/dV(228)
  B(609) = RCT(354)*V(200)
! B(610) = dA(355)/dV(148)
  B(610) = RCT(355)*V(228)
! B(611) = dA(355)/dV(228)
  B(611) = RCT(355)*V(148)
! B(612) = dA(356)/dV(167)
  B(612) = RCT(356)*V(228)
! B(613) = dA(356)/dV(228)
  B(613) = RCT(356)*V(167)
! B(614) = dA(357)/dV(145)
  B(614) = RCT(357)*V(228)
! B(615) = dA(357)/dV(228)
  B(615) = RCT(357)*V(145)
! B(616) = dA(358)/dV(144)
  B(616) = RCT(358)*V(228)
! B(617) = dA(358)/dV(228)
  B(617) = RCT(358)*V(144)
! B(618) = dA(359)/dV(186)
  B(618) = RCT(359)*V(228)
! B(619) = dA(359)/dV(228)
  B(619) = RCT(359)*V(186)
! B(620) = dA(360)/dV(193)
  B(620) = RCT(360)*V(228)
! B(621) = dA(360)/dV(228)
  B(621) = RCT(360)*V(193)
! B(622) = dA(361)/dV(146)
  B(622) = RCT(361)*V(228)
! B(623) = dA(361)/dV(228)
  B(623) = RCT(361)*V(146)
! B(624) = dA(362)/dV(222)
  B(624) = RCT(362)*V(228)
! B(625) = dA(362)/dV(228)
  B(625) = RCT(362)*V(222)
! B(626) = dA(363)/dV(212)
  B(626) = RCT(363)*V(228)
! B(627) = dA(363)/dV(228)
  B(627) = RCT(363)*V(212)
! B(628) = dA(364)/dV(158)
  B(628) = RCT(364)*V(228)
! B(629) = dA(364)/dV(228)
  B(629) = RCT(364)*V(158)
! B(630) = dA(365)/dV(205)
  B(630) = RCT(365)*V(228)
! B(631) = dA(365)/dV(228)
  B(631) = RCT(365)*V(205)
! B(632) = dA(366)/dV(194)
  B(632) = RCT(366)*V(228)
! B(633) = dA(366)/dV(228)
  B(633) = RCT(366)*V(194)
! B(634) = dA(367)/dV(184)
  B(634) = RCT(367)*V(228)
! B(635) = dA(367)/dV(228)
  B(635) = RCT(367)*V(184)
! B(636) = dA(368)/dV(185)
  B(636) = RCT(368)*V(228)
! B(637) = dA(368)/dV(228)
  B(637) = RCT(368)*V(185)
! B(638) = dA(369)/dV(215)
  B(638) = RCT(369)*V(228)
! B(639) = dA(369)/dV(228)
  B(639) = RCT(369)*V(215)
! B(640) = dA(370)/dV(211)
  B(640) = RCT(370)*V(228)
! B(641) = dA(370)/dV(228)
  B(641) = RCT(370)*V(211)
! B(642) = dA(371)/dV(169)
  B(642) = RCT(371)*V(228)
! B(643) = dA(371)/dV(228)
  B(643) = RCT(371)*V(169)
! B(644) = dA(372)/dV(210)
  B(644) = RCT(372)
! B(645) = dA(373)/dV(210)
  B(645) = RCT(373)
! B(646) = dA(374)/dV(210)
  B(646) = RCT(374)
! B(647) = dA(375)/dV(214)
  B(647) = RCT(375)
! B(648) = dA(376)/dV(214)
  B(648) = RCT(376)
! B(649) = dA(377)/dV(214)
  B(649) = RCT(377)
! B(650) = dA(378)/dV(216)
  B(650) = RCT(378)
! B(651) = dA(379)/dV(216)
  B(651) = RCT(379)
! B(652) = dA(380)/dV(216)
  B(652) = RCT(380)
! B(653) = dA(381)/dV(156)
  B(653) = RCT(381)
! B(654) = dA(382)/dV(156)
  B(654) = RCT(382)
! B(655) = dA(383)/dV(156)
  B(655) = RCT(383)
! B(656) = dA(384)/dV(226)
  B(656) = RCT(384)
! B(657) = dA(385)/dV(226)
  B(657) = RCT(385)
! B(658) = dA(386)/dV(149)
  B(658) = RCT(386)
! B(659) = dA(387)/dV(178)
  B(659) = RCT(387)
! B(660) = dA(388)/dV(164)
  B(660) = RCT(388)
! B(661) = dA(389)/dV(182)
  B(661) = RCT(389)
! B(662) = dA(390)/dV(182)
  B(662) = RCT(390)
! B(663) = dA(391)/dV(189)
  B(663) = RCT(391)
! B(664) = dA(392)/dV(196)
  B(664) = RCT(392)
! B(665) = dA(393)/dV(224)
  B(665) = RCT(393)
! B(666) = dA(394)/dV(206)
  B(666) = RCT(394)
! B(667) = dA(395)/dV(198)
  B(667) = RCT(395)
! B(668) = dA(396)/dV(198)
  B(668) = RCT(396)
! B(669) = dA(397)/dV(218)
  B(669) = RCT(397)
! B(670) = dA(398)/dV(213)
  B(670) = RCT(398)
! B(671) = dA(399)/dV(209)
  B(671) = RCT(399)
! B(672) = dA(400)/dV(174)
  B(672) = RCT(400)
! B(673) = dA(401)/dV(225)
  B(673) = RCT(401)
! B(674) = dA(402)/dV(202)
  B(674) = RCT(402)
! B(675) = dA(403)/dV(219)
  B(675) = RCT(403)
! B(676) = dA(404)/dV(204)
  B(676) = RCT(404)
! B(677) = dA(405)/dV(188)
  B(677) = RCT(405)
! B(678) = dA(406)/dV(221)
  B(678) = RCT(406)
! B(679) = dA(407)/dV(208)
  B(679) = RCT(407)
! B(680) = dA(408)/dV(217)
  B(680) = RCT(408)
! B(681) = dA(409)/dV(220)
  B(681) = RCT(409)
! B(682) = dA(410)/dV(180)
  B(682) = RCT(410)
! B(683) = dA(411)/dV(180)
  B(683) = RCT(411)
! B(684) = dA(412)/dV(201)
  B(684) = RCT(412)
! B(685) = dA(413)/dV(201)
  B(685) = RCT(413)
! B(686) = dA(414)/dV(200)
  B(686) = RCT(414)
! B(687) = dA(415)/dV(200)
  B(687) = RCT(415)
! B(688) = dA(416)/dV(200)
  B(688) = RCT(416)
! B(689) = dA(417)/dV(148)
  B(689) = RCT(417)
! B(690) = dA(418)/dV(167)
  B(690) = RCT(418)
! B(691) = dA(419)/dV(145)
  B(691) = RCT(419)
! B(692) = dA(420)/dV(144)
  B(692) = RCT(420)
! B(693) = dA(421)/dV(186)
  B(693) = RCT(421)
! B(694) = dA(422)/dV(193)
  B(694) = RCT(422)
! B(695) = dA(423)/dV(146)
  B(695) = RCT(423)
! B(696) = dA(424)/dV(222)
  B(696) = RCT(424)
! B(697) = dA(425)/dV(212)
  B(697) = RCT(425)
! B(698) = dA(426)/dV(158)
  B(698) = RCT(426)
! B(699) = dA(427)/dV(205)
  B(699) = RCT(427)
! B(700) = dA(428)/dV(194)
  B(700) = RCT(428)
! B(701) = dA(429)/dV(184)
  B(701) = RCT(429)
! B(702) = dA(430)/dV(185)
  B(702) = RCT(430)
! B(703) = dA(431)/dV(215)
  B(703) = RCT(431)
! B(704) = dA(432)/dV(211)
  B(704) = RCT(432)
! B(705) = dA(433)/dV(169)
  B(705) = RCT(433)
! B(706) = dA(434)/dV(138)
  B(706) = RCT(434)*V(231)
! B(707) = dA(434)/dV(231)
  B(707) = RCT(434)*V(138)
! B(708) = dA(435)/dV(132)
  B(708) = RCT(435)*V(231)
! B(709) = dA(435)/dV(231)
  B(709) = RCT(435)*V(132)
! B(710) = dA(436)/dV(141)
  B(710) = RCT(436)*V(231)
! B(711) = dA(436)/dV(231)
  B(711) = RCT(436)*V(141)
! B(712) = dA(437)/dV(179)
  B(712) = RCT(437)*V(231)
! B(713) = dA(437)/dV(231)
  B(713) = RCT(437)*V(179)
! B(714) = dA(438)/dV(140)
  B(714) = RCT(438)*V(231)
! B(715) = dA(438)/dV(231)
  B(715) = RCT(438)*V(140)
! B(716) = dA(439)/dV(168)
  B(716) = RCT(439)*V(231)
! B(717) = dA(439)/dV(231)
  B(717) = RCT(439)*V(168)
! B(718) = dA(440)/dV(181)
  B(718) = RCT(440)*V(231)
! B(719) = dA(440)/dV(231)
  B(719) = RCT(440)*V(181)
! B(720) = dA(441)/dV(203)
  B(720) = RCT(441)*V(231)
! B(721) = dA(441)/dV(231)
  B(721) = RCT(441)*V(203)
! B(722) = dA(442)/dV(203)
  B(722) = RCT(442)*V(230)
! B(723) = dA(442)/dV(230)
  B(723) = RCT(442)*V(203)
! B(724) = dA(443)/dV(203)
  B(724) = RCT(443)*V(223)
! B(725) = dA(443)/dV(223)
  B(725) = RCT(443)*V(203)
! B(726) = dA(444)/dV(203)
  B(726) = RCT(444)*V(223)
! B(727) = dA(444)/dV(223)
  B(727) = RCT(444)*V(203)
! B(728) = dA(445)/dV(199)
  B(728) = RCT(445)*V(231)
! B(729) = dA(445)/dV(231)
  B(729) = RCT(445)*V(199)
! B(730) = dA(446)/dV(199)
  B(730) = RCT(446)*V(230)
! B(731) = dA(446)/dV(230)
  B(731) = RCT(446)*V(199)
! B(732) = dA(447)/dV(151)
  B(732) = RCT(447)*V(231)
! B(733) = dA(447)/dV(231)
  B(733) = RCT(447)*V(151)
! B(734) = dA(448)/dV(190)
  B(734) = RCT(448)*V(231)
! B(735) = dA(448)/dV(231)
  B(735) = RCT(448)*V(190)
! B(736) = dA(449)/dV(147)
  B(736) = RCT(449)*V(231)
! B(737) = dA(449)/dV(231)
  B(737) = RCT(449)*V(147)
! B(738) = dA(450)/dV(45)
  B(738) = RCT(450)*V(231)
! B(739) = dA(450)/dV(231)
  B(739) = RCT(450)*V(45)
! B(740) = dA(451)/dV(38)
  B(740) = RCT(451)*V(231)
! B(741) = dA(451)/dV(231)
  B(741) = RCT(451)*V(38)
! B(742) = dA(452)/dV(39)
  B(742) = RCT(452)*V(231)
! B(743) = dA(452)/dV(231)
  B(743) = RCT(452)*V(39)
! B(744) = dA(453)/dV(191)
  B(744) = RCT(453)*V(231)
! B(745) = dA(453)/dV(231)
  B(745) = RCT(453)*V(191)
! B(746) = dA(454)/dV(191)
  B(746) = RCT(454)*V(230)
! B(747) = dA(454)/dV(230)
  B(747) = RCT(454)*V(191)
! B(748) = dA(455)/dV(191)
  B(748) = RCT(455)*V(223)
! B(749) = dA(455)/dV(223)
  B(749) = RCT(455)*V(191)
! B(750) = dA(456)/dV(191)
  B(750) = RCT(456)*V(223)
! B(751) = dA(456)/dV(223)
  B(751) = RCT(456)*V(191)
! B(752) = dA(457)/dV(152)
  B(752) = RCT(457)*V(231)
! B(753) = dA(457)/dV(231)
  B(753) = RCT(457)*V(152)
! B(754) = dA(458)/dV(163)
  B(754) = RCT(458)*V(231)
! B(755) = dA(458)/dV(231)
  B(755) = RCT(458)*V(163)
! B(756) = dA(459)/dV(155)
  B(756) = RCT(459)*V(231)
! B(757) = dA(459)/dV(231)
  B(757) = RCT(459)*V(155)
! B(758) = dA(460)/dV(183)
  B(758) = RCT(460)*V(231)
! B(759) = dA(460)/dV(231)
  B(759) = RCT(460)*V(183)
! B(760) = dA(461)/dV(170)
  B(760) = RCT(461)*V(231)
! B(761) = dA(461)/dV(231)
  B(761) = RCT(461)*V(170)
! B(762) = dA(462)/dV(166)
  B(762) = RCT(462)*V(231)
! B(763) = dA(462)/dV(231)
  B(763) = RCT(462)*V(166)
! B(764) = dA(463)/dV(34)
  B(764) = RCT(463)*V(231)
! B(765) = dA(463)/dV(231)
  B(765) = RCT(463)*V(34)
! B(766) = dA(464)/dV(160)
  B(766) = RCT(464)*V(231)
! B(767) = dA(464)/dV(231)
  B(767) = RCT(464)*V(160)
! B(768) = dA(465)/dV(166)
  B(768) = RCT(465)*V(230)
! B(769) = dA(465)/dV(230)
  B(769) = RCT(465)*V(166)
! B(770) = dA(466)/dV(160)
  B(770) = RCT(466)*V(230)
! B(771) = dA(466)/dV(230)
  B(771) = RCT(466)*V(160)
! B(772) = dA(467)/dV(40)
  B(772) = RCT(467)*V(231)
! B(773) = dA(467)/dV(231)
  B(773) = RCT(467)*V(40)
! B(774) = dA(468)/dV(133)
  B(774) = RCT(468)*V(231)
! B(775) = dA(468)/dV(231)
  B(775) = RCT(468)*V(133)
! B(776) = dA(469)/dV(108)
  B(776) = RCT(469)*V(231)
! B(777) = dA(469)/dV(231)
  B(777) = RCT(469)*V(108)
! B(778) = dA(470)/dV(90)
  B(778) = RCT(470)*V(231)
! B(779) = dA(470)/dV(231)
  B(779) = RCT(470)*V(90)
! B(780) = dA(471)/dV(91)
  B(780) = RCT(471)*V(231)
! B(781) = dA(471)/dV(231)
  B(781) = RCT(471)*V(91)
! B(782) = dA(472)/dV(94)
  B(782) = RCT(472)*V(231)
! B(783) = dA(472)/dV(231)
  B(783) = RCT(472)*V(94)
! B(784) = dA(473)/dV(84)
  B(784) = RCT(473)*V(231)
! B(785) = dA(473)/dV(231)
  B(785) = RCT(473)*V(84)
! B(786) = dA(474)/dV(135)
  B(786) = RCT(474)*V(231)
! B(787) = dA(474)/dV(231)
  B(787) = RCT(474)*V(135)
! B(788) = dA(475)/dV(79)
  B(788) = RCT(475)*V(231)
! B(789) = dA(475)/dV(231)
  B(789) = RCT(475)*V(79)
! B(790) = dA(476)/dV(98)
  B(790) = RCT(476)*V(231)
! B(791) = dA(476)/dV(231)
  B(791) = RCT(476)*V(98)
! B(792) = dA(477)/dV(66)
  B(792) = RCT(477)*V(231)
! B(793) = dA(477)/dV(231)
  B(793) = RCT(477)*V(66)
! B(794) = dA(478)/dV(54)
  B(794) = RCT(478)*V(231)
! B(795) = dA(478)/dV(231)
  B(795) = RCT(478)*V(54)
! B(796) = dA(479)/dV(55)
  B(796) = RCT(479)*V(231)
! B(797) = dA(479)/dV(231)
  B(797) = RCT(479)*V(55)
! B(798) = dA(480)/dV(104)
  B(798) = RCT(480)*V(231)
! B(799) = dA(480)/dV(231)
  B(799) = RCT(480)*V(104)
! B(800) = dA(481)/dV(105)
  B(800) = RCT(481)*V(231)
! B(801) = dA(481)/dV(231)
  B(801) = RCT(481)*V(105)
! B(802) = dA(482)/dV(64)
  B(802) = RCT(482)*V(231)
! B(803) = dA(482)/dV(231)
  B(803) = RCT(482)*V(64)
! B(804) = dA(483)/dV(119)
  B(804) = RCT(483)*V(231)
! B(805) = dA(483)/dV(231)
  B(805) = RCT(483)*V(119)
! B(806) = dA(484)/dV(121)
  B(806) = RCT(484)*V(231)
! B(807) = dA(484)/dV(231)
  B(807) = RCT(484)*V(121)
! B(808) = dA(485)/dV(139)
  B(808) = RCT(485)*V(231)
! B(809) = dA(485)/dV(231)
  B(809) = RCT(485)*V(139)
! B(810) = dA(486)/dV(67)
  B(810) = RCT(486)*V(231)
! B(811) = dA(486)/dV(231)
  B(811) = RCT(486)*V(67)
! B(812) = dA(487)/dV(97)
  B(812) = RCT(487)*V(231)
! B(813) = dA(487)/dV(231)
  B(813) = RCT(487)*V(97)
! B(814) = dA(488)/dV(99)
  B(814) = RCT(488)*V(231)
! B(815) = dA(488)/dV(231)
  B(815) = RCT(488)*V(99)
! B(816) = dA(489)/dV(100)
  B(816) = RCT(489)*V(231)
! B(817) = dA(489)/dV(231)
  B(817) = RCT(489)*V(100)
! B(818) = dA(490)/dV(102)
  B(818) = RCT(490)*V(231)
! B(819) = dA(490)/dV(231)
  B(819) = RCT(490)*V(102)
! B(820) = dA(491)/dV(47)
  B(820) = RCT(491)*V(231)
! B(821) = dA(491)/dV(231)
  B(821) = RCT(491)*V(47)
! B(822) = dA(492)/dV(47)
  B(822) = RCT(492)*V(230)
! B(823) = dA(492)/dV(230)
  B(823) = RCT(492)*V(47)
! B(824) = dA(493)/dV(48)
  B(824) = RCT(493)*V(232)
! B(825) = dA(493)/dV(232)
  B(825) = RCT(493)*V(48)
! B(826) = dA(494)/dV(120)
  B(826) = RCT(494)*V(231)
! B(827) = dA(494)/dV(231)
  B(827) = RCT(494)*V(120)
! B(828) = dA(495)/dV(120)
  B(828) = RCT(495)*V(230)
! B(829) = dA(495)/dV(230)
  B(829) = RCT(495)*V(120)
! B(830) = dA(496)/dV(49)
  B(830) = RCT(496)*V(231)
! B(831) = dA(496)/dV(231)
  B(831) = RCT(496)*V(49)
! B(832) = dA(497)/dV(49)
  B(832) = RCT(497)*V(230)
! B(833) = dA(497)/dV(230)
  B(833) = RCT(497)*V(49)
! B(834) = dA(498)/dV(50)
  B(834) = RCT(498)*V(232)
! B(835) = dA(498)/dV(232)
  B(835) = RCT(498)*V(50)
! B(836) = dA(499)/dV(122)
  B(836) = RCT(499)*V(231)
! B(837) = dA(499)/dV(231)
  B(837) = RCT(499)*V(122)
! B(838) = dA(500)/dV(122)
  B(838) = RCT(500)*V(230)
! B(839) = dA(500)/dV(230)
  B(839) = RCT(500)*V(122)
! B(840) = dA(501)/dV(93)
  B(840) = RCT(501)*V(231)
! B(841) = dA(501)/dV(231)
  B(841) = RCT(501)*V(93)
! B(842) = dA(502)/dV(93)
  B(842) = RCT(502)*V(231)
! B(843) = dA(502)/dV(231)
  B(843) = RCT(502)*V(93)
! B(844) = dA(503)/dV(73)
  B(844) = RCT(503)*V(231)
! B(845) = dA(503)/dV(231)
  B(845) = RCT(503)*V(73)
! B(846) = dA(504)/dV(56)
  B(846) = RCT(504)*V(231)
! B(847) = dA(504)/dV(231)
  B(847) = RCT(504)*V(56)
! B(848) = dA(505)/dV(74)
  B(848) = RCT(505)*V(231)
! B(849) = dA(505)/dV(231)
  B(849) = RCT(505)*V(74)
! B(850) = dA(506)/dV(175)
  B(850) = RCT(506)*V(231)
! B(851) = dA(506)/dV(231)
  B(851) = RCT(506)*V(175)
! B(852) = dA(507)/dV(80)
  B(852) = RCT(507)*V(231)
! B(853) = dA(507)/dV(231)
  B(853) = RCT(507)*V(80)
! B(854) = dA(508)/dV(57)
  B(854) = RCT(508)*V(231)
! B(855) = dA(508)/dV(231)
  B(855) = RCT(508)*V(57)
! B(856) = dA(509)/dV(76)
  B(856) = RCT(509)*V(231)
! B(857) = dA(509)/dV(231)
  B(857) = RCT(509)*V(76)
! B(858) = dA(510)/dV(62)
  B(858) = RCT(510)*V(231)
! B(859) = dA(510)/dV(231)
  B(859) = RCT(510)*V(62)
! B(860) = dA(511)/dV(85)
  B(860) = RCT(511)*V(231)
! B(861) = dA(511)/dV(231)
  B(861) = RCT(511)*V(85)
! B(862) = dA(512)/dV(58)
  B(862) = RCT(512)*V(231)
! B(863) = dA(512)/dV(231)
  B(863) = RCT(512)*V(58)
! B(864) = dA(513)/dV(59)
  B(864) = RCT(513)*V(231)
! B(865) = dA(513)/dV(231)
  B(865) = RCT(513)*V(59)
! B(866) = dA(514)/dV(116)
  B(866) = RCT(514)*V(231)
! B(867) = dA(514)/dV(231)
  B(867) = RCT(514)*V(116)
! B(868) = dA(515)/dV(81)
  B(868) = RCT(515)*V(231)
! B(869) = dA(515)/dV(231)
  B(869) = RCT(515)*V(81)
! B(870) = dA(516)/dV(114)
  B(870) = RCT(516)*V(231)
! B(871) = dA(516)/dV(231)
  B(871) = RCT(516)*V(114)
! B(872) = dA(517)/dV(115)
  B(872) = RCT(517)*V(231)
! B(873) = dA(517)/dV(231)
  B(873) = RCT(517)*V(115)
! B(874) = dA(518)/dV(86)
  B(874) = RCT(518)*V(231)
! B(875) = dA(518)/dV(231)
  B(875) = RCT(518)*V(86)
! B(876) = dA(519)/dV(65)
  B(876) = RCT(519)*V(231)
! B(877) = dA(519)/dV(231)
  B(877) = RCT(519)*V(65)
! B(878) = dA(520)/dV(88)
  B(878) = RCT(520)*V(231)
! B(879) = dA(520)/dV(231)
  B(879) = RCT(520)*V(88)
! B(880) = dA(521)/dV(101)
  B(880) = RCT(521)*V(231)
! B(881) = dA(521)/dV(231)
  B(881) = RCT(521)*V(101)
! B(882) = dA(522)/dV(118)
  B(882) = RCT(522)*V(231)
! B(883) = dA(522)/dV(231)
  B(883) = RCT(522)*V(118)
! B(884) = dA(523)/dV(82)
  B(884) = RCT(523)*V(231)
! B(885) = dA(523)/dV(231)
  B(885) = RCT(523)*V(82)
! B(886) = dA(524)/dV(137)
  B(886) = RCT(524)*V(231)
! B(887) = dA(524)/dV(231)
  B(887) = RCT(524)*V(137)
! B(888) = dA(525)/dV(130)
  B(888) = RCT(525)*V(231)
! B(889) = dA(525)/dV(231)
  B(889) = RCT(525)*V(130)
! B(890) = dA(526)/dV(60)
  B(890) = RCT(526)*V(231)
! B(891) = dA(526)/dV(231)
  B(891) = RCT(526)*V(60)
! B(892) = dA(527)/dV(83)
  B(892) = RCT(527)*V(231)
! B(893) = dA(527)/dV(231)
  B(893) = RCT(527)*V(83)
! B(894) = dA(528)/dV(61)
  B(894) = RCT(528)*V(231)
! B(895) = dA(528)/dV(231)
  B(895) = RCT(528)*V(61)
! B(896) = dA(529)/dV(89)
  B(896) = RCT(529)*V(231)
! B(897) = dA(529)/dV(231)
  B(897) = RCT(529)*V(89)
! B(898) = dA(530)/dV(92)
  B(898) = RCT(530)*V(231)
! B(899) = dA(530)/dV(231)
  B(899) = RCT(530)*V(92)
! B(900) = dA(531)/dV(131)
  B(900) = RCT(531)*V(231)
! B(901) = dA(531)/dV(231)
  B(901) = RCT(531)*V(131)
! B(902) = dA(532)/dV(68)
  B(902) = RCT(532)*V(231)
! B(903) = dA(532)/dV(231)
  B(903) = RCT(532)*V(68)
! B(904) = dA(533)/dV(69)
  B(904) = RCT(533)*V(231)
! B(905) = dA(533)/dV(231)
  B(905) = RCT(533)*V(69)
! B(906) = dA(534)/dV(70)
  B(906) = RCT(534)*V(231)
! B(907) = dA(534)/dV(231)
  B(907) = RCT(534)*V(70)
! B(908) = dA(535)/dV(71)
  B(908) = RCT(535)*V(231)
! B(909) = dA(535)/dV(231)
  B(909) = RCT(535)*V(71)
! B(910) = dA(536)/dV(72)
  B(910) = RCT(536)*V(231)
! B(911) = dA(536)/dV(231)
  B(911) = RCT(536)*V(72)
! B(912) = dA(537)/dV(95)
  B(912) = RCT(537)*V(231)
! B(913) = dA(537)/dV(231)
  B(913) = RCT(537)*V(95)
! B(914) = dA(538)/dV(124)
  B(914) = RCT(538)*V(231)
! B(915) = dA(538)/dV(231)
  B(915) = RCT(538)*V(124)
! B(916) = dA(539)/dV(96)
  B(916) = RCT(539)*V(231)
! B(917) = dA(539)/dV(231)
  B(917) = RCT(539)*V(96)
! B(918) = dA(540)/dV(125)
  B(918) = RCT(540)*V(231)
! B(919) = dA(540)/dV(231)
  B(919) = RCT(540)*V(125)
! B(920) = dA(541)/dV(75)
  B(920) = RCT(541)*V(231)
! B(921) = dA(541)/dV(231)
  B(921) = RCT(541)*V(75)
! B(922) = dA(542)/dV(103)
  B(922) = RCT(542)*V(231)
! B(923) = dA(542)/dV(231)
  B(923) = RCT(542)*V(103)
! B(924) = dA(543)/dV(126)
  B(924) = RCT(543)*V(231)
! B(925) = dA(543)/dV(231)
  B(925) = RCT(543)*V(126)
! B(926) = dA(544)/dV(219)
  B(926) = RCT(544)*V(232)
! B(927) = dA(544)/dV(232)
  B(927) = RCT(544)*V(219)
! B(928) = dA(545)/dV(129)
  B(928) = RCT(545)
! B(929) = dA(546)/dV(204)
  B(929) = RCT(546)*V(232)
! B(930) = dA(546)/dV(232)
  B(930) = RCT(546)*V(204)
! B(931) = dA(547)/dV(112)
  B(931) = RCT(547)
! B(932) = dA(548)/dV(188)
  B(932) = RCT(548)*V(232)
! B(933) = dA(548)/dV(232)
  B(933) = RCT(548)*V(188)
! B(934) = dA(549)/dV(113)
  B(934) = RCT(549)
! B(935) = dA(550)/dV(129)
  B(935) = RCT(550)*V(231)
! B(936) = dA(550)/dV(231)
  B(936) = RCT(550)*V(129)
! B(937) = dA(551)/dV(112)
  B(937) = RCT(551)*V(231)
! B(938) = dA(551)/dV(231)
  B(938) = RCT(551)*V(112)
! B(939) = dA(552)/dV(113)
  B(939) = RCT(552)*V(231)
! B(940) = dA(552)/dV(231)
  B(940) = RCT(552)*V(113)
! B(941) = dA(553)/dV(201)
  B(941) = RCT(553)*V(232)
! B(942) = dA(553)/dV(232)
  B(942) = RCT(553)*V(201)
! B(943) = dA(554)/dV(87)
  B(943) = RCT(554)
! B(944) = dA(555)/dV(200)
  B(944) = RCT(555)*V(232)
! B(945) = dA(555)/dV(232)
  B(945) = RCT(555)*V(200)
! B(946) = dA(556)/dV(117)
  B(946) = RCT(556)
! B(947) = dA(557)/dV(117)
  B(947) = RCT(557)*V(231)
! B(948) = dA(557)/dV(231)
  B(948) = RCT(557)*V(117)
! B(949) = dA(558)/dV(87)
  B(949) = RCT(558)*V(231)
! B(950) = dA(558)/dV(231)
  B(950) = RCT(558)*V(87)
! B(951) = dA(559)/dV(222)
  B(951) = RCT(559)*V(232)
! B(952) = dA(559)/dV(232)
  B(952) = RCT(559)*V(222)
! B(953) = dA(560)/dV(123)
  B(953) = RCT(560)
! B(954) = dA(561)/dV(123)
  B(954) = RCT(561)*V(231)
! B(955) = dA(561)/dV(231)
  B(955) = RCT(561)*V(123)
! B(956) = dA(562)/dV(77)
  B(956) = RCT(562)*V(231)
! B(957) = dA(562)/dV(231)
  B(957) = RCT(562)*V(77)
! B(958) = dA(563)/dV(155)
  B(958) = RCT(563)*V(231)
! B(959) = dA(563)/dV(231)
  B(959) = RCT(563)*V(155)
! B(960) = dA(564)/dV(183)
  B(960) = RCT(564)*V(231)
! B(961) = dA(564)/dV(231)
  B(961) = RCT(564)*V(183)
! B(962) = dA(565)/dV(170)
  B(962) = RCT(565)*V(231)
! B(963) = dA(565)/dV(231)
  B(963) = RCT(565)*V(170)
! B(964) = dA(566)/dV(12)
  B(964) = RCT(566)*V(231)
! B(965) = dA(566)/dV(231)
  B(965) = RCT(566)*V(12)
! B(966) = dA(567)/dV(13)
  B(966) = RCT(567)*V(231)
! B(967) = dA(567)/dV(231)
  B(967) = RCT(567)*V(13)
! B(968) = dA(568)/dV(14)
  B(968) = RCT(568)*V(231)
! B(969) = dA(568)/dV(231)
  B(969) = RCT(568)*V(14)
! B(970) = dA(569)/dV(15)
  B(970) = RCT(569)*V(231)
! B(971) = dA(569)/dV(231)
  B(971) = RCT(569)*V(15)
! B(972) = dA(570)/dV(19)
  B(972) = RCT(570)*V(231)
! B(973) = dA(570)/dV(231)
  B(973) = RCT(570)*V(19)
! B(974) = dA(571)/dV(18)
  B(974) = RCT(571)*V(231)
! B(975) = dA(571)/dV(231)
  B(975) = RCT(571)*V(18)
! B(976) = dA(572)/dV(16)
  B(976) = RCT(572)*V(231)
! B(977) = dA(572)/dV(231)
  B(977) = RCT(572)*V(16)
! B(978) = dA(573)/dV(17)
  B(978) = RCT(573)*V(231)
! B(979) = dA(573)/dV(231)
  B(979) = RCT(573)*V(17)
! B(980) = dA(574)/dV(210)
  B(980) = RCT(574)*V(232)
! B(981) = dA(574)/dV(232)
  B(981) = RCT(574)*V(210)
! B(982) = dA(575)/dV(78)
  B(982) = RCT(575)
! B(983) = dA(576)/dV(136)
  B(983) = RCT(576)
! B(984) = dA(577)/dV(142)
  B(984) = RCT(577)
! B(985) = dA(578)/dV(134)
  B(985) = RCT(578)
! B(986) = dA(579)/dV(128)
  B(986) = RCT(579)
! B(987) = dA(580)/dV(106)
  B(987) = RCT(580)
! B(988) = dA(581)/dV(153)
  B(988) = RCT(581)
! B(989) = dA(582)/dV(153)
  B(989) = RCT(582)
! B(990) = dA(583)/dV(205)
  B(990) = RCT(583)*V(229)
! B(991) = dA(583)/dV(229)
  B(991) = RCT(583)*V(205)
! B(992) = dA(584)/dV(162)
  B(992) = RCT(584)*V(231)
! B(993) = dA(584)/dV(231)
  B(993) = RCT(584)*V(162)
! B(994) = dA(585)/dV(78)
  B(994) = RCT(585)*V(231)
! B(995) = dA(585)/dV(231)
  B(995) = RCT(585)*V(78)
! B(996) = dA(586)/dV(136)
  B(996) = RCT(586)*V(231)
! B(997) = dA(586)/dV(231)
  B(997) = RCT(586)*V(136)
! B(998) = dA(587)/dV(136)
  B(998) = RCT(587)*V(230)
! B(999) = dA(587)/dV(230)
  B(999) = RCT(587)*V(136)
! B(1000) = dA(588)/dV(28)
  B(1000) = RCT(588)*V(231)
! B(1001) = dA(588)/dV(231)
  B(1001) = RCT(588)*V(28)
! B(1002) = dA(589)/dV(28)
  B(1002) = RCT(589)*V(231)
! B(1003) = dA(589)/dV(231)
  B(1003) = RCT(589)*V(28)
! B(1004) = dA(590)/dV(29)
  B(1004) = RCT(590)*V(231)
! B(1005) = dA(590)/dV(231)
  B(1005) = RCT(590)*V(29)
! B(1006) = dA(591)/dV(29)
  B(1006) = RCT(591)*V(231)
! B(1007) = dA(591)/dV(231)
  B(1007) = RCT(591)*V(29)
! B(1008) = dA(592)/dV(21)
  B(1008) = RCT(592)*V(231)
! B(1009) = dA(592)/dV(231)
  B(1009) = RCT(592)*V(21)
! B(1010) = dA(593)/dV(22)
  B(1010) = RCT(593)*V(231)
! B(1011) = dA(593)/dV(231)
  B(1011) = RCT(593)*V(22)
! B(1012) = dA(594)/dV(23)
  B(1012) = RCT(594)*V(231)
! B(1013) = dA(594)/dV(231)
  B(1013) = RCT(594)*V(23)
! B(1014) = dA(595)/dV(24)
  B(1014) = RCT(595)*V(231)
! B(1015) = dA(595)/dV(231)
  B(1015) = RCT(595)*V(24)
! B(1016) = dA(596)/dV(157)
  B(1016) = RCT(596)*V(229)
! B(1017) = dA(596)/dV(229)
  B(1017) = RCT(596)*V(157)
! B(1018) = dA(597)/dV(197)
  B(1018) = RCT(597)*V(229)
! B(1019) = dA(597)/dV(229)
  B(1019) = RCT(597)*V(197)
! B(1020) = dA(598)/dV(157)
  B(1020) = RCT(598)*V(229)
! B(1021) = dA(598)/dV(229)
  B(1021) = RCT(598)*V(157)
! B(1022) = dA(599)/dV(197)
  B(1022) = RCT(599)*V(229)
! B(1023) = dA(599)/dV(229)
  B(1023) = RCT(599)*V(197)
! B(1024) = dA(600)/dV(157)
  B(1024) = RCT(600)*V(230)
! B(1025) = dA(600)/dV(230)
  B(1025) = RCT(600)*V(157)
! B(1026) = dA(601)/dV(197)
  B(1026) = RCT(601)*V(230)
! B(1027) = dA(601)/dV(230)
  B(1027) = RCT(601)*V(197)
! B(1028) = dA(602)/dV(157)
  B(1028) = RCT(602)*V(228)
! B(1029) = dA(602)/dV(228)
  B(1029) = RCT(602)*V(157)
! B(1030) = dA(603)/dV(197)
  B(1030) = RCT(603)*V(228)
! B(1031) = dA(603)/dV(228)
  B(1031) = RCT(603)*V(197)
! B(1032) = dA(604)/dV(157)
  B(1032) = RCT(604)
! B(1033) = dA(605)/dV(197)
  B(1033) = RCT(605)
! B(1034) = dA(606)/dV(142)
  B(1034) = RCT(606)*V(231)
! B(1035) = dA(606)/dV(231)
  B(1035) = RCT(606)*V(142)
! B(1036) = dA(607)/dV(134)
  B(1036) = RCT(607)*V(231)
! B(1037) = dA(607)/dV(231)
  B(1037) = RCT(607)*V(134)
! B(1038) = dA(608)/dV(25)
  B(1038) = RCT(608)*V(231)
! B(1039) = dA(608)/dV(231)
  B(1039) = RCT(608)*V(25)
! B(1040) = dA(609)/dV(176)
  B(1040) = RCT(609)*V(229)
! B(1041) = dA(609)/dV(229)
  B(1041) = RCT(609)*V(176)
! B(1042) = dA(610)/dV(176)
  B(1042) = RCT(610)*V(229)
! B(1043) = dA(610)/dV(229)
  B(1043) = RCT(610)*V(176)
! B(1044) = dA(611)/dV(176)
  B(1044) = RCT(611)*V(230)
! B(1045) = dA(611)/dV(230)
  B(1045) = RCT(611)*V(176)
! B(1046) = dA(612)/dV(176)
  B(1046) = RCT(612)*V(228)
! B(1047) = dA(612)/dV(228)
  B(1047) = RCT(612)*V(176)
! B(1048) = dA(613)/dV(176)
  B(1048) = RCT(613)
! B(1049) = dA(614)/dV(128)
  B(1049) = RCT(614)*V(231)
! B(1050) = dA(614)/dV(231)
  B(1050) = RCT(614)*V(128)
! B(1051) = dA(615)/dV(106)
  B(1051) = RCT(615)*V(231)
! B(1052) = dA(615)/dV(231)
  B(1052) = RCT(615)*V(106)
! B(1053) = dA(616)/dV(153)
  B(1053) = RCT(616)*V(231)
! B(1054) = dA(616)/dV(231)
  B(1054) = RCT(616)*V(153)
! B(1055) = dA(617)/dV(153)
  B(1055) = RCT(617)*V(231)
! B(1056) = dA(617)/dV(231)
  B(1056) = RCT(617)*V(153)
! B(1057) = dA(618)/dV(1)
  B(1057) = RCT(618)
! B(1058) = dA(619)/dV(2)
  B(1058) = RCT(619)
! B(1059) = dA(620)/dV(3)
  B(1059) = RCT(620)
! B(1060) = dA(621)/dV(109)
  B(1060) = RCT(621)*V(231)
! B(1061) = dA(621)/dV(231)
  B(1061) = RCT(621)*V(109)
! B(1062) = dA(622)/dV(109)
  B(1062) = RCT(622)*V(231)
! B(1063) = dA(622)/dV(231)
  B(1063) = RCT(622)*V(109)
! B(1064) = dA(623)/dV(109)
  B(1064) = RCT(623)*V(230)
! B(1065) = dA(623)/dV(230)
  B(1065) = RCT(623)*V(109)
! B(1066) = dA(624)/dV(111)
  B(1066) = RCT(624)*V(229)
! B(1067) = dA(624)/dV(229)
  B(1067) = RCT(624)*V(111)
! B(1068) = dA(625)/dV(111)
  B(1068) = RCT(625)*2*V(111)
! B(1069) = dA(626)/dV(143)
  B(1069) = RCT(626)*V(223)
! B(1070) = dA(626)/dV(223)
  B(1070) = RCT(626)*V(143)
! B(1071) = dA(627)/dV(143)
  B(1071) = RCT(627)*V(232)
! B(1072) = dA(627)/dV(232)
  B(1072) = RCT(627)*V(143)
! B(1073) = dA(628)/dV(172)
  B(1073) = RCT(628)*V(232)
! B(1074) = dA(628)/dV(232)
  B(1074) = RCT(628)*V(172)
! B(1075) = dA(629)/dV(172)
  B(1075) = RCT(629)*V(223)
! B(1076) = dA(629)/dV(223)
  B(1076) = RCT(629)*V(172)
! B(1077) = dA(630)/dV(171)
  B(1077) = RCT(630)
! B(1078) = dA(631)/dV(171)
  B(1078) = RCT(631)*V(232)
! B(1079) = dA(631)/dV(232)
  B(1079) = RCT(631)*V(171)
! B(1080) = dA(632)/dV(171)
  B(1080) = RCT(632)*V(223)
! B(1081) = dA(632)/dV(223)
  B(1081) = RCT(632)*V(171)
! B(1082) = dA(633)/dV(53)
  B(1082) = RCT(633)*V(228)
! B(1083) = dA(633)/dV(228)
  B(1083) = RCT(633)*V(53)
! B(1084) = dA(634)/dV(53)
  B(1084) = RCT(634)
! B(1085) = dA(635)/dV(42)
  B(1085) = RCT(635)*V(231)
! B(1086) = dA(635)/dV(231)
  B(1086) = RCT(635)*V(42)
! B(1087) = dA(636)/dV(110)
  B(1087) = RCT(636)*V(231)
! B(1088) = dA(636)/dV(231)
  B(1088) = RCT(636)*V(110)
! B(1089) = dA(637)/dV(110)
  B(1089) = RCT(637)*V(230)
! B(1090) = dA(637)/dV(230)
  B(1090) = RCT(637)*V(110)

! Construct the Jacobian terms from B's
! JVS(1) = Jac_FULL(1,1)
  JVS(1) = 0
! JVS(2) = Jac_FULL(2,2)
  JVS(2) = 0
! JVS(3) = Jac_FULL(3,3)
  JVS(3) = 0
! JVS(4) = Jac_FULL(4,4)
  JVS(4) = 0
! JVS(5) = Jac_FULL(4,5)
  JVS(5) = B(164)
! JVS(6) = Jac_FULL(4,53)
  JVS(6) = B(1084)
! JVS(7) = Jac_FULL(5,5)
  JVS(7) = -B(164)
! JVS(8) = Jac_FULL(5,10)
  JVS(8) = B(162)
! JVS(9) = Jac_FULL(5,127)
  JVS(9) = B(158)
! JVS(10) = Jac_FULL(5,173)
  JVS(10) = B(159)
! JVS(11) = Jac_FULL(6,6)
  JVS(11) = 0
! JVS(12) = Jac_FULL(6,53)
  JVS(12) = B(1082)
! JVS(13) = Jac_FULL(6,110)
  JVS(13) = 0.05*B(1087)
! JVS(14) = Jac_FULL(6,228)
  JVS(14) = B(1083)
! JVS(15) = Jac_FULL(6,231)
  JVS(15) = 0.05*B(1088)
! JVS(16) = Jac_FULL(7,7)
  JVS(16) = 0
! JVS(17) = Jac_FULL(7,42)
  JVS(17) = 0.05*B(1085)
! JVS(18) = Jac_FULL(7,231)
  JVS(18) = 0.05*B(1086)
! JVS(19) = Jac_FULL(8,8)
  JVS(19) = -B(107)-B(122)
! JVS(20) = Jac_FULL(8,223)
  JVS(20) = B(1)
! JVS(21) = Jac_FULL(9,9)
  JVS(21) = -B(168)
! JVS(22) = Jac_FULL(9,231)
  JVS(22) = -B(169)
! JVS(23) = Jac_FULL(10,10)
  JVS(23) = -B(162)
! JVS(24) = Jac_FULL(10,127)
  JVS(24) = B(160)
! JVS(25) = Jac_FULL(10,231)
  JVS(25) = B(161)
! JVS(26) = Jac_FULL(11,11)
  JVS(26) = -B(174)
! JVS(27) = Jac_FULL(11,231)
  JVS(27) = -B(175)
! JVS(28) = Jac_FULL(12,12)
  JVS(28) = -B(964)
! JVS(29) = Jac_FULL(12,231)
  JVS(29) = -B(965)
! JVS(30) = Jac_FULL(13,13)
  JVS(30) = -B(966)
! JVS(31) = Jac_FULL(13,231)
  JVS(31) = -B(967)
! JVS(32) = Jac_FULL(14,14)
  JVS(32) = -B(968)
! JVS(33) = Jac_FULL(14,231)
  JVS(33) = -B(969)
! JVS(34) = Jac_FULL(15,15)
  JVS(34) = -B(970)
! JVS(35) = Jac_FULL(15,231)
  JVS(35) = -B(971)
! JVS(36) = Jac_FULL(16,16)
  JVS(36) = -B(976)
! JVS(37) = Jac_FULL(16,231)
  JVS(37) = -B(977)
! JVS(38) = Jac_FULL(17,17)
  JVS(38) = -B(978)
! JVS(39) = Jac_FULL(17,231)
  JVS(39) = -B(979)
! JVS(40) = Jac_FULL(18,18)
  JVS(40) = -B(974)
! JVS(41) = Jac_FULL(18,231)
  JVS(41) = -B(975)
! JVS(42) = Jac_FULL(19,19)
  JVS(42) = -B(972)
! JVS(43) = Jac_FULL(19,231)
  JVS(43) = -B(973)
! JVS(44) = Jac_FULL(20,20)
  JVS(44) = -B(166)
! JVS(45) = Jac_FULL(20,231)
  JVS(45) = -B(167)
! JVS(46) = Jac_FULL(21,21)
  JVS(46) = -B(1008)
! JVS(47) = Jac_FULL(21,231)
  JVS(47) = -B(1009)
! JVS(48) = Jac_FULL(22,22)
  JVS(48) = -B(1010)
! JVS(49) = Jac_FULL(22,231)
  JVS(49) = -B(1011)
! JVS(50) = Jac_FULL(23,23)
  JVS(50) = -B(1012)
! JVS(51) = Jac_FULL(23,231)
  JVS(51) = -B(1013)
! JVS(52) = Jac_FULL(24,24)
  JVS(52) = -B(1014)
! JVS(53) = Jac_FULL(24,231)
  JVS(53) = -B(1015)
! JVS(54) = Jac_FULL(25,25)
  JVS(54) = -B(1038)
! JVS(55) = Jac_FULL(25,231)
  JVS(55) = -B(1039)
! JVS(56) = Jac_FULL(26,26)
  JVS(56) = -B(170)-B(172)
! JVS(57) = Jac_FULL(26,231)
  JVS(57) = -B(171)-B(173)
! JVS(58) = Jac_FULL(27,27)
  JVS(58) = -B(242)-B(244)
! JVS(59) = Jac_FULL(27,231)
  JVS(59) = -B(243)-B(245)
! JVS(60) = Jac_FULL(28,28)
  JVS(60) = -B(1000)-B(1002)
! JVS(61) = Jac_FULL(28,231)
  JVS(61) = -B(1001)-B(1003)
! JVS(62) = Jac_FULL(29,29)
  JVS(62) = -B(1004)-B(1006)
! JVS(63) = Jac_FULL(29,231)
  JVS(63) = -B(1005)-B(1007)
! JVS(64) = Jac_FULL(30,30)
  JVS(64) = -B(234)-B(236)
! JVS(65) = Jac_FULL(30,231)
  JVS(65) = -B(235)-B(237)
! JVS(66) = Jac_FULL(31,31)
  JVS(66) = -B(238)-B(240)
! JVS(67) = Jac_FULL(31,231)
  JVS(67) = -B(239)-B(241)
! JVS(68) = Jac_FULL(32,32)
  JVS(68) = -B(121)
! JVS(69) = Jac_FULL(32,230)
  JVS(69) = B(119)
! JVS(70) = Jac_FULL(32,232)
  JVS(70) = B(120)
! JVS(71) = Jac_FULL(33,33)
  JVS(71) = -B(14)-B(260)
! JVS(72) = Jac_FULL(33,231)
  JVS(72) = -B(261)
! JVS(73) = Jac_FULL(34,34)
  JVS(73) = -B(764)
! JVS(74) = Jac_FULL(34,97)
  JVS(74) = B(812)
! JVS(75) = Jac_FULL(34,231)
  JVS(75) = -B(765)+B(813)
! JVS(76) = Jac_FULL(35,35)
  JVS(76) = -B(98)
! JVS(77) = Jac_FULL(35,210)
  JVS(77) = B(980)
! JVS(78) = Jac_FULL(35,232)
  JVS(78) = B(981)
! JVS(79) = Jac_FULL(36,36)
  JVS(79) = -B(230)-B(232)
! JVS(80) = Jac_FULL(36,231)
  JVS(80) = -B(231)-B(233)
! JVS(81) = Jac_FULL(37,37)
  JVS(81) = -B(262)
! JVS(82) = Jac_FULL(37,210)
  JVS(82) = B(646)
! JVS(83) = Jac_FULL(37,231)
  JVS(83) = -B(263)
! JVS(84) = Jac_FULL(38,38)
  JVS(84) = -B(28)-B(740)
! JVS(85) = Jac_FULL(38,81)
  JVS(85) = B(868)
! JVS(86) = Jac_FULL(38,231)
  JVS(86) = -B(741)+B(869)
! JVS(87) = Jac_FULL(39,39)
  JVS(87) = -B(742)
! JVS(88) = Jac_FULL(39,102)
  JVS(88) = B(818)
! JVS(89) = Jac_FULL(39,103)
  JVS(89) = B(922)
! JVS(90) = Jac_FULL(39,231)
  JVS(90) = -B(743)+B(819)+B(923)
! JVS(91) = Jac_FULL(40,40)
  JVS(91) = -B(772)
! JVS(92) = Jac_FULL(40,165)
  JVS(92) = B(216)
! JVS(93) = Jac_FULL(40,223)
  JVS(93) = B(217)
! JVS(94) = Jac_FULL(40,231)
  JVS(94) = -B(773)
! JVS(95) = Jac_FULL(41,41)
  JVS(95) = -B(7)-B(154)
! JVS(96) = Jac_FULL(41,229)
  JVS(96) = B(139)
! JVS(97) = Jac_FULL(41,231)
  JVS(97) = B(140)-B(155)
! JVS(98) = Jac_FULL(42,42)
  JVS(98) = -B(1085)
! JVS(99) = Jac_FULL(42,109)
  JVS(99) = B(1062)
! JVS(100) = Jac_FULL(42,231)
  JVS(100) = B(1063)-B(1086)
! JVS(101) = Jac_FULL(43,43)
  JVS(101) = -B(264)-B(266)
! JVS(102) = Jac_FULL(43,214)
  JVS(102) = B(649)
! JVS(103) = Jac_FULL(43,231)
  JVS(103) = -B(265)-B(267)
! JVS(104) = Jac_FULL(44,44)
  JVS(104) = -B(272)-B(274)
! JVS(105) = Jac_FULL(44,156)
  JVS(105) = B(655)
! JVS(106) = Jac_FULL(44,231)
  JVS(106) = -B(273)-B(275)
! JVS(107) = Jac_FULL(45,45)
  JVS(107) = -B(27)-B(738)
! JVS(108) = Jac_FULL(45,116)
  JVS(108) = B(866)
! JVS(109) = Jac_FULL(45,231)
  JVS(109) = -B(739)+B(867)
! JVS(110) = Jac_FULL(46,36)
  JVS(110) = B(230)
! JVS(111) = Jac_FULL(46,46)
  JVS(111) = -B(276)
! JVS(112) = Jac_FULL(46,154)
  JVS(112) = B(190)
! JVS(113) = Jac_FULL(46,177)
  JVS(113) = B(206)
! JVS(114) = Jac_FULL(46,223)
  JVS(114) = B(191)+B(207)
! JVS(115) = Jac_FULL(46,231)
  JVS(115) = B(231)-B(277)
! JVS(116) = Jac_FULL(47,30)
  JVS(116) = B(236)
! JVS(117) = Jac_FULL(47,47)
  JVS(117) = -B(820)-B(822)
! JVS(118) = Jac_FULL(47,230)
  JVS(118) = -B(823)
! JVS(119) = Jac_FULL(47,231)
  JVS(119) = B(237)-B(821)
! JVS(120) = Jac_FULL(48,47)
  JVS(120) = B(820)+B(822)
! JVS(121) = Jac_FULL(48,48)
  JVS(121) = -B(824)
! JVS(122) = Jac_FULL(48,230)
  JVS(122) = B(823)
! JVS(123) = Jac_FULL(48,231)
  JVS(123) = B(821)
! JVS(124) = Jac_FULL(48,232)
  JVS(124) = -B(825)
! JVS(125) = Jac_FULL(49,31)
  JVS(125) = B(240)
! JVS(126) = Jac_FULL(49,49)
  JVS(126) = -B(830)-B(832)
! JVS(127) = Jac_FULL(49,230)
  JVS(127) = -B(833)
! JVS(128) = Jac_FULL(49,231)
  JVS(128) = B(241)-B(831)
! JVS(129) = Jac_FULL(50,49)
  JVS(129) = B(830)+B(832)
! JVS(130) = Jac_FULL(50,50)
  JVS(130) = -B(834)
! JVS(131) = Jac_FULL(50,230)
  JVS(131) = B(833)
! JVS(132) = Jac_FULL(50,231)
  JVS(132) = B(831)
! JVS(133) = Jac_FULL(50,232)
  JVS(133) = -B(835)
! JVS(134) = Jac_FULL(51,51)
  JVS(134) = -B(268)-B(270)
! JVS(135) = Jac_FULL(51,216)
  JVS(135) = B(652)
! JVS(136) = Jac_FULL(51,231)
  JVS(136) = -B(269)-B(271)
! JVS(137) = Jac_FULL(52,52)
  JVS(137) = -B(278)
! JVS(138) = Jac_FULL(52,150)
  JVS(138) = B(194)
! JVS(139) = Jac_FULL(52,161)
  JVS(139) = B(198)
! JVS(140) = Jac_FULL(52,223)
  JVS(140) = B(195)+B(199)
! JVS(141) = Jac_FULL(52,231)
  JVS(141) = -B(279)
! JVS(142) = Jac_FULL(53,53)
  JVS(142) = -B(1082)-B(1084)
! JVS(143) = Jac_FULL(53,171)
  JVS(143) = B(1078)+B(1080)
! JVS(144) = Jac_FULL(53,223)
  JVS(144) = B(1081)
! JVS(145) = Jac_FULL(53,228)
  JVS(145) = -B(1083)
! JVS(146) = Jac_FULL(53,232)
  JVS(146) = B(1079)
! JVS(147) = Jac_FULL(54,54)
  JVS(147) = -B(794)
! JVS(148) = Jac_FULL(54,218)
  JVS(148) = B(410)
! JVS(149) = Jac_FULL(54,229)
  JVS(149) = B(411)
! JVS(150) = Jac_FULL(54,231)
  JVS(150) = -B(795)
! JVS(151) = Jac_FULL(55,55)
  JVS(151) = -B(796)
! JVS(152) = Jac_FULL(55,213)
  JVS(152) = B(412)
! JVS(153) = Jac_FULL(55,229)
  JVS(153) = B(413)
! JVS(154) = Jac_FULL(55,231)
  JVS(154) = -B(797)
! JVS(155) = Jac_FULL(56,56)
  JVS(155) = -B(51)-B(846)
! JVS(156) = Jac_FULL(56,216)
  JVS(156) = B(554)
! JVS(157) = Jac_FULL(56,228)
  JVS(157) = B(555)
! JVS(158) = Jac_FULL(56,231)
  JVS(158) = -B(847)
! JVS(159) = Jac_FULL(57,57)
  JVS(159) = -B(56)-B(854)
! JVS(160) = Jac_FULL(57,206)
  JVS(160) = B(562)
! JVS(161) = Jac_FULL(57,228)
  JVS(161) = B(563)
! JVS(162) = Jac_FULL(57,231)
  JVS(162) = -B(855)
! JVS(163) = Jac_FULL(58,58)
  JVS(163) = -B(60)-B(862)
! JVS(164) = Jac_FULL(58,221)
  JVS(164) = B(596)
! JVS(165) = Jac_FULL(58,228)
  JVS(165) = B(597)
! JVS(166) = Jac_FULL(58,231)
  JVS(166) = -B(863)
! JVS(167) = Jac_FULL(59,59)
  JVS(167) = -B(61)-B(864)
! JVS(168) = Jac_FULL(59,208)
  JVS(168) = B(598)
! JVS(169) = Jac_FULL(59,228)
  JVS(169) = B(599)
! JVS(170) = Jac_FULL(59,231)
  JVS(170) = -B(865)
! JVS(171) = Jac_FULL(60,60)
  JVS(171) = -B(75)-B(890)
! JVS(172) = Jac_FULL(60,148)
  JVS(172) = B(610)
! JVS(173) = Jac_FULL(60,228)
  JVS(173) = B(611)
! JVS(174) = Jac_FULL(60,231)
  JVS(174) = -B(891)
! JVS(175) = Jac_FULL(61,61)
  JVS(175) = -B(77)-B(894)
! JVS(176) = Jac_FULL(61,145)
  JVS(176) = B(614)
! JVS(177) = Jac_FULL(61,228)
  JVS(177) = B(615)
! JVS(178) = Jac_FULL(61,231)
  JVS(178) = -B(895)
! JVS(179) = Jac_FULL(62,62)
  JVS(179) = -B(58)-B(858)
! JVS(180) = Jac_FULL(62,204)
  JVS(180) = B(592)
! JVS(181) = Jac_FULL(62,228)
  JVS(181) = B(593)
! JVS(182) = Jac_FULL(62,231)
  JVS(182) = -B(859)
! JVS(183) = Jac_FULL(63,63)
  JVS(183) = -B(149)-B(150)
! JVS(184) = Jac_FULL(63,228)
  JVS(184) = B(147)
! JVS(185) = Jac_FULL(63,231)
  JVS(185) = -B(151)
! JVS(186) = Jac_FULL(63,232)
  JVS(186) = B(148)
! JVS(187) = Jac_FULL(64,64)
  JVS(187) = -B(802)
! JVS(188) = Jac_FULL(64,180)
  JVS(188) = B(422)
! JVS(189) = Jac_FULL(64,229)
  JVS(189) = B(423)
! JVS(190) = Jac_FULL(64,231)
  JVS(190) = -B(803)
! JVS(191) = Jac_FULL(65,65)
  JVS(191) = -B(68)-B(876)
! JVS(192) = Jac_FULL(65,144)
  JVS(192) = B(616)
! JVS(193) = Jac_FULL(65,228)
  JVS(193) = B(617)
! JVS(194) = Jac_FULL(65,231)
  JVS(194) = -B(877)
! JVS(195) = Jac_FULL(66,66)
  JVS(195) = -B(792)
! JVS(196) = Jac_FULL(66,198)
  JVS(196) = B(408)
! JVS(197) = Jac_FULL(66,229)
  JVS(197) = B(409)
! JVS(198) = Jac_FULL(66,231)
  JVS(198) = -B(793)
! JVS(199) = Jac_FULL(67,67)
  JVS(199) = -B(810)
! JVS(200) = Jac_FULL(67,193)
  JVS(200) = B(432)
! JVS(201) = Jac_FULL(67,229)
  JVS(201) = B(433)
! JVS(202) = Jac_FULL(67,231)
  JVS(202) = -B(811)
! JVS(203) = Jac_FULL(68,68)
  JVS(203) = -B(81)-B(902)
! JVS(204) = Jac_FULL(68,193)
  JVS(204) = B(620)
! JVS(205) = Jac_FULL(68,228)
  JVS(205) = B(621)
! JVS(206) = Jac_FULL(68,231)
  JVS(206) = -B(903)
! JVS(207) = Jac_FULL(69,69)
  JVS(207) = -B(83)-B(904)
! JVS(208) = Jac_FULL(69,222)
  JVS(208) = B(624)
! JVS(209) = Jac_FULL(69,228)
  JVS(209) = B(625)
! JVS(210) = Jac_FULL(69,231)
  JVS(210) = -B(905)
! JVS(211) = Jac_FULL(70,70)
  JVS(211) = -B(82)-B(906)
! JVS(212) = Jac_FULL(70,146)
  JVS(212) = B(622)
! JVS(213) = Jac_FULL(70,228)
  JVS(213) = B(623)
! JVS(214) = Jac_FULL(70,231)
  JVS(214) = -B(907)
! JVS(215) = Jac_FULL(71,71)
  JVS(215) = -B(84)-B(908)
! JVS(216) = Jac_FULL(71,212)
  JVS(216) = B(626)
! JVS(217) = Jac_FULL(71,228)
  JVS(217) = B(627)
! JVS(218) = Jac_FULL(71,231)
  JVS(218) = -B(909)
! JVS(219) = Jac_FULL(72,72)
  JVS(219) = -B(85)-B(910)
! JVS(220) = Jac_FULL(72,158)
  JVS(220) = B(628)
! JVS(221) = Jac_FULL(72,228)
  JVS(221) = B(629)
! JVS(222) = Jac_FULL(72,231)
  JVS(222) = -B(911)
! JVS(223) = Jac_FULL(73,73)
  JVS(223) = -B(50)-B(844)
! JVS(224) = Jac_FULL(73,214)
  JVS(224) = B(552)
! JVS(225) = Jac_FULL(73,228)
  JVS(225) = B(553)
! JVS(226) = Jac_FULL(73,231)
  JVS(226) = -B(845)
! JVS(227) = Jac_FULL(74,74)
  JVS(227) = -B(52)-B(848)
! JVS(228) = Jac_FULL(74,156)
  JVS(228) = B(556)
! JVS(229) = Jac_FULL(74,228)
  JVS(229) = B(557)
! JVS(230) = Jac_FULL(74,231)
  JVS(230) = -B(849)
! JVS(231) = Jac_FULL(75,75)
  JVS(231) = -B(90)-B(920)
! JVS(232) = Jac_FULL(75,215)
  JVS(232) = B(638)
! JVS(233) = Jac_FULL(75,228)
  JVS(233) = B(639)
! JVS(234) = Jac_FULL(75,231)
  JVS(234) = -B(921)
! JVS(235) = Jac_FULL(76,76)
  JVS(235) = -B(57)-B(856)
! JVS(236) = Jac_FULL(76,219)
  JVS(236) = B(590)
! JVS(237) = Jac_FULL(76,228)
  JVS(237) = B(591)
! JVS(238) = Jac_FULL(76,231)
  JVS(238) = -B(857)
! JVS(239) = Jac_FULL(77,77)
  JVS(239) = -B(956)
! JVS(240) = Jac_FULL(77,153)
  JVS(240) = B(988)+B(1055)
! JVS(241) = Jac_FULL(77,155)
  JVS(241) = B(93)+B(958)
! JVS(242) = Jac_FULL(77,170)
  JVS(242) = B(95)+B(962)
! JVS(243) = Jac_FULL(77,183)
  JVS(243) = B(94)+B(960)
! JVS(244) = Jac_FULL(77,231)
  JVS(244) = -B(957)+B(959)+B(961)+B(963)+B(1056)
! JVS(245) = Jac_FULL(78,78)
  JVS(245) = -B(982)-B(994)
! JVS(246) = Jac_FULL(78,162)
  JVS(246) = B(992)
! JVS(247) = Jac_FULL(78,231)
  JVS(247) = B(993)-B(995)
! JVS(248) = Jac_FULL(79,79)
  JVS(248) = -B(43)-B(788)
! JVS(249) = Jac_FULL(79,224)
  JVS(249) = B(404)
! JVS(250) = Jac_FULL(79,229)
  JVS(250) = B(405)
! JVS(251) = Jac_FULL(79,231)
  JVS(251) = -B(789)
! JVS(252) = Jac_FULL(80,80)
  JVS(252) = -B(55)-B(852)
! JVS(253) = Jac_FULL(80,178)
  JVS(253) = B(566)
! JVS(254) = Jac_FULL(80,224)
  JVS(254) = B(560)
! JVS(255) = Jac_FULL(80,228)
  JVS(255) = B(561)+B(567)
! JVS(256) = Jac_FULL(80,231)
  JVS(256) = -B(853)
! JVS(257) = Jac_FULL(81,81)
  JVS(257) = -B(63)-B(868)
! JVS(258) = Jac_FULL(81,220)
  JVS(258) = B(602)
! JVS(259) = Jac_FULL(81,228)
  JVS(259) = B(603)
! JVS(260) = Jac_FULL(81,231)
  JVS(260) = -B(869)
! JVS(261) = Jac_FULL(82,82)
  JVS(261) = -B(72)-B(884)
! JVS(262) = Jac_FULL(82,213)
  JVS(262) = B(580)
! JVS(263) = Jac_FULL(82,228)
  JVS(263) = B(581)
! JVS(264) = Jac_FULL(82,231)
  JVS(264) = -B(885)
! JVS(265) = Jac_FULL(83,83)
  JVS(265) = -B(76)-B(892)
! JVS(266) = Jac_FULL(83,167)
  JVS(266) = B(612)
! JVS(267) = Jac_FULL(83,228)
  JVS(267) = B(613)
! JVS(268) = Jac_FULL(83,231)
  JVS(268) = -B(893)
! JVS(269) = Jac_FULL(84,84)
  JVS(269) = -B(40)-B(784)
! JVS(270) = Jac_FULL(84,156)
  JVS(270) = B(400)
! JVS(271) = Jac_FULL(84,229)
  JVS(271) = B(401)
! JVS(272) = Jac_FULL(84,231)
  JVS(272) = -B(785)
! JVS(273) = Jac_FULL(85,85)
  JVS(273) = -B(59)-B(860)
! JVS(274) = Jac_FULL(85,188)
  JVS(274) = B(594)
! JVS(275) = Jac_FULL(85,228)
  JVS(275) = B(595)
! JVS(276) = Jac_FULL(85,231)
  JVS(276) = -B(861)
! JVS(277) = Jac_FULL(86,86)
  JVS(277) = -B(67)-B(874)
! JVS(278) = Jac_FULL(86,200)
  JVS(278) = B(608)
! JVS(279) = Jac_FULL(86,228)
  JVS(279) = B(609)
! JVS(280) = Jac_FULL(86,231)
  JVS(280) = -B(875)
! JVS(281) = Jac_FULL(87,87)
  JVS(281) = -B(943)-B(949)
! JVS(282) = Jac_FULL(87,201)
  JVS(282) = B(941)
! JVS(283) = Jac_FULL(87,231)
  JVS(283) = -B(950)
! JVS(284) = Jac_FULL(87,232)
  JVS(284) = B(942)
! JVS(285) = Jac_FULL(88,88)
  JVS(285) = -B(69)-B(878)
! JVS(286) = Jac_FULL(88,186)
  JVS(286) = B(618)
! JVS(287) = Jac_FULL(88,228)
  JVS(287) = B(619)
! JVS(288) = Jac_FULL(88,231)
  JVS(288) = -B(879)
! JVS(289) = Jac_FULL(89,89)
  JVS(289) = -B(78)-B(896)
! JVS(290) = Jac_FULL(89,164)
  JVS(290) = B(568)
! JVS(291) = Jac_FULL(89,228)
  JVS(291) = B(569)
! JVS(292) = Jac_FULL(89,231)
  JVS(292) = -B(897)
! JVS(293) = Jac_FULL(90,90)
  JVS(293) = -B(37)-B(778)
! JVS(294) = Jac_FULL(90,210)
  JVS(294) = B(394)
! JVS(295) = Jac_FULL(90,229)
  JVS(295) = B(395)
! JVS(296) = Jac_FULL(90,231)
  JVS(296) = -B(779)
! JVS(297) = Jac_FULL(91,91)
  JVS(297) = -B(38)-B(780)
! JVS(298) = Jac_FULL(91,214)
  JVS(298) = B(396)
! JVS(299) = Jac_FULL(91,229)
  JVS(299) = B(397)
! JVS(300) = Jac_FULL(91,231)
  JVS(300) = -B(781)
! JVS(301) = Jac_FULL(92,92)
  JVS(301) = -B(79)-B(898)
! JVS(302) = Jac_FULL(92,182)
  JVS(302) = B(570)
! JVS(303) = Jac_FULL(92,228)
  JVS(303) = B(571)
! JVS(304) = Jac_FULL(92,231)
  JVS(304) = -B(899)
! JVS(305) = Jac_FULL(93,93)
  JVS(305) = -B(49)-B(840)-B(842)
! JVS(306) = Jac_FULL(93,210)
  JVS(306) = B(550)
! JVS(307) = Jac_FULL(93,228)
  JVS(307) = B(551)
! JVS(308) = Jac_FULL(93,231)
  JVS(308) = -B(841)-B(843)
! JVS(309) = Jac_FULL(94,94)
  JVS(309) = -B(39)-B(782)
! JVS(310) = Jac_FULL(94,216)
  JVS(310) = B(398)
! JVS(311) = Jac_FULL(94,229)
  JVS(311) = B(399)
! JVS(312) = Jac_FULL(94,231)
  JVS(312) = -B(783)
! JVS(313) = Jac_FULL(95,95)
  JVS(313) = -B(86)-B(912)
! JVS(314) = Jac_FULL(95,205)
  JVS(314) = B(630)
! JVS(315) = Jac_FULL(95,228)
  JVS(315) = B(631)
! JVS(316) = Jac_FULL(95,231)
  JVS(316) = -B(913)
! JVS(317) = Jac_FULL(96,96)
  JVS(317) = -B(88)-B(916)
! JVS(318) = Jac_FULL(96,184)
  JVS(318) = B(634)
! JVS(319) = Jac_FULL(96,228)
  JVS(319) = B(635)
! JVS(320) = Jac_FULL(96,231)
  JVS(320) = -B(917)
! JVS(321) = Jac_FULL(97,97)
  JVS(321) = -B(812)
! JVS(322) = Jac_FULL(97,212)
  JVS(322) = B(434)
! JVS(323) = Jac_FULL(97,229)
  JVS(323) = B(435)
! JVS(324) = Jac_FULL(97,231)
  JVS(324) = -B(813)
! JVS(325) = Jac_FULL(98,98)
  JVS(325) = -B(44)-B(790)
! JVS(326) = Jac_FULL(98,206)
  JVS(326) = B(406)
! JVS(327) = Jac_FULL(98,229)
  JVS(327) = B(407)
! JVS(328) = Jac_FULL(98,231)
  JVS(328) = -B(791)
! JVS(329) = Jac_FULL(99,99)
  JVS(329) = -B(814)
! JVS(330) = Jac_FULL(99,185)
  JVS(330) = B(436)
! JVS(331) = Jac_FULL(99,229)
  JVS(331) = B(437)
! JVS(332) = Jac_FULL(99,231)
  JVS(332) = -B(815)
! JVS(333) = Jac_FULL(100,100)
  JVS(333) = -B(48)-B(816)
! JVS(334) = Jac_FULL(100,215)
  JVS(334) = B(438)
! JVS(335) = Jac_FULL(100,229)
  JVS(335) = B(439)
! JVS(336) = Jac_FULL(100,231)
  JVS(336) = -B(817)
! JVS(337) = Jac_FULL(101,101)
  JVS(337) = -B(70)-B(880)
! JVS(338) = Jac_FULL(101,198)
  JVS(338) = B(576)
! JVS(339) = Jac_FULL(101,228)
  JVS(339) = B(577)
! JVS(340) = Jac_FULL(101,231)
  JVS(340) = -B(881)
! JVS(341) = Jac_FULL(102,102)
  JVS(341) = -B(818)
! JVS(342) = Jac_FULL(102,211)
  JVS(342) = B(440)
! JVS(343) = Jac_FULL(102,229)
  JVS(343) = B(441)
! JVS(344) = Jac_FULL(102,231)
  JVS(344) = -B(819)
! JVS(345) = Jac_FULL(103,103)
  JVS(345) = -B(91)-B(922)
! JVS(346) = Jac_FULL(103,211)
  JVS(346) = B(640)
! JVS(347) = Jac_FULL(103,228)
  JVS(347) = B(641)
! JVS(348) = Jac_FULL(103,231)
  JVS(348) = -B(923)
! JVS(349) = Jac_FULL(104,104)
  JVS(349) = -B(798)
! JVS(350) = Jac_FULL(104,209)
  JVS(350) = B(414)
! JVS(351) = Jac_FULL(104,225)
  JVS(351) = B(418)
! JVS(352) = Jac_FULL(104,229)
  JVS(352) = B(415)+B(419)
! JVS(353) = Jac_FULL(104,231)
  JVS(353) = -B(799)
! JVS(354) = Jac_FULL(105,105)
  JVS(354) = -B(800)
! JVS(355) = Jac_FULL(105,174)
  JVS(355) = B(416)
! JVS(356) = Jac_FULL(105,202)
  JVS(356) = B(420)
! JVS(357) = Jac_FULL(105,229)
  JVS(357) = B(417)+B(421)
! JVS(358) = Jac_FULL(105,231)
  JVS(358) = -B(801)
! JVS(359) = Jac_FULL(106,106)
  JVS(359) = -B(987)-B(1051)
! JVS(360) = Jac_FULL(106,176)
  JVS(360) = B(1046)
! JVS(361) = Jac_FULL(106,228)
  JVS(361) = B(1047)
! JVS(362) = Jac_FULL(106,231)
  JVS(362) = -B(1052)
! JVS(363) = Jac_FULL(107,107)
  JVS(363) = -B(3)-B(130)
! JVS(364) = Jac_FULL(107,159)
  JVS(364) = B(224)
! JVS(365) = Jac_FULL(107,165)
  JVS(365) = B(214)
! JVS(366) = Jac_FULL(107,191)
  JVS(366) = B(750)
! JVS(367) = Jac_FULL(107,203)
  JVS(367) = B(726)
! JVS(368) = Jac_FULL(107,223)
  JVS(368) = B(215)+B(225)+B(727)+B(751)
! JVS(369) = Jac_FULL(107,228)
  JVS(369) = B(136)+B(137)
! JVS(370) = Jac_FULL(107,231)
  JVS(370) = -B(131)
! JVS(371) = Jac_FULL(108,75)
  JVS(371) = B(90)+B(920)
! JVS(372) = Jac_FULL(108,100)
  JVS(372) = B(48)+B(816)
! JVS(373) = Jac_FULL(108,108)
  JVS(373) = -B(776)
! JVS(374) = Jac_FULL(108,159)
  JVS(374) = B(226)
! JVS(375) = Jac_FULL(108,215)
  JVS(375) = B(388)+B(544)+B(703)
! JVS(376) = Jac_FULL(108,223)
  JVS(376) = B(227)
! JVS(377) = Jac_FULL(108,228)
  JVS(377) = 0
! JVS(378) = Jac_FULL(108,229)
  JVS(378) = B(389)
! JVS(379) = Jac_FULL(108,230)
  JVS(379) = B(545)
! JVS(380) = Jac_FULL(108,231)
  JVS(380) = -B(777)+B(817)+B(921)
! JVS(381) = Jac_FULL(109,109)
  JVS(381) = -B(1060)-B(1062)-B(1064)
! JVS(382) = Jac_FULL(109,230)
  JVS(382) = -B(1065)
! JVS(383) = Jac_FULL(109,231)
  JVS(383) = -B(1061)-B(1063)
! JVS(384) = Jac_FULL(110,42)
  JVS(384) = 0.95*B(1085)
! JVS(385) = Jac_FULL(110,109)
  JVS(385) = 0
! JVS(386) = Jac_FULL(110,110)
  JVS(386) = -B(1087)-B(1089)
! JVS(387) = Jac_FULL(110,230)
  JVS(387) = -B(1090)
! JVS(388) = Jac_FULL(110,231)
  JVS(388) = 0.95*B(1086)-B(1088)
! JVS(389) = Jac_FULL(111,109)
  JVS(389) = B(1060)+B(1064)
! JVS(390) = Jac_FULL(111,111)
  JVS(390) = -B(1066)-2*B(1068)
! JVS(391) = Jac_FULL(111,229)
  JVS(391) = -B(1067)
! JVS(392) = Jac_FULL(111,230)
  JVS(392) = B(1065)
! JVS(393) = Jac_FULL(111,231)
  JVS(393) = B(1061)
! JVS(394) = Jac_FULL(112,112)
  JVS(394) = -B(931)-B(937)
! JVS(395) = Jac_FULL(112,204)
  JVS(395) = B(929)
! JVS(396) = Jac_FULL(112,231)
  JVS(396) = -B(938)
! JVS(397) = Jac_FULL(112,232)
  JVS(397) = B(930)
! JVS(398) = Jac_FULL(113,113)
  JVS(398) = -B(934)-B(939)
! JVS(399) = Jac_FULL(113,188)
  JVS(399) = B(932)
! JVS(400) = Jac_FULL(113,231)
  JVS(400) = -B(940)
! JVS(401) = Jac_FULL(113,232)
  JVS(401) = B(933)
! JVS(402) = Jac_FULL(114,114)
  JVS(402) = -B(64)-B(65)-B(870)
! JVS(403) = Jac_FULL(114,180)
  JVS(403) = B(604)
! JVS(404) = Jac_FULL(114,228)
  JVS(404) = B(605)
! JVS(405) = Jac_FULL(114,231)
  JVS(405) = -B(871)
! JVS(406) = Jac_FULL(115,115)
  JVS(406) = -B(66)-B(872)
! JVS(407) = Jac_FULL(115,201)
  JVS(407) = B(606)
! JVS(408) = Jac_FULL(115,228)
  JVS(408) = B(607)
! JVS(409) = Jac_FULL(115,231)
  JVS(409) = -B(873)
! JVS(410) = Jac_FULL(116,116)
  JVS(410) = -B(62)-B(866)
! JVS(411) = Jac_FULL(116,217)
  JVS(411) = B(600)
! JVS(412) = Jac_FULL(116,228)
  JVS(412) = B(601)
! JVS(413) = Jac_FULL(116,231)
  JVS(413) = -B(867)
! JVS(414) = Jac_FULL(117,117)
  JVS(414) = -B(946)-B(947)
! JVS(415) = Jac_FULL(117,200)
  JVS(415) = B(944)
! JVS(416) = Jac_FULL(117,231)
  JVS(416) = -B(948)
! JVS(417) = Jac_FULL(117,232)
  JVS(417) = B(945)
! JVS(418) = Jac_FULL(118,118)
  JVS(418) = -B(71)-B(882)
! JVS(419) = Jac_FULL(118,218)
  JVS(419) = B(578)
! JVS(420) = Jac_FULL(118,228)
  JVS(420) = B(579)
! JVS(421) = Jac_FULL(118,231)
  JVS(421) = -B(883)
! JVS(422) = Jac_FULL(119,119)
  JVS(422) = -B(45)-B(804)
! JVS(423) = Jac_FULL(119,164)
  JVS(423) = B(424)
! JVS(424) = Jac_FULL(119,229)
  JVS(424) = B(425)
! JVS(425) = Jac_FULL(119,231)
  JVS(425) = -B(805)
! JVS(426) = Jac_FULL(120,48)
  JVS(426) = B(824)
! JVS(427) = Jac_FULL(120,120)
  JVS(427) = -B(826)-B(828)
! JVS(428) = Jac_FULL(120,230)
  JVS(428) = -B(829)
! JVS(429) = Jac_FULL(120,231)
  JVS(429) = -B(827)
! JVS(430) = Jac_FULL(120,232)
  JVS(430) = B(825)
! JVS(431) = Jac_FULL(121,121)
  JVS(431) = -B(46)-B(806)
! JVS(432) = Jac_FULL(121,182)
  JVS(432) = B(426)
! JVS(433) = Jac_FULL(121,229)
  JVS(433) = B(427)
! JVS(434) = Jac_FULL(121,231)
  JVS(434) = -B(807)
! JVS(435) = Jac_FULL(122,50)
  JVS(435) = B(834)
! JVS(436) = Jac_FULL(122,122)
  JVS(436) = -B(836)-B(838)
! JVS(437) = Jac_FULL(122,230)
  JVS(437) = -B(839)
! JVS(438) = Jac_FULL(122,231)
  JVS(438) = -B(837)
! JVS(439) = Jac_FULL(122,232)
  JVS(439) = B(835)
! JVS(440) = Jac_FULL(123,123)
  JVS(440) = -B(953)-B(954)
! JVS(441) = Jac_FULL(123,222)
  JVS(441) = B(951)
! JVS(442) = Jac_FULL(123,231)
  JVS(442) = -B(955)
! JVS(443) = Jac_FULL(123,232)
  JVS(443) = B(952)
! JVS(444) = Jac_FULL(124,124)
  JVS(444) = -B(87)-B(914)
! JVS(445) = Jac_FULL(124,194)
  JVS(445) = B(632)
! JVS(446) = Jac_FULL(124,228)
  JVS(446) = B(633)
! JVS(447) = Jac_FULL(124,231)
  JVS(447) = -B(915)
! JVS(448) = Jac_FULL(125,125)
  JVS(448) = -B(89)-B(918)
! JVS(449) = Jac_FULL(125,185)
  JVS(449) = B(636)
! JVS(450) = Jac_FULL(125,228)
  JVS(450) = B(637)
! JVS(451) = Jac_FULL(125,231)
  JVS(451) = -B(919)
! JVS(452) = Jac_FULL(126,126)
  JVS(452) = -B(92)-B(924)
! JVS(453) = Jac_FULL(126,169)
  JVS(453) = B(642)
! JVS(454) = Jac_FULL(126,228)
  JVS(454) = B(643)
! JVS(455) = Jac_FULL(126,231)
  JVS(455) = -B(925)
! JVS(456) = Jac_FULL(127,127)
  JVS(456) = -B(158)-B(160)
! JVS(457) = Jac_FULL(127,171)
  JVS(457) = B(1077)
! JVS(458) = Jac_FULL(127,172)
  JVS(458) = 0.18*B(1073)
! JVS(459) = Jac_FULL(127,173)
  JVS(459) = -B(159)
! JVS(460) = Jac_FULL(127,231)
  JVS(460) = -B(161)
! JVS(461) = Jac_FULL(127,232)
  JVS(461) = 0.18*B(1074)
! JVS(462) = Jac_FULL(128,128)
  JVS(462) = -B(986)-B(1049)
! JVS(463) = Jac_FULL(128,176)
  JVS(463) = B(1042)
! JVS(464) = Jac_FULL(128,229)
  JVS(464) = B(1043)
! JVS(465) = Jac_FULL(128,231)
  JVS(465) = -B(1050)
! JVS(466) = Jac_FULL(129,129)
  JVS(466) = -B(928)-B(935)
! JVS(467) = Jac_FULL(129,219)
  JVS(467) = B(926)
! JVS(468) = Jac_FULL(129,231)
  JVS(468) = -B(936)
! JVS(469) = Jac_FULL(129,232)
  JVS(469) = B(927)
! JVS(470) = Jac_FULL(130,130)
  JVS(470) = -B(74)-B(888)
! JVS(471) = Jac_FULL(130,174)
  JVS(471) = B(584)
! JVS(472) = Jac_FULL(130,202)
  JVS(472) = B(588)
! JVS(473) = Jac_FULL(130,228)
  JVS(473) = B(585)+B(589)
! JVS(474) = Jac_FULL(130,231)
  JVS(474) = -B(889)
! JVS(475) = Jac_FULL(131,131)
  JVS(475) = -B(80)-B(900)
! JVS(476) = Jac_FULL(131,189)
  JVS(476) = B(572)
! JVS(477) = Jac_FULL(131,196)
  JVS(477) = B(574)
! JVS(478) = Jac_FULL(131,228)
  JVS(478) = B(573)+B(575)
! JVS(479) = Jac_FULL(131,231)
  JVS(479) = -B(901)
! JVS(480) = Jac_FULL(132,57)
  JVS(480) = B(854)
! JVS(481) = Jac_FULL(132,98)
  JVS(481) = B(790)
! JVS(482) = Jac_FULL(132,132)
  JVS(482) = -B(16)-B(708)
! JVS(483) = Jac_FULL(132,206)
  JVS(483) = 0
! JVS(484) = Jac_FULL(132,228)
  JVS(484) = 0
! JVS(485) = Jac_FULL(132,229)
  JVS(485) = 0
! JVS(486) = Jac_FULL(132,231)
  JVS(486) = -B(709)+B(791)+B(855)
! JVS(487) = Jac_FULL(133,99)
  JVS(487) = B(814)
! JVS(488) = Jac_FULL(133,125)
  JVS(488) = B(89)
! JVS(489) = Jac_FULL(133,126)
  JVS(489) = B(92)
! JVS(490) = Jac_FULL(133,133)
  JVS(490) = -B(774)
! JVS(491) = Jac_FULL(133,159)
  JVS(491) = B(224)+B(228)
! JVS(492) = Jac_FULL(133,169)
  JVS(492) = B(386)+B(548)+B(705)
! JVS(493) = Jac_FULL(133,185)
  JVS(493) = B(382)+B(542)+B(702)
! JVS(494) = Jac_FULL(133,223)
  JVS(494) = B(225)+B(229)
! JVS(495) = Jac_FULL(133,228)
  JVS(495) = 0
! JVS(496) = Jac_FULL(133,229)
  JVS(496) = B(383)+B(387)
! JVS(497) = Jac_FULL(133,230)
  JVS(497) = B(543)+B(549)
! JVS(498) = Jac_FULL(133,231)
  JVS(498) = -B(775)+B(815)
! JVS(499) = Jac_FULL(134,134)
  JVS(499) = -B(985)-B(1036)
! JVS(500) = Jac_FULL(134,157)
  JVS(500) = B(1028)
! JVS(501) = Jac_FULL(134,197)
  JVS(501) = B(1030)
! JVS(502) = Jac_FULL(134,228)
  JVS(502) = B(1029)+B(1031)
! JVS(503) = Jac_FULL(134,231)
  JVS(503) = -B(1037)
! JVS(504) = Jac_FULL(135,135)
  JVS(504) = -B(41)-B(42)-B(786)
! JVS(505) = Jac_FULL(135,226)
  JVS(505) = B(402)
! JVS(506) = Jac_FULL(135,229)
  JVS(506) = B(403)
! JVS(507) = Jac_FULL(135,231)
  JVS(507) = -B(787)
! JVS(508) = Jac_FULL(136,78)
  JVS(508) = B(994)
! JVS(509) = Jac_FULL(136,136)
  JVS(509) = -B(983)-B(996)-B(998)
! JVS(510) = Jac_FULL(136,162)
  JVS(510) = 0
! JVS(511) = Jac_FULL(136,230)
  JVS(511) = -B(999)
! JVS(512) = Jac_FULL(136,231)
  JVS(512) = B(995)-B(997)
! JVS(513) = Jac_FULL(137,137)
  JVS(513) = -B(73)-B(886)
! JVS(514) = Jac_FULL(137,209)
  JVS(514) = B(582)
! JVS(515) = Jac_FULL(137,225)
  JVS(515) = B(586)
! JVS(516) = Jac_FULL(137,228)
  JVS(516) = B(583)+B(587)
! JVS(517) = Jac_FULL(137,231)
  JVS(517) = -B(887)
! JVS(518) = Jac_FULL(138,79)
  JVS(518) = B(788)
! JVS(519) = Jac_FULL(138,80)
  JVS(519) = B(852)
! JVS(520) = Jac_FULL(138,138)
  JVS(520) = -B(15)-B(706)
! JVS(521) = Jac_FULL(138,178)
  JVS(521) = 0
! JVS(522) = Jac_FULL(138,224)
  JVS(522) = 0
! JVS(523) = Jac_FULL(138,228)
  JVS(523) = 0
! JVS(524) = Jac_FULL(138,229)
  JVS(524) = 0
! JVS(525) = Jac_FULL(138,231)
  JVS(525) = -B(707)+B(789)+B(853)
! JVS(526) = Jac_FULL(139,139)
  JVS(526) = -B(47)-B(808)
! JVS(527) = Jac_FULL(139,189)
  JVS(527) = B(428)
! JVS(528) = Jac_FULL(139,196)
  JVS(528) = B(430)
! JVS(529) = Jac_FULL(139,229)
  JVS(529) = B(429)+B(431)
! JVS(530) = Jac_FULL(139,231)
  JVS(530) = -B(809)
! JVS(531) = Jac_FULL(140,55)
  JVS(531) = B(796)
! JVS(532) = Jac_FULL(140,82)
  JVS(532) = B(884)
! JVS(533) = Jac_FULL(140,140)
  JVS(533) = -B(19)-B(714)
! JVS(534) = Jac_FULL(140,213)
  JVS(534) = 0
! JVS(535) = Jac_FULL(140,228)
  JVS(535) = 0
! JVS(536) = Jac_FULL(140,229)
  JVS(536) = 0
! JVS(537) = Jac_FULL(140,231)
  JVS(537) = -B(715)+B(797)+B(885)
! JVS(538) = Jac_FULL(141,135)
  JVS(538) = B(42)+B(786)
! JVS(539) = Jac_FULL(141,141)
  JVS(539) = -B(17)-B(710)
! JVS(540) = Jac_FULL(141,175)
  JVS(540) = B(54)+B(850)
! JVS(541) = Jac_FULL(141,226)
  JVS(541) = B(290)+B(452)+B(657)
! JVS(542) = Jac_FULL(141,229)
  JVS(542) = B(291)
! JVS(543) = Jac_FULL(141,230)
  JVS(543) = B(453)
! JVS(544) = Jac_FULL(141,231)
  JVS(544) = -B(711)+B(787)+B(851)
! JVS(545) = Jac_FULL(142,142)
  JVS(545) = -B(984)-B(1034)
! JVS(546) = Jac_FULL(142,157)
  JVS(546) = B(1020)
! JVS(547) = Jac_FULL(142,197)
  JVS(547) = B(1022)
! JVS(548) = Jac_FULL(142,229)
  JVS(548) = B(1021)+B(1023)
! JVS(549) = Jac_FULL(142,231)
  JVS(549) = -B(1035)
! JVS(550) = Jac_FULL(143,111)
  JVS(550) = B(1066)+2*B(1068)
! JVS(551) = Jac_FULL(143,143)
  JVS(551) = -B(1069)-B(1071)
! JVS(552) = Jac_FULL(143,223)
  JVS(552) = -B(1070)
! JVS(553) = Jac_FULL(143,229)
  JVS(553) = B(1067)
! JVS(554) = Jac_FULL(143,230)
  JVS(554) = 0
! JVS(555) = Jac_FULL(143,231)
  JVS(555) = 0
! JVS(556) = Jac_FULL(143,232)
  JVS(556) = -B(1072)
! JVS(557) = Jac_FULL(144,144)
  JVS(557) = -B(360)-B(522)-B(616)-B(692)
! JVS(558) = Jac_FULL(144,177)
  JVS(558) = B(202)
! JVS(559) = Jac_FULL(144,228)
  JVS(559) = -B(617)
! JVS(560) = Jac_FULL(144,229)
  JVS(560) = -B(361)
! JVS(561) = Jac_FULL(144,230)
  JVS(561) = B(203)-B(523)
! JVS(562) = Jac_FULL(145,145)
  JVS(562) = -B(358)-B(520)-B(614)-B(691)
! JVS(563) = Jac_FULL(145,161)
  JVS(563) = B(186)
! JVS(564) = Jac_FULL(145,228)
  JVS(564) = -B(615)
! JVS(565) = Jac_FULL(145,229)
  JVS(565) = -B(359)
! JVS(566) = Jac_FULL(145,230)
  JVS(566) = B(187)-B(521)
! JVS(567) = Jac_FULL(146,146)
  JVS(567) = -B(368)-B(528)-B(622)-B(695)
! JVS(568) = Jac_FULL(146,165)
  JVS(568) = B(210)
! JVS(569) = Jac_FULL(146,228)
  JVS(569) = -B(623)
! JVS(570) = Jac_FULL(146,229)
  JVS(570) = -B(369)
! JVS(571) = Jac_FULL(146,230)
  JVS(571) = B(211)-B(529)
! JVS(572) = Jac_FULL(147,59)
  JVS(572) = B(864)
! JVS(573) = Jac_FULL(147,140)
  JVS(573) = B(714)
! JVS(574) = Jac_FULL(147,147)
  JVS(574) = -B(26)-B(736)
! JVS(575) = Jac_FULL(147,196)
  JVS(575) = B(308)+B(470)
! JVS(576) = Jac_FULL(147,197)
  JVS(576) = B(1018)+B(1026)+B(1033)
! JVS(577) = Jac_FULL(147,208)
  JVS(577) = 0
! JVS(578) = Jac_FULL(147,213)
  JVS(578) = 0
! JVS(579) = Jac_FULL(147,228)
  JVS(579) = 0
! JVS(580) = Jac_FULL(147,229)
  JVS(580) = B(309)+B(1019)
! JVS(581) = Jac_FULL(147,230)
  JVS(581) = B(471)+B(1027)
! JVS(582) = Jac_FULL(147,231)
  JVS(582) = B(715)-B(737)+B(865)
! JVS(583) = Jac_FULL(148,148)
  JVS(583) = -B(354)-B(516)-B(610)-B(689)
! JVS(584) = Jac_FULL(148,154)
  JVS(584) = B(182)
! JVS(585) = Jac_FULL(148,228)
  JVS(585) = -B(611)
! JVS(586) = Jac_FULL(148,229)
  JVS(586) = -B(355)
! JVS(587) = Jac_FULL(148,230)
  JVS(587) = B(183)-B(517)
! JVS(588) = Jac_FULL(149,149)
  JVS(588) = -B(296)-B(458)-B(564)-B(658)
! JVS(589) = Jac_FULL(149,215)
  JVS(589) = B(390)
! JVS(590) = Jac_FULL(149,228)
  JVS(590) = -B(565)
! JVS(591) = Jac_FULL(149,229)
  JVS(591) = -B(297)+B(391)
! JVS(592) = Jac_FULL(149,230)
  JVS(592) = -B(459)
! JVS(593) = Jac_FULL(150,150)
  JVS(593) = -B(178)-B(184)-B(192)-B(194)
! JVS(594) = Jac_FULL(150,223)
  JVS(594) = -B(193)-B(195)
! JVS(595) = Jac_FULL(150,230)
  JVS(595) = -B(185)
! JVS(596) = Jac_FULL(150,231)
  JVS(596) = -B(179)
! JVS(597) = Jac_FULL(151,36)
  JVS(597) = B(232)
! JVS(598) = Jac_FULL(151,89)
  JVS(598) = B(78)+B(896)
! JVS(599) = Jac_FULL(151,92)
  JVS(599) = B(79)+B(898)
! JVS(600) = Jac_FULL(151,119)
  JVS(600) = B(45)+B(804)
! JVS(601) = Jac_FULL(151,121)
  JVS(601) = B(46)+B(806)
! JVS(602) = Jac_FULL(151,151)
  JVS(602) = -B(24)-B(732)
! JVS(603) = Jac_FULL(151,164)
  JVS(603) = B(300)+B(462)+B(660)
! JVS(604) = Jac_FULL(151,182)
  JVS(604) = B(302)+B(464)+B(661)
! JVS(605) = Jac_FULL(151,189)
  JVS(605) = B(306)+B(468)+B(663)
! JVS(606) = Jac_FULL(151,196)
  JVS(606) = B(664)
! JVS(607) = Jac_FULL(151,228)
  JVS(607) = 0
! JVS(608) = Jac_FULL(151,229)
  JVS(608) = B(301)+B(303)+B(307)
! JVS(609) = Jac_FULL(151,230)
  JVS(609) = B(463)+B(465)+B(469)
! JVS(610) = Jac_FULL(151,231)
  JVS(610) = B(233)-B(733)+B(805)+B(807)+B(897)+B(899)
! JVS(611) = Jac_FULL(152,65)
  JVS(611) = B(68)+B(876)
! JVS(612) = Jac_FULL(152,144)
  JVS(612) = B(360)+B(522)+B(692)
! JVS(613) = Jac_FULL(152,152)
  JVS(613) = -B(30)-B(752)
! JVS(614) = Jac_FULL(152,177)
  JVS(614) = 0
! JVS(615) = Jac_FULL(152,228)
  JVS(615) = 0
! JVS(616) = Jac_FULL(152,229)
  JVS(616) = B(361)
! JVS(617) = Jac_FULL(152,230)
  JVS(617) = B(523)
! JVS(618) = Jac_FULL(152,231)
  JVS(618) = -B(753)+B(877)
! JVS(619) = Jac_FULL(153,106)
  JVS(619) = B(987)+B(1051)
! JVS(620) = Jac_FULL(153,128)
  JVS(620) = B(986)+B(1049)
! JVS(621) = Jac_FULL(153,153)
  JVS(621) = -B(988)-B(989)-B(1053)-B(1055)
! JVS(622) = Jac_FULL(153,176)
  JVS(622) = B(1040)+B(1044)+B(1048)
! JVS(623) = Jac_FULL(153,228)
  JVS(623) = 0
! JVS(624) = Jac_FULL(153,229)
  JVS(624) = B(1041)
! JVS(625) = Jac_FULL(153,230)
  JVS(625) = B(1045)
! JVS(626) = Jac_FULL(153,231)
  JVS(626) = B(1050)+B(1052)-B(1054)-B(1056)
! JVS(627) = Jac_FULL(154,154)
  JVS(627) = -B(176)-B(182)-B(188)-B(190)
! JVS(628) = Jac_FULL(154,223)
  JVS(628) = -B(189)-B(191)
! JVS(629) = Jac_FULL(154,230)
  JVS(629) = -B(183)
! JVS(630) = Jac_FULL(154,231)
  JVS(630) = -B(177)
! JVS(631) = Jac_FULL(155,89)
  JVS(631) = B(78)+B(896)
! JVS(632) = Jac_FULL(155,119)
  JVS(632) = B(45)+B(804)
! JVS(633) = Jac_FULL(155,155)
  JVS(633) = -B(32)-B(93)-B(756)-B(958)
! JVS(634) = Jac_FULL(155,164)
  JVS(634) = B(300)+B(462)+B(660)
! JVS(635) = Jac_FULL(155,182)
  JVS(635) = B(304)+B(466)+B(662)
! JVS(636) = Jac_FULL(155,196)
  JVS(636) = B(308)+B(470)
! JVS(637) = Jac_FULL(155,228)
  JVS(637) = 0
! JVS(638) = Jac_FULL(155,229)
  JVS(638) = B(301)+B(305)+B(309)
! JVS(639) = Jac_FULL(155,230)
  JVS(639) = B(463)+B(467)+B(471)
! JVS(640) = Jac_FULL(155,231)
  JVS(640) = -B(757)+B(805)+B(897)-B(959)
! JVS(641) = Jac_FULL(156,26)
  JVS(641) = B(170)
! JVS(642) = Jac_FULL(156,156)
  JVS(642) = -B(286)-B(400)-B(448)-B(556)-B(653)-B(654)-B(655)
! JVS(643) = Jac_FULL(156,228)
  JVS(643) = -B(557)
! JVS(644) = Jac_FULL(156,229)
  JVS(644) = -B(287)-B(401)
! JVS(645) = Jac_FULL(156,230)
  JVS(645) = -B(449)
! JVS(646) = Jac_FULL(156,231)
  JVS(646) = B(171)
! JVS(647) = Jac_FULL(157,21)
  JVS(647) = B(1008)
! JVS(648) = Jac_FULL(157,22)
  JVS(648) = B(1010)
! JVS(649) = Jac_FULL(157,23)
  JVS(649) = B(1012)
! JVS(650) = Jac_FULL(157,24)
  JVS(650) = B(1014)
! JVS(651) = Jac_FULL(157,28)
  JVS(651) = B(1000)
! JVS(652) = Jac_FULL(157,29)
  JVS(652) = B(1004)
! JVS(653) = Jac_FULL(157,157)
  JVS(653) = -B(1016)-B(1020)-B(1024)-B(1028)-B(1032)
! JVS(654) = Jac_FULL(157,228)
  JVS(654) = -B(1029)
! JVS(655) = Jac_FULL(157,229)
  JVS(655) = -B(1017)-B(1021)
! JVS(656) = Jac_FULL(157,230)
  JVS(656) = -B(1025)
! JVS(657) = Jac_FULL(157,231)
  JVS(657) = B(1001)+B(1005)+B(1009)+B(1011)+B(1013)+B(1015)
! JVS(658) = Jac_FULL(158,71)
  JVS(658) = B(84)
! JVS(659) = Jac_FULL(158,72)
  JVS(659) = B(910)
! JVS(660) = Jac_FULL(158,158)
  JVS(660) = -B(374)-B(534)-B(628)-B(698)
! JVS(661) = Jac_FULL(158,212)
  JVS(661) = B(372)+B(532)+B(697)
! JVS(662) = Jac_FULL(158,228)
  JVS(662) = -B(629)
! JVS(663) = Jac_FULL(158,229)
  JVS(663) = B(373)-B(375)
! JVS(664) = Jac_FULL(158,230)
  JVS(664) = B(533)-B(535)
! JVS(665) = Jac_FULL(158,231)
  JVS(665) = B(911)
! JVS(666) = Jac_FULL(159,159)
  JVS(666) = -B(218)-B(220)-B(222)-B(224)-B(226)-B(228)
! JVS(667) = Jac_FULL(159,223)
  JVS(667) = -B(223)-B(225)-B(227)-B(229)
! JVS(668) = Jac_FULL(159,230)
  JVS(668) = -B(221)
! JVS(669) = Jac_FULL(159,231)
  JVS(669) = -B(219)
! JVS(670) = Jac_FULL(160,124)
  JVS(670) = B(87)
! JVS(671) = Jac_FULL(160,160)
  JVS(671) = -B(36)-B(766)-B(770)
! JVS(672) = Jac_FULL(160,194)
  JVS(672) = B(378)+B(538)+B(700)
! JVS(673) = Jac_FULL(160,228)
  JVS(673) = 0
! JVS(674) = Jac_FULL(160,229)
  JVS(674) = B(379)
! JVS(675) = Jac_FULL(160,230)
  JVS(675) = B(539)-B(771)
! JVS(676) = Jac_FULL(160,231)
  JVS(676) = -B(767)
! JVS(677) = Jac_FULL(161,161)
  JVS(677) = -B(180)-B(186)-B(196)-B(198)
! JVS(678) = Jac_FULL(161,223)
  JVS(678) = -B(197)-B(199)
! JVS(679) = Jac_FULL(161,230)
  JVS(679) = -B(187)
! JVS(680) = Jac_FULL(161,231)
  JVS(680) = -B(181)
! JVS(681) = Jac_FULL(162,162)
  JVS(681) = -B(992)
! JVS(682) = Jac_FULL(162,205)
  JVS(682) = B(990)
! JVS(683) = Jac_FULL(162,229)
  JVS(683) = B(991)
! JVS(684) = Jac_FULL(162,231)
  JVS(684) = -B(993)
! JVS(685) = Jac_FULL(163,88)
  JVS(685) = B(69)+B(878)
! JVS(686) = Jac_FULL(163,152)
  JVS(686) = B(30)
! JVS(687) = Jac_FULL(163,163)
  JVS(687) = -B(31)-B(754)
! JVS(688) = Jac_FULL(163,177)
  JVS(688) = 0
! JVS(689) = Jac_FULL(163,186)
  JVS(689) = B(362)+B(524)+B(693)
! JVS(690) = Jac_FULL(163,228)
  JVS(690) = 0
! JVS(691) = Jac_FULL(163,229)
  JVS(691) = B(363)
! JVS(692) = Jac_FULL(163,230)
  JVS(692) = B(525)
! JVS(693) = Jac_FULL(163,231)
  JVS(693) = -B(755)+B(879)
! JVS(694) = Jac_FULL(164,30)
  JVS(694) = B(234)
! JVS(695) = Jac_FULL(164,164)
  JVS(695) = -B(300)-B(424)-B(462)-B(568)-B(660)
! JVS(696) = Jac_FULL(164,228)
  JVS(696) = -B(569)
! JVS(697) = Jac_FULL(164,229)
  JVS(697) = -B(301)-B(425)
! JVS(698) = Jac_FULL(164,230)
  JVS(698) = -B(463)
! JVS(699) = Jac_FULL(164,231)
  JVS(699) = B(235)
! JVS(700) = Jac_FULL(165,165)
  JVS(700) = -B(208)-B(210)-B(212)-B(214)-B(216)
! JVS(701) = Jac_FULL(165,223)
  JVS(701) = -B(213)-B(215)-B(217)
! JVS(702) = Jac_FULL(165,230)
  JVS(702) = -B(211)
! JVS(703) = Jac_FULL(165,231)
  JVS(703) = -B(209)
! JVS(704) = Jac_FULL(166,67)
  JVS(704) = B(810)
! JVS(705) = Jac_FULL(166,68)
  JVS(705) = B(81)+B(902)
! JVS(706) = Jac_FULL(166,70)
  JVS(706) = B(82)+B(906)
! JVS(707) = Jac_FULL(166,146)
  JVS(707) = B(368)+B(528)+B(695)
! JVS(708) = Jac_FULL(166,165)
  JVS(708) = B(214)
! JVS(709) = Jac_FULL(166,166)
  JVS(709) = -B(35)-B(762)-B(768)
! JVS(710) = Jac_FULL(166,193)
  JVS(710) = B(364)+B(526)+B(694)
! JVS(711) = Jac_FULL(166,223)
  JVS(711) = B(215)
! JVS(712) = Jac_FULL(166,228)
  JVS(712) = 0
! JVS(713) = Jac_FULL(166,229)
  JVS(713) = B(365)+B(369)
! JVS(714) = Jac_FULL(166,230)
  JVS(714) = B(527)+B(529)-B(769)
! JVS(715) = Jac_FULL(166,231)
  JVS(715) = -B(763)+B(811)+B(903)+B(907)
! JVS(716) = Jac_FULL(167,150)
  JVS(716) = B(184)
! JVS(717) = Jac_FULL(167,167)
  JVS(717) = -B(356)-B(518)-B(612)-B(690)
! JVS(718) = Jac_FULL(167,223)
  JVS(718) = 0
! JVS(719) = Jac_FULL(167,228)
  JVS(719) = -B(613)
! JVS(720) = Jac_FULL(167,229)
  JVS(720) = -B(357)
! JVS(721) = Jac_FULL(167,230)
  JVS(721) = B(185)-B(519)
! JVS(722) = Jac_FULL(167,231)
  JVS(722) = 0
! JVS(723) = Jac_FULL(168,104)
  JVS(723) = B(798)
! JVS(724) = Jac_FULL(168,120)
  JVS(724) = B(826)+B(828)
! JVS(725) = Jac_FULL(168,137)
  JVS(725) = B(886)
! JVS(726) = Jac_FULL(168,168)
  JVS(726) = -B(20)-B(716)
! JVS(727) = Jac_FULL(168,209)
  JVS(727) = 0
! JVS(728) = Jac_FULL(168,225)
  JVS(728) = B(322)+B(484)+B(673)
! JVS(729) = Jac_FULL(168,228)
  JVS(729) = 0
! JVS(730) = Jac_FULL(168,229)
  JVS(730) = B(323)
! JVS(731) = Jac_FULL(168,230)
  JVS(731) = B(485)+B(829)
! JVS(732) = Jac_FULL(168,231)
  JVS(732) = -B(717)+B(799)+B(827)+B(887)
! JVS(733) = Jac_FULL(168,232)
  JVS(733) = 0
! JVS(734) = Jac_FULL(169,126)
  JVS(734) = B(924)
! JVS(735) = Jac_FULL(169,159)
  JVS(735) = B(220)
! JVS(736) = Jac_FULL(169,169)
  JVS(736) = -B(386)-B(548)-B(642)-B(705)
! JVS(737) = Jac_FULL(169,223)
  JVS(737) = 0
! JVS(738) = Jac_FULL(169,228)
  JVS(738) = -B(643)
! JVS(739) = Jac_FULL(169,229)
  JVS(739) = -B(387)
! JVS(740) = Jac_FULL(169,230)
  JVS(740) = B(221)-B(549)
! JVS(741) = Jac_FULL(169,231)
  JVS(741) = B(925)
! JVS(742) = Jac_FULL(170,134)
  JVS(742) = B(985)+B(1036)
! JVS(743) = Jac_FULL(170,142)
  JVS(743) = B(984)+B(1034)
! JVS(744) = Jac_FULL(170,157)
  JVS(744) = B(1016)+B(1024)+B(1032)
! JVS(745) = Jac_FULL(170,170)
  JVS(745) = -B(34)-B(95)-B(760)-B(962)
! JVS(746) = Jac_FULL(170,189)
  JVS(746) = B(306)+B(468)+B(663)
! JVS(747) = Jac_FULL(170,196)
  JVS(747) = B(664)
! JVS(748) = Jac_FULL(170,197)
  JVS(748) = 0
! JVS(749) = Jac_FULL(170,228)
  JVS(749) = 0
! JVS(750) = Jac_FULL(170,229)
  JVS(750) = B(307)+B(1017)
! JVS(751) = Jac_FULL(170,230)
  JVS(751) = B(469)+B(1025)
! JVS(752) = Jac_FULL(170,231)
  JVS(752) = -B(761)-B(963)+B(1035)+B(1037)
! JVS(753) = Jac_FULL(171,110)
  JVS(753) = 0.95*B(1087)+B(1089)
! JVS(754) = Jac_FULL(171,171)
  JVS(754) = -B(1077)-B(1078)-B(1080)
! JVS(755) = Jac_FULL(171,172)
  JVS(755) = 0.82*B(1073)+B(1075)
! JVS(756) = Jac_FULL(171,223)
  JVS(756) = B(1076)-B(1081)
! JVS(757) = Jac_FULL(171,230)
  JVS(757) = B(1090)
! JVS(758) = Jac_FULL(171,231)
  JVS(758) = 0.95*B(1088)
! JVS(759) = Jac_FULL(171,232)
  JVS(759) = 0.82*B(1074)-B(1079)
! JVS(760) = Jac_FULL(172,143)
  JVS(760) = B(1069)+B(1071)
! JVS(761) = Jac_FULL(172,172)
  JVS(761) = -B(1073)-B(1075)
! JVS(762) = Jac_FULL(172,223)
  JVS(762) = B(1070)-B(1076)
! JVS(763) = Jac_FULL(172,229)
  JVS(763) = 0
! JVS(764) = Jac_FULL(172,230)
  JVS(764) = 0
! JVS(765) = Jac_FULL(172,231)
  JVS(765) = 0
! JVS(766) = Jac_FULL(172,232)
  JVS(766) = B(1072)-B(1074)
! JVS(767) = Jac_FULL(173,8)
  JVS(767) = B(107)
! JVS(768) = Jac_FULL(173,127)
  JVS(768) = -B(158)
! JVS(769) = Jac_FULL(173,171)
  JVS(769) = 0
! JVS(770) = Jac_FULL(173,172)
  JVS(770) = 0
! JVS(771) = Jac_FULL(173,173)
  JVS(771) = -B(96)-B(99)-B(101)-B(103)-B(105)-B(159)
! JVS(772) = Jac_FULL(173,223)
  JVS(772) = B(2)-B(100)
! JVS(773) = Jac_FULL(173,229)
  JVS(773) = -B(102)
! JVS(774) = Jac_FULL(173,230)
  JVS(774) = B(6)
! JVS(775) = Jac_FULL(173,231)
  JVS(775) = 0
! JVS(776) = Jac_FULL(173,232)
  JVS(776) = B(4)-B(104)-B(106)
! JVS(777) = Jac_FULL(174,98)
  JVS(777) = B(44)
! JVS(778) = Jac_FULL(174,174)
  JVS(778) = -B(320)-B(416)-B(482)-B(584)-B(672)
! JVS(779) = Jac_FULL(174,206)
  JVS(779) = 0
! JVS(780) = Jac_FULL(174,228)
  JVS(780) = -B(585)
! JVS(781) = Jac_FULL(174,229)
  JVS(781) = -B(321)-B(417)
! JVS(782) = Jac_FULL(174,230)
  JVS(782) = -B(483)
! JVS(783) = Jac_FULL(174,231)
  JVS(783) = 0
! JVS(784) = Jac_FULL(175,149)
  JVS(784) = B(564)
! JVS(785) = Jac_FULL(175,175)
  JVS(785) = -B(53)-B(54)-B(850)
! JVS(786) = Jac_FULL(175,215)
  JVS(786) = 0
! JVS(787) = Jac_FULL(175,226)
  JVS(787) = B(558)
! JVS(788) = Jac_FULL(175,228)
  JVS(788) = B(559)+B(565)
! JVS(789) = Jac_FULL(175,229)
  JVS(789) = 0
! JVS(790) = Jac_FULL(175,230)
  JVS(790) = 0
! JVS(791) = Jac_FULL(175,231)
  JVS(791) = -B(851)
! JVS(792) = Jac_FULL(176,25)
  JVS(792) = B(1038)
! JVS(793) = Jac_FULL(176,176)
  JVS(793) = -B(1040)-B(1042)-B(1044)-B(1046)-B(1048)
! JVS(794) = Jac_FULL(176,228)
  JVS(794) = -B(1047)
! JVS(795) = Jac_FULL(176,229)
  JVS(795) = -B(1041)-B(1043)
! JVS(796) = Jac_FULL(176,230)
  JVS(796) = -B(1045)
! JVS(797) = Jac_FULL(176,231)
  JVS(797) = B(1039)
! JVS(798) = Jac_FULL(177,177)
  JVS(798) = -B(200)-B(202)-B(204)-B(206)
! JVS(799) = Jac_FULL(177,223)
  JVS(799) = -B(205)-B(207)
! JVS(800) = Jac_FULL(177,230)
  JVS(800) = -B(203)
! JVS(801) = Jac_FULL(177,231)
  JVS(801) = -B(201)
! JVS(802) = Jac_FULL(178,178)
  JVS(802) = -B(298)-B(460)-B(566)-B(659)
! JVS(803) = Jac_FULL(178,220)
  JVS(803) = B(338)+B(500)+B(681)
! JVS(804) = Jac_FULL(178,228)
  JVS(804) = -B(567)
! JVS(805) = Jac_FULL(178,229)
  JVS(805) = -B(299)+B(339)
! JVS(806) = Jac_FULL(178,230)
  JVS(806) = -B(461)+B(501)
! JVS(807) = Jac_FULL(179,54)
  JVS(807) = B(794)
! JVS(808) = Jac_FULL(179,117)
  JVS(808) = B(947)
! JVS(809) = Jac_FULL(179,118)
  JVS(809) = B(882)
! JVS(810) = Jac_FULL(179,179)
  JVS(810) = -B(18)-B(712)
! JVS(811) = Jac_FULL(179,200)
  JVS(811) = B(352)+B(514)+B(688)
! JVS(812) = Jac_FULL(179,201)
  JVS(812) = B(346)+B(508)+B(685)
! JVS(813) = Jac_FULL(179,218)
  JVS(813) = 0
! JVS(814) = Jac_FULL(179,228)
  JVS(814) = 0
! JVS(815) = Jac_FULL(179,229)
  JVS(815) = B(347)+B(353)
! JVS(816) = Jac_FULL(179,230)
  JVS(816) = B(509)+B(515)
! JVS(817) = Jac_FULL(179,231)
  JVS(817) = -B(713)+B(795)+B(883)+B(948)
! JVS(818) = Jac_FULL(179,232)
  JVS(818) = 0
! JVS(819) = Jac_FULL(180,177)
  JVS(819) = B(200)
! JVS(820) = Jac_FULL(180,180)
  JVS(820) = -B(340)-B(342)-B(422)-B(502)-B(504)-B(604)-B(682)-B(683)
! JVS(821) = Jac_FULL(180,223)
  JVS(821) = 0
! JVS(822) = Jac_FULL(180,228)
  JVS(822) = -B(605)
! JVS(823) = Jac_FULL(180,229)
  JVS(823) = -B(341)-B(343)-B(423)
! JVS(824) = Jac_FULL(180,230)
  JVS(824) = -B(503)-B(505)
! JVS(825) = Jac_FULL(180,231)
  JVS(825) = B(201)
! JVS(826) = Jac_FULL(181,105)
  JVS(826) = B(800)
! JVS(827) = Jac_FULL(181,122)
  JVS(827) = B(836)+B(838)
! JVS(828) = Jac_FULL(181,123)
  JVS(828) = B(954)
! JVS(829) = Jac_FULL(181,130)
  JVS(829) = B(888)
! JVS(830) = Jac_FULL(181,174)
  JVS(830) = 0
! JVS(831) = Jac_FULL(181,181)
  JVS(831) = -B(21)-B(718)
! JVS(832) = Jac_FULL(181,202)
  JVS(832) = B(324)+B(486)+B(674)
! JVS(833) = Jac_FULL(181,206)
  JVS(833) = 0
! JVS(834) = Jac_FULL(181,222)
  JVS(834) = 0
! JVS(835) = Jac_FULL(181,228)
  JVS(835) = 0
! JVS(836) = Jac_FULL(181,229)
  JVS(836) = B(325)
! JVS(837) = Jac_FULL(181,230)
  JVS(837) = B(487)+B(839)
! JVS(838) = Jac_FULL(181,231)
  JVS(838) = -B(719)+B(801)+B(837)+B(889)+B(955)
! JVS(839) = Jac_FULL(181,232)
  JVS(839) = 0
! JVS(840) = Jac_FULL(182,31)
  JVS(840) = B(238)
! JVS(841) = Jac_FULL(182,182)
  JVS(841) = -B(302)-B(304)-B(426)-B(464)-B(466)-B(570)-B(661)-B(662)
! JVS(842) = Jac_FULL(182,228)
  JVS(842) = -B(571)
! JVS(843) = Jac_FULL(182,229)
  JVS(843) = -B(303)-B(305)-B(427)
! JVS(844) = Jac_FULL(182,230)
  JVS(844) = -B(465)-B(467)
! JVS(845) = Jac_FULL(182,231)
  JVS(845) = B(239)
! JVS(846) = Jac_FULL(183,92)
  JVS(846) = B(79)+B(898)
! JVS(847) = Jac_FULL(183,121)
  JVS(847) = B(46)+B(806)
! JVS(848) = Jac_FULL(183,131)
  JVS(848) = B(80)+B(900)
! JVS(849) = Jac_FULL(183,139)
  JVS(849) = B(47)+B(808)
! JVS(850) = Jac_FULL(183,182)
  JVS(850) = B(302)+B(464)+B(661)
! JVS(851) = Jac_FULL(183,183)
  JVS(851) = -B(33)-B(94)-B(758)-B(960)
! JVS(852) = Jac_FULL(183,189)
  JVS(852) = 0
! JVS(853) = Jac_FULL(183,196)
  JVS(853) = 0
! JVS(854) = Jac_FULL(183,197)
  JVS(854) = B(1018)+B(1026)+B(1033)
! JVS(855) = Jac_FULL(183,228)
  JVS(855) = 0
! JVS(856) = Jac_FULL(183,229)
  JVS(856) = B(303)+B(1019)
! JVS(857) = Jac_FULL(183,230)
  JVS(857) = B(465)+B(1027)
! JVS(858) = Jac_FULL(183,231)
  JVS(858) = -B(759)+B(807)+B(809)+B(899)+B(901)-B(961)
! JVS(859) = Jac_FULL(184,96)
  JVS(859) = B(916)
! JVS(860) = Jac_FULL(184,136)
  JVS(860) = B(983)+B(996)+B(998)
! JVS(861) = Jac_FULL(184,160)
  JVS(861) = B(766)+B(770)
! JVS(862) = Jac_FULL(184,162)
  JVS(862) = 0
! JVS(863) = Jac_FULL(184,184)
  JVS(863) = -B(380)-B(540)-B(634)-B(701)
! JVS(864) = Jac_FULL(184,194)
  JVS(864) = 0
! JVS(865) = Jac_FULL(184,205)
  JVS(865) = 0
! JVS(866) = Jac_FULL(184,228)
  JVS(866) = -B(635)
! JVS(867) = Jac_FULL(184,229)
  JVS(867) = -B(381)
! JVS(868) = Jac_FULL(184,230)
  JVS(868) = -B(541)+B(771)+B(999)
! JVS(869) = Jac_FULL(184,231)
  JVS(869) = B(767)+B(917)+B(997)
! JVS(870) = Jac_FULL(185,125)
  JVS(870) = B(918)
! JVS(871) = Jac_FULL(185,159)
  JVS(871) = B(218)
! JVS(872) = Jac_FULL(185,185)
  JVS(872) = -B(382)-B(384)-B(436)-B(542)-B(636)-B(702)
! JVS(873) = Jac_FULL(185,223)
  JVS(873) = 0
! JVS(874) = Jac_FULL(185,228)
  JVS(874) = -B(637)
! JVS(875) = Jac_FULL(185,229)
  JVS(875) = -B(383)-B(385)-B(437)
! JVS(876) = Jac_FULL(185,230)
  JVS(876) = -B(543)
! JVS(877) = Jac_FULL(185,231)
  JVS(877) = B(219)+B(919)
! JVS(878) = Jac_FULL(186,152)
  JVS(878) = B(752)
! JVS(879) = Jac_FULL(186,177)
  JVS(879) = 0
! JVS(880) = Jac_FULL(186,186)
  JVS(880) = -B(362)-B(524)-B(618)-B(693)
! JVS(881) = Jac_FULL(186,223)
  JVS(881) = 0
! JVS(882) = Jac_FULL(186,228)
  JVS(882) = -B(619)
! JVS(883) = Jac_FULL(186,229)
  JVS(883) = -B(363)
! JVS(884) = Jac_FULL(186,230)
  JVS(884) = -B(525)
! JVS(885) = Jac_FULL(186,231)
  JVS(885) = B(753)
! JVS(886) = Jac_FULL(187,36)
  JVS(886) = B(230)
! JVS(887) = Jac_FULL(187,88)
  JVS(887) = B(69)+B(878)
! JVS(888) = Jac_FULL(187,96)
  JVS(888) = B(88)
! JVS(889) = Jac_FULL(187,112)
  JVS(889) = B(937)
! JVS(890) = Jac_FULL(187,113)
  JVS(890) = B(939)
! JVS(891) = Jac_FULL(187,117)
  JVS(891) = B(947)
! JVS(892) = Jac_FULL(187,129)
  JVS(892) = B(935)
! JVS(893) = Jac_FULL(187,136)
  JVS(893) = B(983)+B(996)+B(998)
! JVS(894) = Jac_FULL(187,150)
  JVS(894) = B(192)
! JVS(895) = Jac_FULL(187,151)
  JVS(895) = 2*B(24)+2*B(732)
! JVS(896) = Jac_FULL(187,152)
  JVS(896) = 2*B(30)
! JVS(897) = Jac_FULL(187,154)
  JVS(897) = B(188)
! JVS(898) = Jac_FULL(187,159)
  JVS(898) = B(228)
! JVS(899) = Jac_FULL(187,160)
  JVS(899) = B(36)
! JVS(900) = Jac_FULL(187,161)
  JVS(900) = B(196)
! JVS(901) = Jac_FULL(187,162)
  JVS(901) = 0
! JVS(902) = Jac_FULL(187,164)
  JVS(902) = 0
! JVS(903) = Jac_FULL(187,177)
  JVS(903) = B(204)
! JVS(904) = Jac_FULL(187,182)
  JVS(904) = 0
! JVS(905) = Jac_FULL(187,184)
  JVS(905) = B(380)+B(540)+B(701)
! JVS(906) = Jac_FULL(187,186)
  JVS(906) = B(362)+B(524)+B(693)
! JVS(907) = Jac_FULL(187,187)
  JVS(907) = -B(128)
! JVS(908) = Jac_FULL(187,188)
  JVS(908) = 0
! JVS(909) = Jac_FULL(187,189)
  JVS(909) = 0
! JVS(910) = Jac_FULL(187,190)
  JVS(910) = B(25)+B(734)
! JVS(911) = Jac_FULL(187,191)
  JVS(911) = B(29)+B(748)
! JVS(912) = Jac_FULL(187,194)
  JVS(912) = 0
! JVS(913) = Jac_FULL(187,196)
  JVS(913) = 0
! JVS(914) = Jac_FULL(187,199)
  JVS(914) = B(22)
! JVS(915) = Jac_FULL(187,200)
  JVS(915) = 0
! JVS(916) = Jac_FULL(187,201)
  JVS(916) = B(346)+B(508)
! JVS(917) = Jac_FULL(187,203)
  JVS(917) = B(724)
! JVS(918) = Jac_FULL(187,204)
  JVS(918) = 0
! JVS(919) = Jac_FULL(187,205)
  JVS(919) = 0
! JVS(920) = Jac_FULL(187,207)
  JVS(920) = B(9)+B(10)+B(246)+B(252)
! JVS(921) = Jac_FULL(187,219)
  JVS(921) = 0
! JVS(922) = Jac_FULL(187,223)
  JVS(922) = B(189)+B(193)+B(197)+B(205)+B(229)+B(725)+B(749)
! JVS(923) = Jac_FULL(187,227)
  JVS(923) = B(12)
! JVS(924) = Jac_FULL(187,228)
  JVS(924) = 0
! JVS(925) = Jac_FULL(187,229)
  JVS(925) = B(347)+B(363)+B(381)
! JVS(926) = Jac_FULL(187,230)
  JVS(926) = B(253)+B(509)+B(525)+B(541)+B(999)
! JVS(927) = Jac_FULL(187,231)
  JVS(927) = -B(129)+B(231)+B(247)+2*B(733)+B(735)+B(879)+B(936)+B(938)+B(940)+B(948)+B(997)
! JVS(928) = Jac_FULL(187,232)
  JVS(928) = 0
! JVS(929) = Jac_FULL(187,233)
  JVS(929) = B(11)
! JVS(930) = Jac_FULL(188,78)
  JVS(930) = B(982)
! JVS(931) = Jac_FULL(188,85)
  JVS(931) = B(860)
! JVS(932) = Jac_FULL(188,113)
  JVS(932) = B(934)
! JVS(933) = Jac_FULL(188,162)
  JVS(933) = 0
! JVS(934) = Jac_FULL(188,188)
  JVS(934) = -B(330)-B(492)-B(594)-B(677)-B(932)
! JVS(935) = Jac_FULL(188,199)
  JVS(935) = B(728)+B(730)
! JVS(936) = Jac_FULL(188,205)
  JVS(936) = 0
! JVS(937) = Jac_FULL(188,228)
  JVS(937) = -B(595)
! JVS(938) = Jac_FULL(188,229)
  JVS(938) = -B(331)
! JVS(939) = Jac_FULL(188,230)
  JVS(939) = -B(493)+B(731)
! JVS(940) = Jac_FULL(188,231)
  JVS(940) = B(729)+B(861)
! JVS(941) = Jac_FULL(188,232)
  JVS(941) = -B(933)
! JVS(942) = Jac_FULL(189,27)
  JVS(942) = B(242)
! JVS(943) = Jac_FULL(189,189)
  JVS(943) = -B(306)-B(428)-B(468)-B(572)-B(663)
! JVS(944) = Jac_FULL(189,228)
  JVS(944) = -B(573)
! JVS(945) = Jac_FULL(189,229)
  JVS(945) = -B(307)-B(429)
! JVS(946) = Jac_FULL(189,230)
  JVS(946) = -B(469)
! JVS(947) = Jac_FULL(189,231)
  JVS(947) = B(243)
! JVS(948) = Jac_FULL(190,58)
  JVS(948) = B(862)
! JVS(949) = Jac_FULL(190,106)
  JVS(949) = B(987)+B(1051)
! JVS(950) = Jac_FULL(190,115)
  JVS(950) = B(66)
! JVS(951) = Jac_FULL(190,128)
  JVS(951) = B(986)+B(1049)
! JVS(952) = Jac_FULL(190,131)
  JVS(952) = B(80)+B(900)
! JVS(953) = Jac_FULL(190,134)
  JVS(953) = B(985)+B(1036)
! JVS(954) = Jac_FULL(190,139)
  JVS(954) = B(47)+B(808)
! JVS(955) = Jac_FULL(190,142)
  JVS(955) = B(984)+B(1034)
! JVS(956) = Jac_FULL(190,157)
  JVS(956) = B(1016)+B(1024)+B(1032)
! JVS(957) = Jac_FULL(190,163)
  JVS(957) = B(754)
! JVS(958) = Jac_FULL(190,176)
  JVS(958) = B(1040)+B(1044)+B(1048)
! JVS(959) = Jac_FULL(190,177)
  JVS(959) = 0
! JVS(960) = Jac_FULL(190,179)
  JVS(960) = B(712)
! JVS(961) = Jac_FULL(190,182)
  JVS(961) = B(304)+B(466)+B(662)
! JVS(962) = Jac_FULL(190,186)
  JVS(962) = 0
! JVS(963) = Jac_FULL(190,189)
  JVS(963) = 0
! JVS(964) = Jac_FULL(190,190)
  JVS(964) = -B(25)-B(734)
! JVS(965) = Jac_FULL(190,191)
  JVS(965) = B(750)
! JVS(966) = Jac_FULL(190,196)
  JVS(966) = 0
! JVS(967) = Jac_FULL(190,197)
  JVS(967) = 0
! JVS(968) = Jac_FULL(190,200)
  JVS(968) = B(350)+B(512)+B(687)
! JVS(969) = Jac_FULL(190,201)
  JVS(969) = 0
! JVS(970) = Jac_FULL(190,203)
  JVS(970) = B(726)
! JVS(971) = Jac_FULL(190,218)
  JVS(971) = 0
! JVS(972) = Jac_FULL(190,221)
  JVS(972) = 0
! JVS(973) = Jac_FULL(190,223)
  JVS(973) = B(727)+B(751)
! JVS(974) = Jac_FULL(190,228)
  JVS(974) = 0
! JVS(975) = Jac_FULL(190,229)
  JVS(975) = B(305)+B(351)+B(1017)+B(1041)
! JVS(976) = Jac_FULL(190,230)
  JVS(976) = B(467)+B(513)+B(1025)+B(1045)
! JVS(977) = Jac_FULL(190,231)
  JVS(977) = B(713)-B(735)+B(755)+B(809)+B(863)+B(901)+B(1035)+B(1037)+B(1050)+B(1052)
! JVS(978) = Jac_FULL(190,232)
  JVS(978) = 0
! JVS(979) = Jac_FULL(191,64)
  JVS(979) = B(802)
! JVS(980) = Jac_FULL(191,114)
  JVS(980) = B(64)+B(870)
! JVS(981) = Jac_FULL(191,180)
  JVS(981) = B(340)+B(502)+B(682)
! JVS(982) = Jac_FULL(191,191)
  JVS(982) = -B(29)-B(744)-B(746)-B(748)-B(750)
! JVS(983) = Jac_FULL(191,223)
  JVS(983) = -B(749)-B(751)
! JVS(984) = Jac_FULL(191,228)
  JVS(984) = 0
! JVS(985) = Jac_FULL(191,229)
  JVS(985) = B(341)
! JVS(986) = Jac_FULL(191,230)
  JVS(986) = B(503)-B(747)
! JVS(987) = Jac_FULL(191,231)
  JVS(987) = -B(745)+B(803)+B(871)
! JVS(988) = Jac_FULL(192,47)
  JVS(988) = B(822)
! JVS(989) = Jac_FULL(192,49)
  JVS(989) = B(832)
! JVS(990) = Jac_FULL(192,109)
  JVS(990) = B(1064)
! JVS(991) = Jac_FULL(192,110)
  JVS(991) = B(1089)
! JVS(992) = Jac_FULL(192,120)
  JVS(992) = B(828)
! JVS(993) = Jac_FULL(192,122)
  JVS(993) = B(838)
! JVS(994) = Jac_FULL(192,136)
  JVS(994) = B(998)
! JVS(995) = Jac_FULL(192,160)
  JVS(995) = B(770)
! JVS(996) = Jac_FULL(192,162)
  JVS(996) = 0
! JVS(997) = Jac_FULL(192,166)
  JVS(997) = B(768)
! JVS(998) = Jac_FULL(192,191)
  JVS(998) = B(746)
! JVS(999) = Jac_FULL(192,192)
  JVS(999) = -B(8)-B(156)
! JVS(1000) = Jac_FULL(192,193)
  JVS(1000) = 0
! JVS(1001) = Jac_FULL(192,194)
  JVS(1001) = 0
! JVS(1002) = Jac_FULL(192,199)
  JVS(1002) = B(730)
! JVS(1003) = Jac_FULL(192,203)
  JVS(1003) = B(722)
! JVS(1004) = Jac_FULL(192,205)
  JVS(1004) = 0
! JVS(1005) = Jac_FULL(192,207)
  JVS(1005) = B(252)
! JVS(1006) = Jac_FULL(192,223)
  JVS(1006) = 0
! JVS(1007) = Jac_FULL(192,227)
  JVS(1007) = B(256)
! JVS(1008) = Jac_FULL(192,228)
  JVS(1008) = 0
! JVS(1009) = Jac_FULL(192,229)
  JVS(1009) = 0
! JVS(1010) = Jac_FULL(192,230)
  JVS(1010) = B(253)+B(254)+B(257)+B(723)+B(731)+B(747)+B(769)+B(771)+B(823)+B(829)+B(833)+B(839)+B(999)+B(1065)+B(1090)
! JVS(1011) = Jac_FULL(192,231)
  JVS(1011) = B(141)-B(157)
! JVS(1012) = Jac_FULL(192,232)
  JVS(1012) = B(142)
! JVS(1013) = Jac_FULL(192,233)
  JVS(1013) = B(255)
! JVS(1014) = Jac_FULL(193,165)
  JVS(1014) = B(208)
! JVS(1015) = Jac_FULL(193,193)
  JVS(1015) = -B(364)-B(366)-B(432)-B(526)-B(620)-B(694)
! JVS(1016) = Jac_FULL(193,223)
  JVS(1016) = 0
! JVS(1017) = Jac_FULL(193,228)
  JVS(1017) = -B(621)
! JVS(1018) = Jac_FULL(193,229)
  JVS(1018) = -B(365)-B(367)-B(433)
! JVS(1019) = Jac_FULL(193,230)
  JVS(1019) = -B(527)
! JVS(1020) = Jac_FULL(193,231)
  JVS(1020) = B(209)
! JVS(1021) = Jac_FULL(194,95)
  JVS(1021) = B(86)
! JVS(1022) = Jac_FULL(194,124)
  JVS(1022) = B(914)
! JVS(1023) = Jac_FULL(194,194)
  JVS(1023) = -B(378)-B(538)-B(632)-B(700)
! JVS(1024) = Jac_FULL(194,205)
  JVS(1024) = B(376)+B(536)+B(699)
! JVS(1025) = Jac_FULL(194,228)
  JVS(1025) = -B(633)
! JVS(1026) = Jac_FULL(194,229)
  JVS(1026) = B(377)-B(379)
! JVS(1027) = Jac_FULL(194,230)
  JVS(1027) = B(537)-B(539)
! JVS(1028) = Jac_FULL(194,231)
  JVS(1028) = B(915)
! JVS(1029) = Jac_FULL(195,44)
  JVS(1029) = B(272)
! JVS(1030) = Jac_FULL(195,74)
  JVS(1030) = B(52)+B(848)
! JVS(1031) = Jac_FULL(195,84)
  JVS(1031) = B(40)+B(784)
! JVS(1032) = Jac_FULL(195,95)
  JVS(1032) = B(86)
! JVS(1033) = Jac_FULL(195,97)
  JVS(1033) = B(812)
! JVS(1034) = Jac_FULL(195,102)
  JVS(1034) = B(818)
! JVS(1035) = Jac_FULL(195,103)
  JVS(1035) = B(91)+B(922)
! JVS(1036) = Jac_FULL(195,123)
  JVS(1036) = B(954)
! JVS(1037) = Jac_FULL(195,156)
  JVS(1037) = B(286)+B(448)+B(653)+B(654)
! JVS(1038) = Jac_FULL(195,162)
  JVS(1038) = B(992)
! JVS(1039) = Jac_FULL(195,165)
  JVS(1039) = B(212)
! JVS(1040) = Jac_FULL(195,185)
  JVS(1040) = B(384)
! JVS(1041) = Jac_FULL(195,193)
  JVS(1041) = B(366)
! JVS(1042) = Jac_FULL(195,195)
  JVS(1042) = -B(13)-B(258)
! JVS(1043) = Jac_FULL(195,205)
  JVS(1043) = B(376)+B(536)+B(699)
! JVS(1044) = Jac_FULL(195,211)
  JVS(1044) = B(392)+B(546)+B(704)
! JVS(1045) = Jac_FULL(195,212)
  JVS(1045) = 0
! JVS(1046) = Jac_FULL(195,215)
  JVS(1046) = B(390)
! JVS(1047) = Jac_FULL(195,222)
  JVS(1047) = 0
! JVS(1048) = Jac_FULL(195,223)
  JVS(1048) = B(213)
! JVS(1049) = Jac_FULL(195,228)
  JVS(1049) = 0
! JVS(1050) = Jac_FULL(195,229)
  JVS(1050) = B(287)+B(367)+B(377)+B(385)+B(391)+B(393)
! JVS(1051) = Jac_FULL(195,230)
  JVS(1051) = B(449)+B(537)+B(547)
! JVS(1052) = Jac_FULL(195,231)
  JVS(1052) = -B(259)+B(273)+B(785)+B(813)+B(819)+B(849)+B(923)+B(955)+B(993)
! JVS(1053) = Jac_FULL(195,232)
  JVS(1053) = 0
! JVS(1054) = Jac_FULL(196,27)
  JVS(1054) = B(244)
! JVS(1055) = Jac_FULL(196,196)
  JVS(1055) = -B(308)-B(430)-B(470)-B(574)-B(664)
! JVS(1056) = Jac_FULL(196,228)
  JVS(1056) = -B(575)
! JVS(1057) = Jac_FULL(196,229)
  JVS(1057) = -B(309)-B(431)
! JVS(1058) = Jac_FULL(196,230)
  JVS(1058) = -B(471)
! JVS(1059) = Jac_FULL(196,231)
  JVS(1059) = B(245)
! JVS(1060) = Jac_FULL(197,28)
  JVS(1060) = B(1002)
! JVS(1061) = Jac_FULL(197,29)
  JVS(1061) = B(1006)
! JVS(1062) = Jac_FULL(197,197)
  JVS(1062) = -B(1018)-B(1022)-B(1026)-B(1030)-B(1033)
! JVS(1063) = Jac_FULL(197,228)
  JVS(1063) = -B(1031)
! JVS(1064) = Jac_FULL(197,229)
  JVS(1064) = -B(1019)-B(1023)
! JVS(1065) = Jac_FULL(197,230)
  JVS(1065) = -B(1027)
! JVS(1066) = Jac_FULL(197,231)
  JVS(1066) = B(1003)+B(1007)
! JVS(1067) = Jac_FULL(198,16)
  JVS(1067) = B(976)
! JVS(1068) = Jac_FULL(198,17)
  JVS(1068) = B(978)
! JVS(1069) = Jac_FULL(198,18)
  JVS(1069) = B(974)
! JVS(1070) = Jac_FULL(198,19)
  JVS(1070) = B(972)
! JVS(1071) = Jac_FULL(198,43)
  JVS(1071) = B(266)
! JVS(1072) = Jac_FULL(198,77)
  JVS(1072) = B(956)
! JVS(1073) = Jac_FULL(198,153)
  JVS(1073) = 0
! JVS(1074) = Jac_FULL(198,154)
  JVS(1074) = B(176)
! JVS(1075) = Jac_FULL(198,155)
  JVS(1075) = 0
! JVS(1076) = Jac_FULL(198,164)
  JVS(1076) = 0
! JVS(1077) = Jac_FULL(198,170)
  JVS(1077) = 0
! JVS(1078) = Jac_FULL(198,176)
  JVS(1078) = 0
! JVS(1079) = Jac_FULL(198,182)
  JVS(1079) = 0
! JVS(1080) = Jac_FULL(198,183)
  JVS(1080) = 0
! JVS(1081) = Jac_FULL(198,189)
  JVS(1081) = 0
! JVS(1082) = Jac_FULL(198,196)
  JVS(1082) = 0
! JVS(1083) = Jac_FULL(198,197)
  JVS(1083) = 0
! JVS(1084) = Jac_FULL(198,198)
  JVS(1084) = -B(310)-B(312)-B(408)-B(472)-B(474)-B(576)-B(667)-B(668)
! JVS(1085) = Jac_FULL(198,214)
  JVS(1085) = 0
! JVS(1086) = Jac_FULL(198,223)
  JVS(1086) = 0
! JVS(1087) = Jac_FULL(198,228)
  JVS(1087) = -B(577)
! JVS(1088) = Jac_FULL(198,229)
  JVS(1088) = -B(311)-B(313)-B(409)
! JVS(1089) = Jac_FULL(198,230)
  JVS(1089) = -B(473)-B(475)
! JVS(1090) = Jac_FULL(198,231)
  JVS(1090) = B(177)+B(267)+B(957)+B(973)+B(975)+B(977)+B(979)
! JVS(1091) = Jac_FULL(199,66)
  JVS(1091) = B(792)
! JVS(1092) = Jac_FULL(199,86)
  JVS(1092) = B(67)
! JVS(1093) = Jac_FULL(199,101)
  JVS(1093) = B(880)
! JVS(1094) = Jac_FULL(199,115)
  JVS(1094) = B(66)
! JVS(1095) = Jac_FULL(199,191)
  JVS(1095) = B(29)+B(748)+B(750)
! JVS(1096) = Jac_FULL(199,198)
  JVS(1096) = B(312)+B(474)+B(668)
! JVS(1097) = Jac_FULL(199,199)
  JVS(1097) = -B(22)-B(728)-B(730)
! JVS(1098) = Jac_FULL(199,200)
  JVS(1098) = B(348)+B(510)+B(686)
! JVS(1099) = Jac_FULL(199,201)
  JVS(1099) = B(344)+B(506)+B(684)+B(685)
! JVS(1100) = Jac_FULL(199,214)
  JVS(1100) = 0
! JVS(1101) = Jac_FULL(199,223)
  JVS(1101) = B(749)+B(751)
! JVS(1102) = Jac_FULL(199,228)
  JVS(1102) = 0
! JVS(1103) = Jac_FULL(199,229)
  JVS(1103) = B(313)+B(345)+B(349)
! JVS(1104) = Jac_FULL(199,230)
  JVS(1104) = B(475)+B(507)+B(511)-B(731)
! JVS(1105) = Jac_FULL(199,231)
  JVS(1105) = -B(729)+B(793)+B(881)
! JVS(1106) = Jac_FULL(200,86)
  JVS(1106) = B(874)
! JVS(1107) = Jac_FULL(200,117)
  JVS(1107) = B(946)
! JVS(1108) = Jac_FULL(200,200)
  JVS(1108) = -B(348)-B(350)-B(352)-B(510)-B(512)-B(514)-B(608)-B(686)-B(687)-B(688)-B(944)
! JVS(1109) = Jac_FULL(200,203)
  JVS(1109) = B(720)+B(722)
! JVS(1110) = Jac_FULL(200,228)
  JVS(1110) = -B(609)
! JVS(1111) = Jac_FULL(200,229)
  JVS(1111) = -B(349)-B(351)-B(353)
! JVS(1112) = Jac_FULL(200,230)
  JVS(1112) = -B(511)-B(513)-B(515)+B(723)
! JVS(1113) = Jac_FULL(200,231)
  JVS(1113) = B(721)+B(875)
! JVS(1114) = Jac_FULL(200,232)
  JVS(1114) = -B(945)
! JVS(1115) = Jac_FULL(201,87)
  JVS(1115) = B(943)
! JVS(1116) = Jac_FULL(201,115)
  JVS(1116) = B(872)
! JVS(1117) = Jac_FULL(201,191)
  JVS(1117) = B(744)+B(746)
! JVS(1118) = Jac_FULL(201,201)
  JVS(1118) = -B(344)-B(346)-B(506)-B(508)-B(606)-B(684)-B(685)-B(941)
! JVS(1119) = Jac_FULL(201,223)
  JVS(1119) = 0
! JVS(1120) = Jac_FULL(201,228)
  JVS(1120) = -B(607)
! JVS(1121) = Jac_FULL(201,229)
  JVS(1121) = -B(345)-B(347)
! JVS(1122) = Jac_FULL(201,230)
  JVS(1122) = -B(507)-B(509)+B(747)
! JVS(1123) = Jac_FULL(201,231)
  JVS(1123) = B(745)+B(873)
! JVS(1124) = Jac_FULL(201,232)
  JVS(1124) = -B(942)
! JVS(1125) = Jac_FULL(202,57)
  JVS(1125) = B(56)
! JVS(1126) = Jac_FULL(202,165)
  JVS(1126) = B(212)
! JVS(1127) = Jac_FULL(202,202)
  JVS(1127) = -B(324)-B(420)-B(486)-B(588)-B(674)
! JVS(1128) = Jac_FULL(202,206)
  JVS(1128) = B(294)+B(456)+B(666)
! JVS(1129) = Jac_FULL(202,223)
  JVS(1129) = B(213)
! JVS(1130) = Jac_FULL(202,228)
  JVS(1130) = -B(589)
! JVS(1131) = Jac_FULL(202,229)
  JVS(1131) = B(295)-B(325)-B(421)
! JVS(1132) = Jac_FULL(202,230)
  JVS(1132) = B(457)-B(487)
! JVS(1133) = Jac_FULL(202,231)
  JVS(1133) = 0
! JVS(1134) = Jac_FULL(203,87)
  JVS(1134) = B(949)
! JVS(1135) = Jac_FULL(203,114)
  JVS(1135) = B(65)
! JVS(1136) = Jac_FULL(203,177)
  JVS(1136) = B(204)+B(206)
! JVS(1137) = Jac_FULL(203,180)
  JVS(1137) = B(342)+B(504)+B(683)
! JVS(1138) = Jac_FULL(203,201)
  JVS(1138) = 0
! JVS(1139) = Jac_FULL(203,203)
  JVS(1139) = -B(23)-B(720)-B(722)-B(724)-B(726)
! JVS(1140) = Jac_FULL(203,223)
  JVS(1140) = B(205)+B(207)-B(725)-B(727)
! JVS(1141) = Jac_FULL(203,228)
  JVS(1141) = 0
! JVS(1142) = Jac_FULL(203,229)
  JVS(1142) = B(343)
! JVS(1143) = Jac_FULL(203,230)
  JVS(1143) = B(505)-B(723)
! JVS(1144) = Jac_FULL(203,231)
  JVS(1144) = -B(721)+B(950)
! JVS(1145) = Jac_FULL(203,232)
  JVS(1145) = 0
! JVS(1146) = Jac_FULL(204,62)
  JVS(1146) = B(858)
! JVS(1147) = Jac_FULL(204,112)
  JVS(1147) = B(931)
! JVS(1148) = Jac_FULL(204,204)
  JVS(1148) = -B(328)-B(490)-B(592)-B(676)-B(929)
! JVS(1149) = Jac_FULL(204,217)
  JVS(1149) = B(336)+B(498)+B(680)
! JVS(1150) = Jac_FULL(204,227)
  JVS(1150) = B(250)+B(256)
! JVS(1151) = Jac_FULL(204,228)
  JVS(1151) = -B(593)
! JVS(1152) = Jac_FULL(204,229)
  JVS(1152) = -B(329)+B(337)
! JVS(1153) = Jac_FULL(204,230)
  JVS(1153) = B(257)-B(491)+B(499)
! JVS(1154) = Jac_FULL(204,231)
  JVS(1154) = B(251)+B(859)
! JVS(1155) = Jac_FULL(204,232)
  JVS(1155) = -B(930)
! JVS(1156) = Jac_FULL(205,72)
  JVS(1156) = B(85)
! JVS(1157) = Jac_FULL(205,95)
  JVS(1157) = B(912)
! JVS(1158) = Jac_FULL(205,158)
  JVS(1158) = B(374)+B(534)+B(698)
! JVS(1159) = Jac_FULL(205,205)
  JVS(1159) = -B(376)-B(536)-B(630)-B(699)-B(990)
! JVS(1160) = Jac_FULL(205,212)
  JVS(1160) = 0
! JVS(1161) = Jac_FULL(205,228)
  JVS(1161) = -B(631)
! JVS(1162) = Jac_FULL(205,229)
  JVS(1162) = B(375)-B(377)-B(991)
! JVS(1163) = Jac_FULL(205,230)
  JVS(1163) = B(535)-B(537)
! JVS(1164) = Jac_FULL(205,231)
  JVS(1164) = B(913)
! JVS(1165) = Jac_FULL(206,185)
  JVS(1165) = B(384)
! JVS(1166) = Jac_FULL(206,193)
  JVS(1166) = B(366)
! JVS(1167) = Jac_FULL(206,206)
  JVS(1167) = -B(294)-B(406)-B(456)-B(562)-B(666)
! JVS(1168) = Jac_FULL(206,223)
  JVS(1168) = 0
! JVS(1169) = Jac_FULL(206,228)
  JVS(1169) = -B(563)
! JVS(1170) = Jac_FULL(206,229)
  JVS(1170) = -B(295)+B(367)+B(385)-B(407)
! JVS(1171) = Jac_FULL(206,230)
  JVS(1171) = -B(457)
! JVS(1172) = Jac_FULL(206,231)
  JVS(1172) = 0
! JVS(1173) = Jac_FULL(207,37)
  JVS(1173) = B(262)
! JVS(1174) = Jac_FULL(207,60)
  JVS(1174) = 2*B(75)+2*B(890)
! JVS(1175) = Jac_FULL(207,83)
  JVS(1175) = B(76)+B(892)
! JVS(1176) = Jac_FULL(207,85)
  JVS(1176) = B(59)
! JVS(1177) = Jac_FULL(207,90)
  JVS(1177) = B(37)+B(778)
! JVS(1178) = Jac_FULL(207,93)
  JVS(1178) = B(49)+B(842)
! JVS(1179) = Jac_FULL(207,99)
  JVS(1179) = B(814)
! JVS(1180) = Jac_FULL(207,101)
  JVS(1180) = 2*B(70)
! JVS(1181) = Jac_FULL(207,111)
  JVS(1181) = B(1066)+2*B(1068)
! JVS(1182) = Jac_FULL(207,113)
  JVS(1182) = B(939)
! JVS(1183) = Jac_FULL(207,114)
  JVS(1183) = B(65)
! JVS(1184) = Jac_FULL(207,118)
  JVS(1184) = B(71)
! JVS(1185) = Jac_FULL(207,124)
  JVS(1185) = B(87)
! JVS(1186) = Jac_FULL(207,125)
  JVS(1186) = B(89)
! JVS(1187) = Jac_FULL(207,126)
  JVS(1187) = B(92)
! JVS(1188) = Jac_FULL(207,129)
  JVS(1188) = B(935)
! JVS(1189) = Jac_FULL(207,148)
  JVS(1189) = 2*B(354)+2*B(516)+2*B(689)
! JVS(1190) = Jac_FULL(207,150)
  JVS(1190) = B(192)+B(194)
! JVS(1191) = Jac_FULL(207,154)
  JVS(1191) = B(188)+B(190)
! JVS(1192) = Jac_FULL(207,159)
  JVS(1192) = B(224)+B(226)
! JVS(1193) = Jac_FULL(207,163)
  JVS(1193) = B(31)
! JVS(1194) = Jac_FULL(207,167)
  JVS(1194) = B(356)+B(518)+B(690)
! JVS(1195) = Jac_FULL(207,169)
  JVS(1195) = B(386)+B(548)+B(705)
! JVS(1196) = Jac_FULL(207,177)
  JVS(1196) = 0
! JVS(1197) = Jac_FULL(207,179)
  JVS(1197) = B(18)
! JVS(1198) = Jac_FULL(207,180)
  JVS(1198) = B(342)+B(504)+B(683)
! JVS(1199) = Jac_FULL(207,185)
  JVS(1199) = B(382)+B(542)+B(702)
! JVS(1200) = Jac_FULL(207,186)
  JVS(1200) = 0
! JVS(1201) = Jac_FULL(207,188)
  JVS(1201) = B(330)+B(492)+B(677)
! JVS(1202) = Jac_FULL(207,194)
  JVS(1202) = B(378)+B(538)+B(700)
! JVS(1203) = Jac_FULL(207,198)
  JVS(1203) = 2*B(310)+2*B(472)+2*B(667)
! JVS(1204) = Jac_FULL(207,199)
  JVS(1204) = B(22)
! JVS(1205) = Jac_FULL(207,200)
  JVS(1205) = B(350)+B(352)+B(512)+B(514)+B(687)+B(688)
! JVS(1206) = Jac_FULL(207,201)
  JVS(1206) = 0
! JVS(1207) = Jac_FULL(207,203)
  JVS(1207) = B(23)+B(724)+B(726)
! JVS(1208) = Jac_FULL(207,205)
  JVS(1208) = 0
! JVS(1209) = Jac_FULL(207,207)
  JVS(1209) = -B(9)-B(10)-B(246)-B(252)
! JVS(1210) = Jac_FULL(207,210)
  JVS(1210) = B(280)+B(442)+B(644)+B(645)
! JVS(1211) = Jac_FULL(207,212)
  JVS(1211) = 0
! JVS(1212) = Jac_FULL(207,214)
  JVS(1212) = 0
! JVS(1213) = Jac_FULL(207,215)
  JVS(1213) = B(390)
! JVS(1214) = Jac_FULL(207,218)
  JVS(1214) = B(314)+B(476)+B(669)
! JVS(1215) = Jac_FULL(207,219)
  JVS(1215) = 0
! JVS(1216) = Jac_FULL(207,221)
  JVS(1216) = B(332)+B(494)+B(678)
! JVS(1217) = Jac_FULL(207,223)
  JVS(1217) = B(189)+B(191)+B(193)+B(195)+B(225)+B(227)+B(725)+B(727)
! JVS(1218) = Jac_FULL(207,228)
  JVS(1218) = 0
! JVS(1219) = Jac_FULL(207,229)
  JVS(1219) = B(281)+2*B(311)+B(315)+B(331)+B(333)+B(343)+B(351)+B(353)+2*B(355)+B(357)+B(379)+B(383)+B(387)+B(391)&
                &+B(1067)
! JVS(1220) = Jac_FULL(207,230)
  JVS(1220) = -B(253)+B(443)+2*B(473)+B(477)+B(493)+B(495)+B(505)+B(513)+B(515)+2*B(517)+B(519)+B(539)+B(543)+B(549)
! JVS(1221) = Jac_FULL(207,231)
  JVS(1221) = -B(247)+B(263)+B(779)+B(815)+B(843)+2*B(891)+B(893)+B(936)+B(940)
! JVS(1222) = Jac_FULL(207,232)
  JVS(1222) = 0
! JVS(1223) = Jac_FULL(208,33)
  JVS(1223) = B(260)
! JVS(1224) = Jac_FULL(208,141)
  JVS(1224) = B(710)
! JVS(1225) = Jac_FULL(208,175)
  JVS(1225) = 0
! JVS(1226) = Jac_FULL(208,208)
  JVS(1226) = -B(334)-B(496)-B(598)-B(679)
! JVS(1227) = Jac_FULL(208,215)
  JVS(1227) = 0
! JVS(1228) = Jac_FULL(208,226)
  JVS(1228) = 0
! JVS(1229) = Jac_FULL(208,228)
  JVS(1229) = -B(599)
! JVS(1230) = Jac_FULL(208,229)
  JVS(1230) = -B(335)
! JVS(1231) = Jac_FULL(208,230)
  JVS(1231) = -B(497)
! JVS(1232) = Jac_FULL(208,231)
  JVS(1232) = B(261)+B(711)
! JVS(1233) = Jac_FULL(209,38)
  JVS(1233) = B(740)
! JVS(1234) = Jac_FULL(209,79)
  JVS(1234) = B(43)
! JVS(1235) = Jac_FULL(209,81)
  JVS(1235) = 0
! JVS(1236) = Jac_FULL(209,178)
  JVS(1236) = B(298)+B(460)+B(659)
! JVS(1237) = Jac_FULL(209,209)
  JVS(1237) = -B(318)-B(414)-B(480)-B(582)-B(671)
! JVS(1238) = Jac_FULL(209,220)
  JVS(1238) = 0
! JVS(1239) = Jac_FULL(209,224)
  JVS(1239) = 0
! JVS(1240) = Jac_FULL(209,228)
  JVS(1240) = -B(583)
! JVS(1241) = Jac_FULL(209,229)
  JVS(1241) = B(299)-B(319)-B(415)
! JVS(1242) = Jac_FULL(209,230)
  JVS(1242) = B(461)-B(481)
! JVS(1243) = Jac_FULL(209,231)
  JVS(1243) = B(741)
! JVS(1244) = Jac_FULL(210,12)
  JVS(1244) = B(964)
! JVS(1245) = Jac_FULL(210,13)
  JVS(1245) = B(966)
! JVS(1246) = Jac_FULL(210,14)
  JVS(1246) = B(968)
! JVS(1247) = Jac_FULL(210,20)
  JVS(1247) = B(166)
! JVS(1248) = Jac_FULL(210,35)
  JVS(1248) = B(98)
! JVS(1249) = Jac_FULL(210,42)
  JVS(1249) = 0.95*B(1085)
! JVS(1250) = Jac_FULL(210,52)
  JVS(1250) = B(278)
! JVS(1251) = Jac_FULL(210,53)
  JVS(1251) = B(1084)
! JVS(1252) = Jac_FULL(210,76)
  JVS(1252) = B(57)
! JVS(1253) = Jac_FULL(210,93)
  JVS(1253) = B(840)
! JVS(1254) = Jac_FULL(210,109)
  JVS(1254) = 0
! JVS(1255) = Jac_FULL(210,150)
  JVS(1255) = B(192)
! JVS(1256) = Jac_FULL(210,161)
  JVS(1256) = B(196)
! JVS(1257) = Jac_FULL(210,171)
  JVS(1257) = B(1077)
! JVS(1258) = Jac_FULL(210,172)
  JVS(1258) = 0.18*B(1073)
! JVS(1259) = Jac_FULL(210,183)
  JVS(1259) = B(94)+B(960)
! JVS(1260) = Jac_FULL(210,189)
  JVS(1260) = 0
! JVS(1261) = Jac_FULL(210,195)
  JVS(1261) = B(13)
! JVS(1262) = Jac_FULL(210,196)
  JVS(1262) = 0
! JVS(1263) = Jac_FULL(210,197)
  JVS(1263) = 0
! JVS(1264) = Jac_FULL(210,205)
  JVS(1264) = 0
! JVS(1265) = Jac_FULL(210,210)
  JVS(1265) = -B(280)-B(394)-B(442)-B(550)-B(644)-B(645)-B(646)-B(980)
! JVS(1266) = Jac_FULL(210,211)
  JVS(1266) = 0
! JVS(1267) = Jac_FULL(210,212)
  JVS(1267) = 0
! JVS(1268) = Jac_FULL(210,215)
  JVS(1268) = 0
! JVS(1269) = Jac_FULL(210,219)
  JVS(1269) = B(326)+B(488)+B(675)
! JVS(1270) = Jac_FULL(210,222)
  JVS(1270) = 0
! JVS(1271) = Jac_FULL(210,223)
  JVS(1271) = B(193)+B(197)
! JVS(1272) = Jac_FULL(210,228)
  JVS(1272) = -B(551)
! JVS(1273) = Jac_FULL(210,229)
  JVS(1273) = -B(281)+B(327)-B(395)
! JVS(1274) = Jac_FULL(210,230)
  JVS(1274) = -B(443)+B(489)
! JVS(1275) = Jac_FULL(210,231)
  JVS(1275) = B(167)+B(279)+B(841)+B(961)+B(965)+B(967)+B(969)+0.95*B(1086)
! JVS(1276) = Jac_FULL(210,232)
  JVS(1276) = -B(981)+0.18*B(1074)
! JVS(1277) = Jac_FULL(210,233)
  JVS(1277) = B(11)
! JVS(1278) = Jac_FULL(211,108)
  JVS(1278) = B(776)
! JVS(1279) = Jac_FULL(211,159)
  JVS(1279) = 0
! JVS(1280) = Jac_FULL(211,211)
  JVS(1280) = -B(392)-B(440)-B(546)-B(640)-B(704)
! JVS(1281) = Jac_FULL(211,215)
  JVS(1281) = 0
! JVS(1282) = Jac_FULL(211,223)
  JVS(1282) = 0
! JVS(1283) = Jac_FULL(211,228)
  JVS(1283) = -B(641)
! JVS(1284) = Jac_FULL(211,229)
  JVS(1284) = -B(393)-B(441)
! JVS(1285) = Jac_FULL(211,230)
  JVS(1285) = -B(547)
! JVS(1286) = Jac_FULL(211,231)
  JVS(1286) = B(777)
! JVS(1287) = Jac_FULL(212,40)
  JVS(1287) = B(772)
! JVS(1288) = Jac_FULL(212,69)
  JVS(1288) = B(83)
! JVS(1289) = Jac_FULL(212,71)
  JVS(1289) = B(908)
! JVS(1290) = Jac_FULL(212,165)
  JVS(1290) = 0
! JVS(1291) = Jac_FULL(212,212)
  JVS(1291) = -B(372)-B(434)-B(532)-B(626)-B(697)
! JVS(1292) = Jac_FULL(212,222)
  JVS(1292) = B(370)+B(530)+B(696)
! JVS(1293) = Jac_FULL(212,223)
  JVS(1293) = 0
! JVS(1294) = Jac_FULL(212,228)
  JVS(1294) = -B(627)
! JVS(1295) = Jac_FULL(212,229)
  JVS(1295) = B(371)-B(373)-B(435)
! JVS(1296) = Jac_FULL(212,230)
  JVS(1296) = B(531)-B(533)
! JVS(1297) = Jac_FULL(212,231)
  JVS(1297) = B(773)+B(909)
! JVS(1298) = Jac_FULL(213,39)
  JVS(1298) = B(742)
! JVS(1299) = Jac_FULL(213,45)
  JVS(1299) = B(738)
! JVS(1300) = Jac_FULL(213,102)
  JVS(1300) = 0
! JVS(1301) = Jac_FULL(213,103)
  JVS(1301) = 0
! JVS(1302) = Jac_FULL(213,116)
  JVS(1302) = 0
! JVS(1303) = Jac_FULL(213,149)
  JVS(1303) = B(296)+B(458)+B(658)
! JVS(1304) = Jac_FULL(213,161)
  JVS(1304) = B(180)
! JVS(1305) = Jac_FULL(213,211)
  JVS(1305) = 0
! JVS(1306) = Jac_FULL(213,213)
  JVS(1306) = -B(316)-B(412)-B(478)-B(580)-B(670)
! JVS(1307) = Jac_FULL(213,215)
  JVS(1307) = 0
! JVS(1308) = Jac_FULL(213,217)
  JVS(1308) = 0
! JVS(1309) = Jac_FULL(213,223)
  JVS(1309) = 0
! JVS(1310) = Jac_FULL(213,228)
  JVS(1310) = -B(581)
! JVS(1311) = Jac_FULL(213,229)
  JVS(1311) = B(297)-B(317)-B(413)
! JVS(1312) = Jac_FULL(213,230)
  JVS(1312) = B(459)-B(479)
! JVS(1313) = Jac_FULL(213,231)
  JVS(1313) = B(181)+B(739)+B(743)
! JVS(1314) = Jac_FULL(214,9)
  JVS(1314) = B(168)
! JVS(1315) = Jac_FULL(214,15)
  JVS(1315) = B(970)
! JVS(1316) = Jac_FULL(214,33)
  JVS(1316) = B(14)
! JVS(1317) = Jac_FULL(214,58)
  JVS(1317) = B(60)
! JVS(1318) = Jac_FULL(214,62)
  JVS(1318) = B(58)
! JVS(1319) = Jac_FULL(214,135)
  JVS(1319) = B(41)
! JVS(1320) = Jac_FULL(214,141)
  JVS(1320) = B(17)
! JVS(1321) = Jac_FULL(214,155)
  JVS(1321) = B(32)+B(756)
! JVS(1322) = Jac_FULL(214,164)
  JVS(1322) = 0
! JVS(1323) = Jac_FULL(214,170)
  JVS(1323) = B(95)+B(962)
! JVS(1324) = Jac_FULL(214,175)
  JVS(1324) = B(53)
! JVS(1325) = Jac_FULL(214,182)
  JVS(1325) = 0
! JVS(1326) = Jac_FULL(214,189)
  JVS(1326) = 0
! JVS(1327) = Jac_FULL(214,196)
  JVS(1327) = 0
! JVS(1328) = Jac_FULL(214,197)
  JVS(1328) = 0
! JVS(1329) = Jac_FULL(214,204)
  JVS(1329) = B(328)+B(490)+B(676)
! JVS(1330) = Jac_FULL(214,214)
  JVS(1330) = -B(282)-B(396)-B(444)-B(552)-B(647)-B(648)-B(649)
! JVS(1331) = Jac_FULL(214,215)
  JVS(1331) = 0
! JVS(1332) = Jac_FULL(214,217)
  JVS(1332) = 0
! JVS(1333) = Jac_FULL(214,221)
  JVS(1333) = 0
! JVS(1334) = Jac_FULL(214,226)
  JVS(1334) = B(288)+B(450)+B(656)
! JVS(1335) = Jac_FULL(214,227)
  JVS(1335) = B(12)
! JVS(1336) = Jac_FULL(214,228)
  JVS(1336) = -B(553)
! JVS(1337) = Jac_FULL(214,229)
  JVS(1337) = -B(283)+B(289)+B(329)-B(397)
! JVS(1338) = Jac_FULL(214,230)
  JVS(1338) = -B(445)+B(451)+B(491)
! JVS(1339) = Jac_FULL(214,231)
  JVS(1339) = B(169)+B(757)+B(963)+B(971)
! JVS(1340) = Jac_FULL(214,232)
  JVS(1340) = 0
! JVS(1341) = Jac_FULL(215,133)
  JVS(1341) = B(774)
! JVS(1342) = Jac_FULL(215,159)
  JVS(1342) = B(222)
! JVS(1343) = Jac_FULL(215,169)
  JVS(1343) = 0
! JVS(1344) = Jac_FULL(215,185)
  JVS(1344) = 0
! JVS(1345) = Jac_FULL(215,215)
  JVS(1345) = -B(388)-B(390)-B(438)-B(544)-B(638)-B(703)
! JVS(1346) = Jac_FULL(215,223)
  JVS(1346) = B(223)
! JVS(1347) = Jac_FULL(215,228)
  JVS(1347) = -B(639)
! JVS(1348) = Jac_FULL(215,229)
  JVS(1348) = -B(389)-B(391)-B(439)
! JVS(1349) = Jac_FULL(215,230)
  JVS(1349) = -B(545)
! JVS(1350) = Jac_FULL(215,231)
  JVS(1350) = B(775)
! JVS(1351) = Jac_FULL(216,26)
  JVS(1351) = B(172)
! JVS(1352) = Jac_FULL(216,59)
  JVS(1352) = B(61)
! JVS(1353) = Jac_FULL(216,132)
  JVS(1353) = B(16)
! JVS(1354) = Jac_FULL(216,138)
  JVS(1354) = B(15)
! JVS(1355) = Jac_FULL(216,153)
  JVS(1355) = B(988)+B(1055)
! JVS(1356) = Jac_FULL(216,176)
  JVS(1356) = 0
! JVS(1357) = Jac_FULL(216,178)
  JVS(1357) = 0
! JVS(1358) = Jac_FULL(216,183)
  JVS(1358) = B(33)+B(758)
! JVS(1359) = Jac_FULL(216,189)
  JVS(1359) = 0
! JVS(1360) = Jac_FULL(216,196)
  JVS(1360) = 0
! JVS(1361) = Jac_FULL(216,197)
  JVS(1361) = 0
! JVS(1362) = Jac_FULL(216,206)
  JVS(1362) = 0
! JVS(1363) = Jac_FULL(216,208)
  JVS(1363) = 0
! JVS(1364) = Jac_FULL(216,215)
  JVS(1364) = 0
! JVS(1365) = Jac_FULL(216,216)
  JVS(1365) = -B(284)-B(398)-B(446)-B(554)-B(650)-B(651)-B(652)
! JVS(1366) = Jac_FULL(216,220)
  JVS(1366) = 0
! JVS(1367) = Jac_FULL(216,223)
  JVS(1367) = 0
! JVS(1368) = Jac_FULL(216,224)
  JVS(1368) = 0
! JVS(1369) = Jac_FULL(216,226)
  JVS(1369) = 0
! JVS(1370) = Jac_FULL(216,228)
  JVS(1370) = -B(555)
! JVS(1371) = Jac_FULL(216,229)
  JVS(1371) = -B(285)-B(399)
! JVS(1372) = Jac_FULL(216,230)
  JVS(1372) = -B(447)
! JVS(1373) = Jac_FULL(216,231)
  JVS(1373) = B(173)+B(759)+B(1056)
! JVS(1374) = Jac_FULL(217,138)
  JVS(1374) = B(706)
! JVS(1375) = Jac_FULL(217,178)
  JVS(1375) = 0
! JVS(1376) = Jac_FULL(217,217)
  JVS(1376) = -B(336)-B(498)-B(600)-B(680)
! JVS(1377) = Jac_FULL(217,220)
  JVS(1377) = 0
! JVS(1378) = Jac_FULL(217,224)
  JVS(1378) = 0
! JVS(1379) = Jac_FULL(217,228)
  JVS(1379) = -B(601)
! JVS(1380) = Jac_FULL(217,229)
  JVS(1380) = -B(337)
! JVS(1381) = Jac_FULL(217,230)
  JVS(1381) = -B(499)
! JVS(1382) = Jac_FULL(217,231)
  JVS(1382) = B(707)
! JVS(1383) = Jac_FULL(218,44)
  JVS(1383) = B(274)
! JVS(1384) = Jac_FULL(218,51)
  JVS(1384) = B(270)
! JVS(1385) = Jac_FULL(218,78)
  JVS(1385) = B(982)
! JVS(1386) = Jac_FULL(218,147)
  JVS(1386) = B(736)
! JVS(1387) = Jac_FULL(218,150)
  JVS(1387) = B(178)
! JVS(1388) = Jac_FULL(218,156)
  JVS(1388) = 0
! JVS(1389) = Jac_FULL(218,162)
  JVS(1389) = 0
! JVS(1390) = Jac_FULL(218,196)
  JVS(1390) = 0
! JVS(1391) = Jac_FULL(218,197)
  JVS(1391) = 0
! JVS(1392) = Jac_FULL(218,205)
  JVS(1392) = 0
! JVS(1393) = Jac_FULL(218,208)
  JVS(1393) = 0
! JVS(1394) = Jac_FULL(218,212)
  JVS(1394) = 0
! JVS(1395) = Jac_FULL(218,213)
  JVS(1395) = 0
! JVS(1396) = Jac_FULL(218,215)
  JVS(1396) = 0
! JVS(1397) = Jac_FULL(218,216)
  JVS(1397) = 0
! JVS(1398) = Jac_FULL(218,217)
  JVS(1398) = 0
! JVS(1399) = Jac_FULL(218,218)
  JVS(1399) = -B(314)-B(410)-B(476)-B(578)-B(669)
! JVS(1400) = Jac_FULL(218,220)
  JVS(1400) = 0
! JVS(1401) = Jac_FULL(218,222)
  JVS(1401) = 0
! JVS(1402) = Jac_FULL(218,223)
  JVS(1402) = 0
! JVS(1403) = Jac_FULL(218,224)
  JVS(1403) = 0
! JVS(1404) = Jac_FULL(218,226)
  JVS(1404) = 0
! JVS(1405) = Jac_FULL(218,228)
  JVS(1405) = -B(579)
! JVS(1406) = Jac_FULL(218,229)
  JVS(1406) = -B(315)-B(411)
! JVS(1407) = Jac_FULL(218,230)
  JVS(1407) = -B(477)
! JVS(1408) = Jac_FULL(218,231)
  JVS(1408) = B(179)+B(271)+B(275)+B(737)
! JVS(1409) = Jac_FULL(219,33)
  JVS(1409) = B(14)
! JVS(1410) = Jac_FULL(219,45)
  JVS(1410) = B(27)
! JVS(1411) = Jac_FULL(219,76)
  JVS(1411) = B(856)
! JVS(1412) = Jac_FULL(219,86)
  JVS(1412) = B(67)
! JVS(1413) = Jac_FULL(219,116)
  JVS(1413) = 0
! JVS(1414) = Jac_FULL(219,129)
  JVS(1414) = B(928)
! JVS(1415) = Jac_FULL(219,138)
  JVS(1415) = B(15)
! JVS(1416) = Jac_FULL(219,140)
  JVS(1416) = B(19)
! JVS(1417) = Jac_FULL(219,141)
  JVS(1417) = B(17)
! JVS(1418) = Jac_FULL(219,147)
  JVS(1418) = 2*B(26)
! JVS(1419) = Jac_FULL(219,160)
  JVS(1419) = 2*B(36)
! JVS(1420) = Jac_FULL(219,163)
  JVS(1420) = B(31)
! JVS(1421) = Jac_FULL(219,175)
  JVS(1421) = 0
! JVS(1422) = Jac_FULL(219,177)
  JVS(1422) = 0
! JVS(1423) = Jac_FULL(219,178)
  JVS(1423) = 0
! JVS(1424) = Jac_FULL(219,179)
  JVS(1424) = B(18)
! JVS(1425) = Jac_FULL(219,186)
  JVS(1425) = 0
! JVS(1426) = Jac_FULL(219,190)
  JVS(1426) = B(25)+B(734)
! JVS(1427) = Jac_FULL(219,191)
  JVS(1427) = B(29)+B(748)
! JVS(1428) = Jac_FULL(219,194)
  JVS(1428) = 0
! JVS(1429) = Jac_FULL(219,195)
  JVS(1429) = B(13)
! JVS(1430) = Jac_FULL(219,196)
  JVS(1430) = 0
! JVS(1431) = Jac_FULL(219,197)
  JVS(1431) = 0
! JVS(1432) = Jac_FULL(219,200)
  JVS(1432) = B(348)+B(510)+B(686)
! JVS(1433) = Jac_FULL(219,201)
  JVS(1433) = B(344)+B(506)+B(684)
! JVS(1434) = Jac_FULL(219,203)
  JVS(1434) = B(23)+B(724)
! JVS(1435) = Jac_FULL(219,205)
  JVS(1435) = 0
! JVS(1436) = Jac_FULL(219,208)
  JVS(1436) = B(334)+B(496)+B(679)
! JVS(1437) = Jac_FULL(219,211)
  JVS(1437) = 0
! JVS(1438) = Jac_FULL(219,212)
  JVS(1438) = 0
! JVS(1439) = Jac_FULL(219,213)
  JVS(1439) = 0
! JVS(1440) = Jac_FULL(219,215)
  JVS(1440) = 0
! JVS(1441) = Jac_FULL(219,217)
  JVS(1441) = 0
! JVS(1442) = Jac_FULL(219,218)
  JVS(1442) = 0
! JVS(1443) = Jac_FULL(219,219)
  JVS(1443) = -B(326)-B(488)-B(590)-B(675)-B(926)
! JVS(1444) = Jac_FULL(219,220)
  JVS(1444) = 0
! JVS(1445) = Jac_FULL(219,221)
  JVS(1445) = B(332)+B(494)+B(678)
! JVS(1446) = Jac_FULL(219,222)
  JVS(1446) = 0
! JVS(1447) = Jac_FULL(219,223)
  JVS(1447) = B(725)+B(749)
! JVS(1448) = Jac_FULL(219,224)
  JVS(1448) = 0
! JVS(1449) = Jac_FULL(219,226)
  JVS(1449) = 0
! JVS(1450) = Jac_FULL(219,228)
  JVS(1450) = -B(591)
! JVS(1451) = Jac_FULL(219,229)
  JVS(1451) = -B(327)+B(333)+B(335)+B(345)+B(349)
! JVS(1452) = Jac_FULL(219,230)
  JVS(1452) = B(254)-B(489)+B(495)+B(497)+B(507)+B(511)
! JVS(1453) = Jac_FULL(219,231)
  JVS(1453) = B(248)+B(735)+B(857)
! JVS(1454) = Jac_FULL(219,232)
  JVS(1454) = -B(927)
! JVS(1455) = Jac_FULL(219,233)
  JVS(1455) = B(249)+B(255)
! JVS(1456) = Jac_FULL(220,132)
  JVS(1456) = B(708)
! JVS(1457) = Jac_FULL(220,206)
  JVS(1457) = 0
! JVS(1458) = Jac_FULL(220,220)
  JVS(1458) = -B(338)-B(500)-B(602)-B(681)
! JVS(1459) = Jac_FULL(220,223)
  JVS(1459) = 0
! JVS(1460) = Jac_FULL(220,228)
  JVS(1460) = -B(603)
! JVS(1461) = Jac_FULL(220,229)
  JVS(1461) = -B(339)
! JVS(1462) = Jac_FULL(220,230)
  JVS(1462) = -B(501)
! JVS(1463) = Jac_FULL(220,231)
  JVS(1463) = B(709)
! JVS(1464) = Jac_FULL(221,38)
  JVS(1464) = 2*B(28)
! JVS(1465) = Jac_FULL(221,45)
  JVS(1465) = B(27)
! JVS(1466) = Jac_FULL(221,81)
  JVS(1466) = 0
! JVS(1467) = Jac_FULL(221,96)
  JVS(1467) = B(88)
! JVS(1468) = Jac_FULL(221,116)
  JVS(1468) = 0
! JVS(1469) = Jac_FULL(221,132)
  JVS(1469) = B(16)
! JVS(1470) = Jac_FULL(221,168)
  JVS(1470) = B(20)
! JVS(1471) = Jac_FULL(221,181)
  JVS(1471) = B(21)
! JVS(1472) = Jac_FULL(221,184)
  JVS(1472) = B(380)+B(540)+B(701)
! JVS(1473) = Jac_FULL(221,194)
  JVS(1473) = 0
! JVS(1474) = Jac_FULL(221,195)
  JVS(1474) = B(258)
! JVS(1475) = Jac_FULL(221,202)
  JVS(1475) = 0
! JVS(1476) = Jac_FULL(221,205)
  JVS(1476) = 0
! JVS(1477) = Jac_FULL(221,206)
  JVS(1477) = 0
! JVS(1478) = Jac_FULL(221,209)
  JVS(1478) = 0
! JVS(1479) = Jac_FULL(221,211)
  JVS(1479) = 0
! JVS(1480) = Jac_FULL(221,212)
  JVS(1480) = 0
! JVS(1481) = Jac_FULL(221,215)
  JVS(1481) = 0
! JVS(1482) = Jac_FULL(221,217)
  JVS(1482) = 0
! JVS(1483) = Jac_FULL(221,220)
  JVS(1483) = 0
! JVS(1484) = Jac_FULL(221,221)
  JVS(1484) = -B(332)-B(494)-B(596)-B(678)
! JVS(1485) = Jac_FULL(221,222)
  JVS(1485) = 0
! JVS(1486) = Jac_FULL(221,223)
  JVS(1486) = 0
! JVS(1487) = Jac_FULL(221,224)
  JVS(1487) = 0
! JVS(1488) = Jac_FULL(221,225)
  JVS(1488) = 0
! JVS(1489) = Jac_FULL(221,228)
  JVS(1489) = -B(597)
! JVS(1490) = Jac_FULL(221,229)
  JVS(1490) = -B(333)+B(381)
! JVS(1491) = Jac_FULL(221,230)
  JVS(1491) = -B(495)+B(541)
! JVS(1492) = Jac_FULL(221,231)
  JVS(1492) = B(259)
! JVS(1493) = Jac_FULL(221,232)
  JVS(1493) = 0
! JVS(1494) = Jac_FULL(222,69)
  JVS(1494) = B(904)
! JVS(1495) = Jac_FULL(222,123)
  JVS(1495) = B(953)
! JVS(1496) = Jac_FULL(222,166)
  JVS(1496) = B(35)+B(762)+B(768)
! JVS(1497) = Jac_FULL(222,193)
  JVS(1497) = 0
! JVS(1498) = Jac_FULL(222,222)
  JVS(1498) = -B(370)-B(530)-B(624)-B(696)-B(951)
! JVS(1499) = Jac_FULL(222,223)
  JVS(1499) = 0
! JVS(1500) = Jac_FULL(222,228)
  JVS(1500) = -B(625)
! JVS(1501) = Jac_FULL(222,229)
  JVS(1501) = -B(371)
! JVS(1502) = Jac_FULL(222,230)
  JVS(1502) = -B(531)+B(769)
! JVS(1503) = Jac_FULL(222,231)
  JVS(1503) = B(763)+B(905)
! JVS(1504) = Jac_FULL(222,232)
  JVS(1504) = -B(952)
! JVS(1505) = Jac_FULL(223,143)
  JVS(1505) = -B(1069)
! JVS(1506) = Jac_FULL(223,150)
  JVS(1506) = -B(192)-B(194)
! JVS(1507) = Jac_FULL(223,154)
  JVS(1507) = -B(188)-B(190)
! JVS(1508) = Jac_FULL(223,159)
  JVS(1508) = -B(222)-B(224)-B(226)-B(228)
! JVS(1509) = Jac_FULL(223,161)
  JVS(1509) = -B(196)-B(198)
! JVS(1510) = Jac_FULL(223,165)
  JVS(1510) = -B(212)-B(214)-B(216)
! JVS(1511) = Jac_FULL(223,171)
  JVS(1511) = -B(1080)
! JVS(1512) = Jac_FULL(223,172)
  JVS(1512) = -B(1075)
! JVS(1513) = Jac_FULL(223,173)
  JVS(1513) = B(96)-B(99)
! JVS(1514) = Jac_FULL(223,177)
  JVS(1514) = -B(204)-B(206)
! JVS(1515) = Jac_FULL(223,191)
  JVS(1515) = -B(748)-B(750)
! JVS(1516) = Jac_FULL(223,203)
  JVS(1516) = -B(724)-B(726)
! JVS(1517) = Jac_FULL(223,223)
  JVS(1517) = -B(1)-B(2)-B(100)-B(109)-B(111)-B(124)-B(132)-B(189)-B(191)-B(193)-B(195)-B(197)-B(199)-B(205)-B(207)&
                &-B(213)-B(215)-B(217)-B(223)-B(225)-B(227)-B(229)-B(725)-B(727)-B(749)-B(751)-B(1070)-B(1076)-B(1081)
! JVS(1518) = Jac_FULL(223,228)
  JVS(1518) = -B(133)
! JVS(1519) = Jac_FULL(223,229)
  JVS(1519) = -B(110)
! JVS(1520) = Jac_FULL(223,230)
  JVS(1520) = 0
! JVS(1521) = Jac_FULL(223,231)
  JVS(1521) = -B(125)
! JVS(1522) = Jac_FULL(223,232)
  JVS(1522) = -B(112)
! JVS(1523) = Jac_FULL(224,81)
  JVS(1523) = B(63)
! JVS(1524) = Jac_FULL(224,153)
  JVS(1524) = B(989)+B(1053)
! JVS(1525) = Jac_FULL(224,176)
  JVS(1525) = 0
! JVS(1526) = Jac_FULL(224,181)
  JVS(1526) = B(718)
! JVS(1527) = Jac_FULL(224,202)
  JVS(1527) = 0
! JVS(1528) = Jac_FULL(224,206)
  JVS(1528) = 0
! JVS(1529) = Jac_FULL(224,220)
  JVS(1529) = 0
! JVS(1530) = Jac_FULL(224,222)
  JVS(1530) = 0
! JVS(1531) = Jac_FULL(224,223)
  JVS(1531) = 0
! JVS(1532) = Jac_FULL(224,224)
  JVS(1532) = -B(292)-B(404)-B(454)-B(560)-B(665)
! JVS(1533) = Jac_FULL(224,228)
  JVS(1533) = -B(561)
! JVS(1534) = Jac_FULL(224,229)
  JVS(1534) = -B(293)-B(405)
! JVS(1535) = Jac_FULL(224,230)
  JVS(1535) = -B(455)
! JVS(1536) = Jac_FULL(224,231)
  JVS(1536) = B(719)+B(1054)
! JVS(1537) = Jac_FULL(224,232)
  JVS(1537) = 0
! JVS(1538) = Jac_FULL(225,34)
  JVS(1538) = B(764)
! JVS(1539) = Jac_FULL(225,80)
  JVS(1539) = B(55)
! JVS(1540) = Jac_FULL(225,97)
  JVS(1540) = 0
! JVS(1541) = Jac_FULL(225,178)
  JVS(1541) = 0
! JVS(1542) = Jac_FULL(225,212)
  JVS(1542) = 0
! JVS(1543) = Jac_FULL(225,220)
  JVS(1543) = 0
! JVS(1544) = Jac_FULL(225,222)
  JVS(1544) = 0
! JVS(1545) = Jac_FULL(225,223)
  JVS(1545) = 0
! JVS(1546) = Jac_FULL(225,224)
  JVS(1546) = B(292)+B(454)+B(665)
! JVS(1547) = Jac_FULL(225,225)
  JVS(1547) = -B(322)-B(418)-B(484)-B(586)-B(673)
! JVS(1548) = Jac_FULL(225,228)
  JVS(1548) = -B(587)
! JVS(1549) = Jac_FULL(225,229)
  JVS(1549) = B(293)-B(323)-B(419)
! JVS(1550) = Jac_FULL(225,230)
  JVS(1550) = B(455)-B(485)
! JVS(1551) = Jac_FULL(225,231)
  JVS(1551) = B(765)
! JVS(1552) = Jac_FULL(225,232)
  JVS(1552) = 0
! JVS(1553) = Jac_FULL(226,11)
  JVS(1553) = B(174)
! JVS(1554) = Jac_FULL(226,103)
  JVS(1554) = B(91)
! JVS(1555) = Jac_FULL(226,116)
  JVS(1555) = B(62)
! JVS(1556) = Jac_FULL(226,168)
  JVS(1556) = B(716)
! JVS(1557) = Jac_FULL(226,170)
  JVS(1557) = B(34)+B(760)
! JVS(1558) = Jac_FULL(226,189)
  JVS(1558) = 0
! JVS(1559) = Jac_FULL(226,196)
  JVS(1559) = 0
! JVS(1560) = Jac_FULL(226,197)
  JVS(1560) = 0
! JVS(1561) = Jac_FULL(226,209)
  JVS(1561) = 0
! JVS(1562) = Jac_FULL(226,211)
  JVS(1562) = B(392)+B(546)+B(704)
! JVS(1563) = Jac_FULL(226,215)
  JVS(1563) = 0
! JVS(1564) = Jac_FULL(226,217)
  JVS(1564) = 0
! JVS(1565) = Jac_FULL(226,220)
  JVS(1565) = 0
! JVS(1566) = Jac_FULL(226,223)
  JVS(1566) = 0
! JVS(1567) = Jac_FULL(226,224)
  JVS(1567) = 0
! JVS(1568) = Jac_FULL(226,225)
  JVS(1568) = 0
! JVS(1569) = Jac_FULL(226,226)
  JVS(1569) = -B(288)-B(290)-B(402)-B(450)-B(452)-B(558)-B(656)-B(657)
! JVS(1570) = Jac_FULL(226,228)
  JVS(1570) = -B(559)
! JVS(1571) = Jac_FULL(226,229)
  JVS(1571) = -B(289)-B(291)+B(393)-B(403)
! JVS(1572) = Jac_FULL(226,230)
  JVS(1572) = -B(451)-B(453)+B(547)
! JVS(1573) = Jac_FULL(226,231)
  JVS(1573) = B(175)+B(717)+B(761)
! JVS(1574) = Jac_FULL(226,232)
  JVS(1574) = 0
! JVS(1575) = Jac_FULL(227,51)
  JVS(1575) = B(268)
! JVS(1576) = Jac_FULL(227,56)
  JVS(1576) = B(51)+B(846)
! JVS(1577) = Jac_FULL(227,94)
  JVS(1577) = B(39)+B(782)
! JVS(1578) = Jac_FULL(227,130)
  JVS(1578) = 2*B(74)
! JVS(1579) = Jac_FULL(227,137)
  JVS(1579) = B(73)
! JVS(1580) = Jac_FULL(227,174)
  JVS(1580) = 2*B(320)+2*B(482)+2*B(672)
! JVS(1581) = Jac_FULL(227,181)
  JVS(1581) = B(21)
! JVS(1582) = Jac_FULL(227,202)
  JVS(1582) = 0
! JVS(1583) = Jac_FULL(227,206)
  JVS(1583) = 0
! JVS(1584) = Jac_FULL(227,209)
  JVS(1584) = B(318)+B(480)+B(671)
! JVS(1585) = Jac_FULL(227,216)
  JVS(1585) = B(284)+B(446)+B(650)+B(651)
! JVS(1586) = Jac_FULL(227,220)
  JVS(1586) = 0
! JVS(1587) = Jac_FULL(227,222)
  JVS(1587) = 0
! JVS(1588) = Jac_FULL(227,223)
  JVS(1588) = 0
! JVS(1589) = Jac_FULL(227,224)
  JVS(1589) = 0
! JVS(1590) = Jac_FULL(227,225)
  JVS(1590) = 0
! JVS(1591) = Jac_FULL(227,226)
  JVS(1591) = 0
! JVS(1592) = Jac_FULL(227,227)
  JVS(1592) = -B(12)-B(250)-B(256)
! JVS(1593) = Jac_FULL(227,228)
  JVS(1593) = 0
! JVS(1594) = Jac_FULL(227,229)
  JVS(1594) = B(285)+B(319)+2*B(321)
! JVS(1595) = Jac_FULL(227,230)
  JVS(1595) = -B(257)+B(447)+B(481)+2*B(483)
! JVS(1596) = Jac_FULL(227,231)
  JVS(1596) = -B(251)+B(269)+B(783)+B(847)
! JVS(1597) = Jac_FULL(227,232)
  JVS(1597) = 0
! JVS(1598) = Jac_FULL(228,10)
  JVS(1598) = B(162)
! JVS(1599) = Jac_FULL(228,30)
  JVS(1599) = B(236)
! JVS(1600) = Jac_FULL(228,31)
  JVS(1600) = B(240)
! JVS(1601) = Jac_FULL(228,36)
  JVS(1601) = B(230)
! JVS(1602) = Jac_FULL(228,37)
  JVS(1602) = B(262)
! JVS(1603) = Jac_FULL(228,43)
  JVS(1603) = B(264)
! JVS(1604) = Jac_FULL(228,44)
  JVS(1604) = B(272)
! JVS(1605) = Jac_FULL(228,46)
  JVS(1605) = B(276)
! JVS(1606) = Jac_FULL(228,51)
  JVS(1606) = B(268)
! JVS(1607) = Jac_FULL(228,53)
  JVS(1607) = -B(1082)
! JVS(1608) = Jac_FULL(228,56)
  JVS(1608) = B(51)
! JVS(1609) = Jac_FULL(228,63)
  JVS(1609) = B(149)
! JVS(1610) = Jac_FULL(228,65)
  JVS(1610) = B(68)
! JVS(1611) = Jac_FULL(228,68)
  JVS(1611) = B(81)
! JVS(1612) = Jac_FULL(228,73)
  JVS(1612) = B(50)
! JVS(1613) = Jac_FULL(228,74)
  JVS(1613) = B(52)
! JVS(1614) = Jac_FULL(228,75)
  JVS(1614) = B(90)
! JVS(1615) = Jac_FULL(228,78)
  JVS(1615) = B(994)
! JVS(1616) = Jac_FULL(228,82)
  JVS(1616) = B(72)
! JVS(1617) = Jac_FULL(228,84)
  JVS(1617) = B(40)
! JVS(1618) = Jac_FULL(228,85)
  JVS(1618) = B(59)
! JVS(1619) = Jac_FULL(228,88)
  JVS(1619) = B(69)
! JVS(1620) = Jac_FULL(228,89)
  JVS(1620) = B(78)
! JVS(1621) = Jac_FULL(228,90)
  JVS(1621) = B(37)
! JVS(1622) = Jac_FULL(228,91)
  JVS(1622) = B(38)
! JVS(1623) = Jac_FULL(228,92)
  JVS(1623) = B(79)
! JVS(1624) = Jac_FULL(228,93)
  JVS(1624) = B(49)
! JVS(1625) = Jac_FULL(228,94)
  JVS(1625) = B(39)
! JVS(1626) = Jac_FULL(228,100)
  JVS(1626) = B(48)
! JVS(1627) = Jac_FULL(228,101)
  JVS(1627) = B(70)
! JVS(1628) = Jac_FULL(228,106)
  JVS(1628) = B(987)
! JVS(1629) = Jac_FULL(228,107)
  JVS(1629) = B(130)
! JVS(1630) = Jac_FULL(228,109)
  JVS(1630) = B(1062)
! JVS(1631) = Jac_FULL(228,110)
  JVS(1631) = 0.05*B(1087)
! JVS(1632) = Jac_FULL(228,114)
  JVS(1632) = B(64)+B(65)
! JVS(1633) = Jac_FULL(228,115)
  JVS(1633) = B(66)
! JVS(1634) = Jac_FULL(228,118)
  JVS(1634) = B(71)
! JVS(1635) = Jac_FULL(228,119)
  JVS(1635) = B(45)
! JVS(1636) = Jac_FULL(228,121)
  JVS(1636) = B(46)
! JVS(1637) = Jac_FULL(228,124)
  JVS(1637) = B(87)
! JVS(1638) = Jac_FULL(228,125)
  JVS(1638) = B(89)
! JVS(1639) = Jac_FULL(228,127)
  JVS(1639) = 0
! JVS(1640) = Jac_FULL(228,128)
  JVS(1640) = B(986)
! JVS(1641) = Jac_FULL(228,130)
  JVS(1641) = B(74)
! JVS(1642) = Jac_FULL(228,131)
  JVS(1642) = B(80)
! JVS(1643) = Jac_FULL(228,134)
  JVS(1643) = B(985)
! JVS(1644) = Jac_FULL(228,135)
  JVS(1644) = B(42)
! JVS(1645) = Jac_FULL(228,136)
  JVS(1645) = B(983)
! JVS(1646) = Jac_FULL(228,137)
  JVS(1646) = B(73)
! JVS(1647) = Jac_FULL(228,139)
  JVS(1647) = B(47)
! JVS(1648) = Jac_FULL(228,140)
  JVS(1648) = B(19)+B(714)
! JVS(1649) = Jac_FULL(228,142)
  JVS(1649) = B(984)
! JVS(1650) = Jac_FULL(228,144)
  JVS(1650) = B(360)+B(522)-B(616)+B(692)
! JVS(1651) = Jac_FULL(228,145)
  JVS(1651) = -B(614)
! JVS(1652) = Jac_FULL(228,146)
  JVS(1652) = -B(622)
! JVS(1653) = Jac_FULL(228,148)
  JVS(1653) = -B(610)
! JVS(1654) = Jac_FULL(228,149)
  JVS(1654) = -B(564)
! JVS(1655) = Jac_FULL(228,151)
  JVS(1655) = 2*B(24)+B(732)
! JVS(1656) = Jac_FULL(228,152)
  JVS(1656) = 2*B(30)
! JVS(1657) = Jac_FULL(228,153)
  JVS(1657) = B(988)+B(989)
! JVS(1658) = Jac_FULL(228,154)
  JVS(1658) = B(188)
! JVS(1659) = Jac_FULL(228,155)
  JVS(1659) = B(32)+2*B(93)+B(958)
! JVS(1660) = Jac_FULL(228,156)
  JVS(1660) = B(286)+B(448)-B(556)+B(653)
! JVS(1661) = Jac_FULL(228,157)
  JVS(1661) = B(1016)+B(1024)-B(1028)+B(1032)
! JVS(1662) = Jac_FULL(228,158)
  JVS(1662) = -B(628)
! JVS(1663) = Jac_FULL(228,159)
  JVS(1663) = 0
! JVS(1664) = Jac_FULL(228,161)
  JVS(1664) = 0
! JVS(1665) = Jac_FULL(228,162)
  JVS(1665) = 0
! JVS(1666) = Jac_FULL(228,164)
  JVS(1666) = B(300)+B(462)-B(568)+B(660)
! JVS(1667) = Jac_FULL(228,165)
  JVS(1667) = 0
! JVS(1668) = Jac_FULL(228,166)
  JVS(1668) = B(35)
! JVS(1669) = Jac_FULL(228,167)
  JVS(1669) = -B(612)
! JVS(1670) = Jac_FULL(228,168)
  JVS(1670) = B(20)
! JVS(1671) = Jac_FULL(228,169)
  JVS(1671) = -B(642)
! JVS(1672) = Jac_FULL(228,170)
  JVS(1672) = B(34)+B(95)
! JVS(1673) = Jac_FULL(228,171)
  JVS(1673) = 0
! JVS(1674) = Jac_FULL(228,172)
  JVS(1674) = 0
! JVS(1675) = Jac_FULL(228,173)
  JVS(1675) = 0
! JVS(1676) = Jac_FULL(228,174)
  JVS(1676) = B(320)+B(482)-B(584)+B(672)
! JVS(1677) = Jac_FULL(228,175)
  JVS(1677) = B(54)
! JVS(1678) = Jac_FULL(228,176)
  JVS(1678) = B(1040)+B(1044)-B(1046)+B(1048)
! JVS(1679) = Jac_FULL(228,177)
  JVS(1679) = B(204)
! JVS(1680) = Jac_FULL(228,178)
  JVS(1680) = -B(566)
! JVS(1681) = Jac_FULL(228,179)
  JVS(1681) = B(18)+B(712)
! JVS(1682) = Jac_FULL(228,180)
  JVS(1682) = B(340)+B(342)+B(502)+B(504)-B(604)+B(682)+B(683)
! JVS(1683) = Jac_FULL(228,181)
  JVS(1683) = B(21)
! JVS(1684) = Jac_FULL(228,182)
  JVS(1684) = B(302)+B(304)+B(464)+B(466)-B(570)+B(661)+B(662)
! JVS(1685) = Jac_FULL(228,183)
  JVS(1685) = B(33)+B(94)
! JVS(1686) = Jac_FULL(228,184)
  JVS(1686) = -B(634)
! JVS(1687) = Jac_FULL(228,185)
  JVS(1687) = B(382)+B(542)-B(636)+B(702)
! JVS(1688) = Jac_FULL(228,186)
  JVS(1688) = B(362)+B(524)-B(618)+B(693)
! JVS(1689) = Jac_FULL(228,187)
  JVS(1689) = B(128)
! JVS(1690) = Jac_FULL(228,188)
  JVS(1690) = B(330)+B(492)-B(594)+B(677)
! JVS(1691) = Jac_FULL(228,189)
  JVS(1691) = B(306)+B(468)-B(572)+B(663)
! JVS(1692) = Jac_FULL(228,190)
  JVS(1692) = B(25)
! JVS(1693) = Jac_FULL(228,191)
  JVS(1693) = B(29)
! JVS(1694) = Jac_FULL(228,193)
  JVS(1694) = B(364)+B(526)-B(620)+B(694)
! JVS(1695) = Jac_FULL(228,194)
  JVS(1695) = B(378)+B(538)-B(632)+B(700)
! JVS(1696) = Jac_FULL(228,196)
  JVS(1696) = B(308)+B(470)-B(574)+B(664)
! JVS(1697) = Jac_FULL(228,197)
  JVS(1697) = B(1018)+B(1026)-B(1030)+B(1033)
! JVS(1698) = Jac_FULL(228,198)
  JVS(1698) = B(310)+B(312)+B(472)+B(474)-B(576)+B(667)+B(668)
! JVS(1699) = Jac_FULL(228,199)
  JVS(1699) = 2*B(22)
! JVS(1700) = Jac_FULL(228,200)
  JVS(1700) = B(350)+B(352)+B(512)+B(514)-B(608)+B(687)+B(688)
! JVS(1701) = Jac_FULL(228,201)
  JVS(1701) = B(346)+B(508)-B(606)+B(685)
! JVS(1702) = Jac_FULL(228,202)
  JVS(1702) = B(324)+B(486)-B(588)+B(674)
! JVS(1703) = Jac_FULL(228,203)
  JVS(1703) = B(23)
! JVS(1704) = Jac_FULL(228,204)
  JVS(1704) = -B(592)
! JVS(1705) = Jac_FULL(228,205)
  JVS(1705) = -B(630)
! JVS(1706) = Jac_FULL(228,206)
  JVS(1706) = -B(562)
! JVS(1707) = Jac_FULL(228,207)
  JVS(1707) = 2*B(9)+B(246)+B(252)
! JVS(1708) = Jac_FULL(228,208)
  JVS(1708) = -B(598)
! JVS(1709) = Jac_FULL(228,209)
  JVS(1709) = B(318)+B(480)-B(582)+B(671)
! JVS(1710) = Jac_FULL(228,210)
  JVS(1710) = B(280)+B(442)-B(550)+B(644)
! JVS(1711) = Jac_FULL(228,211)
  JVS(1711) = -B(640)
! JVS(1712) = Jac_FULL(228,212)
  JVS(1712) = -B(626)
! JVS(1713) = Jac_FULL(228,213)
  JVS(1713) = B(316)+B(478)-B(580)+B(670)
! JVS(1714) = Jac_FULL(228,214)
  JVS(1714) = B(282)+B(444)-B(552)+B(647)
! JVS(1715) = Jac_FULL(228,215)
  JVS(1715) = B(388)+B(544)-B(638)+B(703)
! JVS(1716) = Jac_FULL(228,216)
  JVS(1716) = B(284)+B(446)-B(554)+B(650)
! JVS(1717) = Jac_FULL(228,217)
  JVS(1717) = -B(600)
! JVS(1718) = Jac_FULL(228,218)
  JVS(1718) = B(314)+B(476)-B(578)+B(669)
! JVS(1719) = Jac_FULL(228,219)
  JVS(1719) = -B(590)
! JVS(1720) = Jac_FULL(228,220)
  JVS(1720) = -B(602)
! JVS(1721) = Jac_FULL(228,221)
  JVS(1721) = -B(596)
! JVS(1722) = Jac_FULL(228,222)
  JVS(1722) = -B(624)
! JVS(1723) = Jac_FULL(228,223)
  JVS(1723) = B(124)-B(132)+B(189)+B(205)
! JVS(1724) = Jac_FULL(228,224)
  JVS(1724) = -B(560)
! JVS(1725) = Jac_FULL(228,225)
  JVS(1725) = B(322)+B(484)-B(586)+B(673)
! JVS(1726) = Jac_FULL(228,226)
  JVS(1726) = B(290)+B(452)-B(558)+B(657)
! JVS(1727) = Jac_FULL(228,227)
  JVS(1727) = B(12)
! JVS(1728) = Jac_FULL(228,228)
  JVS(1728) = -B(133)-B(134)-2*B(136)-2*B(137)-B(145)-B(147)-B(152)-B(551)-B(553)-B(555)-B(557)-B(559)-B(561)-B(563)&
                &-B(565)-B(567)-B(569)-B(571)-B(573)-B(575)-B(577)-B(579)-B(581)-B(583)-B(585)-B(587)-B(589)-B(591)-B(593)&
                &-B(595)-B(597)-B(599)-B(601)-B(603)-B(605)-B(607)-B(609)-B(611)-B(613)-B(615)-B(617)-B(619)-B(621)-B(623)&
                &-B(625)-B(627)-B(629)-B(631)-B(633)-B(635)-B(637)-B(639)-B(641)-B(643)-B(1029)-B(1031)-B(1047)-B(1083)
! JVS(1729) = Jac_FULL(228,229)
  JVS(1729) = -B(146)+B(281)+B(283)+B(285)+B(287)+B(291)+B(301)+B(303)+B(305)+B(307)+B(309)+B(311)+B(313)+B(315)+B(317)&
                &+B(319)+B(321)+B(323)+B(325)+B(331)+B(341)+B(343)+B(347)+B(351)+B(353)+B(361)+B(363)+B(365)+B(379)+B(383)&
                &+B(389)+B(1017)+B(1019)+B(1041)
! JVS(1730) = Jac_FULL(228,230)
  JVS(1730) = B(143)-B(153)+B(253)+B(443)+B(445)+B(447)+B(449)+B(453)+B(463)+B(465)+B(467)+B(469)+B(471)+B(473)+B(475)&
                &+B(477)+B(479)+B(481)+B(483)+B(485)+B(487)+B(493)+B(503)+B(505)+B(509)+B(513)+B(515)+B(523)+B(525)+B(527)&
                &+B(539)+B(543)+B(545)+B(1025)+B(1027)+B(1045)
! JVS(1731) = Jac_FULL(228,231)
  JVS(1731) = B(125)+B(126)+B(129)+B(131)-B(135)+B(144)+B(231)+B(237)+B(241)+B(247)+B(263)+B(265)+B(269)+B(273)+B(277)&
                &+B(713)+B(715)+B(733)+B(959)+B(995)+B(1063)+0.05*B(1088)
! JVS(1732) = Jac_FULL(228,232)
  JVS(1732) = -B(148)
! JVS(1733) = Jac_FULL(228,233)
  JVS(1733) = B(11)
! JVS(1734) = Jac_FULL(229,41)
  JVS(1734) = B(7)
! JVS(1735) = Jac_FULL(229,111)
  JVS(1735) = -B(1066)
! JVS(1736) = Jac_FULL(229,143)
  JVS(1736) = B(1071)
! JVS(1737) = Jac_FULL(229,144)
  JVS(1737) = -B(360)
! JVS(1738) = Jac_FULL(229,145)
  JVS(1738) = -B(358)
! JVS(1739) = Jac_FULL(229,146)
  JVS(1739) = -B(368)
! JVS(1740) = Jac_FULL(229,148)
  JVS(1740) = -B(354)
! JVS(1741) = Jac_FULL(229,149)
  JVS(1741) = -B(296)
! JVS(1742) = Jac_FULL(229,154)
  JVS(1742) = 0
! JVS(1743) = Jac_FULL(229,156)
  JVS(1743) = -B(286)-B(400)
! JVS(1744) = Jac_FULL(229,157)
  JVS(1744) = -B(1016)-B(1020)
! JVS(1745) = Jac_FULL(229,158)
  JVS(1745) = -B(374)
! JVS(1746) = Jac_FULL(229,161)
  JVS(1746) = 0
! JVS(1747) = Jac_FULL(229,164)
  JVS(1747) = -B(300)-B(424)
! JVS(1748) = Jac_FULL(229,165)
  JVS(1748) = 0
! JVS(1749) = Jac_FULL(229,167)
  JVS(1749) = -B(356)
! JVS(1750) = Jac_FULL(229,169)
  JVS(1750) = -B(386)
! JVS(1751) = Jac_FULL(229,171)
  JVS(1751) = B(1078)
! JVS(1752) = Jac_FULL(229,172)
  JVS(1752) = B(1073)
! JVS(1753) = Jac_FULL(229,173)
  JVS(1753) = -B(101)+B(103)
! JVS(1754) = Jac_FULL(229,174)
  JVS(1754) = -B(320)-B(416)
! JVS(1755) = Jac_FULL(229,176)
  JVS(1755) = -B(1040)-B(1042)
! JVS(1756) = Jac_FULL(229,177)
  JVS(1756) = 0
! JVS(1757) = Jac_FULL(229,178)
  JVS(1757) = -B(298)
! JVS(1758) = Jac_FULL(229,180)
  JVS(1758) = -B(340)-B(342)-B(422)
! JVS(1759) = Jac_FULL(229,182)
  JVS(1759) = -B(302)-B(304)-B(426)
! JVS(1760) = Jac_FULL(229,184)
  JVS(1760) = -B(380)
! JVS(1761) = Jac_FULL(229,185)
  JVS(1761) = -B(382)-B(384)-B(436)
! JVS(1762) = Jac_FULL(229,186)
  JVS(1762) = -B(362)
! JVS(1763) = Jac_FULL(229,188)
  JVS(1763) = -B(330)
! JVS(1764) = Jac_FULL(229,189)
  JVS(1764) = -B(306)-B(428)
! JVS(1765) = Jac_FULL(229,193)
  JVS(1765) = -B(364)-B(366)-B(432)
! JVS(1766) = Jac_FULL(229,194)
  JVS(1766) = -B(378)
! JVS(1767) = Jac_FULL(229,196)
  JVS(1767) = -B(308)-B(430)
! JVS(1768) = Jac_FULL(229,197)
  JVS(1768) = -B(1018)-B(1022)
! JVS(1769) = Jac_FULL(229,198)
  JVS(1769) = -B(310)-B(312)-B(408)
! JVS(1770) = Jac_FULL(229,199)
  JVS(1770) = 0
! JVS(1771) = Jac_FULL(229,200)
  JVS(1771) = -B(348)-B(350)-B(352)
! JVS(1772) = Jac_FULL(229,201)
  JVS(1772) = -B(344)-B(346)
! JVS(1773) = Jac_FULL(229,202)
  JVS(1773) = -B(324)-B(420)
! JVS(1774) = Jac_FULL(229,203)
  JVS(1774) = 0
! JVS(1775) = Jac_FULL(229,204)
  JVS(1775) = -B(328)
! JVS(1776) = Jac_FULL(229,205)
  JVS(1776) = -B(376)-B(990)
! JVS(1777) = Jac_FULL(229,206)
  JVS(1777) = -B(294)-B(406)
! JVS(1778) = Jac_FULL(229,208)
  JVS(1778) = -B(334)
! JVS(1779) = Jac_FULL(229,209)
  JVS(1779) = -B(318)-B(414)
! JVS(1780) = Jac_FULL(229,210)
  JVS(1780) = -B(280)-B(394)
! JVS(1781) = Jac_FULL(229,211)
  JVS(1781) = -B(392)-B(440)
! JVS(1782) = Jac_FULL(229,212)
  JVS(1782) = -B(372)-B(434)
! JVS(1783) = Jac_FULL(229,213)
  JVS(1783) = -B(316)-B(412)
! JVS(1784) = Jac_FULL(229,214)
  JVS(1784) = -B(282)-B(396)
! JVS(1785) = Jac_FULL(229,215)
  JVS(1785) = -B(388)-B(390)-B(438)
! JVS(1786) = Jac_FULL(229,216)
  JVS(1786) = -B(284)-B(398)
! JVS(1787) = Jac_FULL(229,217)
  JVS(1787) = -B(336)
! JVS(1788) = Jac_FULL(229,218)
  JVS(1788) = -B(314)-B(410)
! JVS(1789) = Jac_FULL(229,219)
  JVS(1789) = -B(326)
! JVS(1790) = Jac_FULL(229,220)
  JVS(1790) = -B(338)
! JVS(1791) = Jac_FULL(229,221)
  JVS(1791) = -B(332)
! JVS(1792) = Jac_FULL(229,222)
  JVS(1792) = -B(370)
! JVS(1793) = Jac_FULL(229,223)
  JVS(1793) = -B(109)
! JVS(1794) = Jac_FULL(229,224)
  JVS(1794) = -B(292)-B(404)
! JVS(1795) = Jac_FULL(229,225)
  JVS(1795) = -B(322)-B(418)
! JVS(1796) = Jac_FULL(229,226)
  JVS(1796) = -B(288)-B(290)-B(402)
! JVS(1797) = Jac_FULL(229,227)
  JVS(1797) = 0
! JVS(1798) = Jac_FULL(229,228)
  JVS(1798) = -B(145)
! JVS(1799) = Jac_FULL(229,229)
  JVS(1799) = -B(102)-B(110)-2*B(113)-B(115)-B(139)-B(146)-B(281)-B(283)-B(285)-B(287)-B(289)-B(291)-B(293)-B(295)&
                &-B(297)-B(299)-B(301)-B(303)-B(305)-B(307)-B(309)-B(311)-B(313)-B(315)-B(317)-B(319)-B(321)-B(323)-B(325)&
                &-B(327)-B(329)-B(331)-B(333)-B(335)-B(337)-B(339)-B(341)-B(343)-B(345)-B(347)-B(349)-B(351)-B(353)-B(355)&
                &-B(357)-B(359)-B(361)-B(363)-B(365)-B(367)-B(369)-B(371)-B(373)-B(375)-B(377)-B(379)-B(381)-B(383)-B(385)&
                &-B(387)-B(389)-B(391)-B(393)-B(395)-B(397)-B(399)-B(401)-B(403)-B(405)-B(407)-B(409)-B(411)-B(413)-B(415)&
                &-B(417)-B(419)-B(421)-B(423)-B(425)-B(427)-B(429)-B(431)-B(433)-B(435)-B(437)-B(439)-B(441)-B(991)-B(1017)&
                &-B(1019)-B(1021)-B(1023)-B(1041)-B(1043)-B(1067)
! JVS(1800) = Jac_FULL(229,230)
  JVS(1800) = B(5)-B(116)+B(117)
! JVS(1801) = Jac_FULL(229,231)
  JVS(1801) = -B(140)
! JVS(1802) = Jac_FULL(229,232)
  JVS(1802) = B(4)+B(104)+B(118)+B(1072)+B(1074)+B(1079)
! JVS(1803) = Jac_FULL(229,233)
  JVS(1803) = 0
! JVS(1804) = Jac_FULL(230,32)
  JVS(1804) = B(121)
! JVS(1805) = Jac_FULL(230,47)
  JVS(1805) = -B(822)
! JVS(1806) = Jac_FULL(230,49)
  JVS(1806) = -B(832)
! JVS(1807) = Jac_FULL(230,109)
  JVS(1807) = -B(1064)
! JVS(1808) = Jac_FULL(230,110)
  JVS(1808) = -B(1089)
! JVS(1809) = Jac_FULL(230,120)
  JVS(1809) = -B(828)
! JVS(1810) = Jac_FULL(230,122)
  JVS(1810) = -B(838)
! JVS(1811) = Jac_FULL(230,136)
  JVS(1811) = -B(998)
! JVS(1812) = Jac_FULL(230,144)
  JVS(1812) = -B(522)
! JVS(1813) = Jac_FULL(230,145)
  JVS(1813) = -B(520)
! JVS(1814) = Jac_FULL(230,146)
  JVS(1814) = -B(528)
! JVS(1815) = Jac_FULL(230,148)
  JVS(1815) = -B(516)
! JVS(1816) = Jac_FULL(230,149)
  JVS(1816) = -B(458)
! JVS(1817) = Jac_FULL(230,150)
  JVS(1817) = -B(184)
! JVS(1818) = Jac_FULL(230,154)
  JVS(1818) = -B(182)
! JVS(1819) = Jac_FULL(230,156)
  JVS(1819) = -B(448)
! JVS(1820) = Jac_FULL(230,157)
  JVS(1820) = -B(1024)
! JVS(1821) = Jac_FULL(230,158)
  JVS(1821) = -B(534)
! JVS(1822) = Jac_FULL(230,159)
  JVS(1822) = -B(220)
! JVS(1823) = Jac_FULL(230,160)
  JVS(1823) = -B(770)
! JVS(1824) = Jac_FULL(230,161)
  JVS(1824) = -B(186)
! JVS(1825) = Jac_FULL(230,162)
  JVS(1825) = 0
! JVS(1826) = Jac_FULL(230,164)
  JVS(1826) = -B(462)
! JVS(1827) = Jac_FULL(230,165)
  JVS(1827) = -B(210)
! JVS(1828) = Jac_FULL(230,166)
  JVS(1828) = -B(768)
! JVS(1829) = Jac_FULL(230,167)
  JVS(1829) = -B(518)
! JVS(1830) = Jac_FULL(230,169)
  JVS(1830) = -B(548)
! JVS(1831) = Jac_FULL(230,173)
  JVS(1831) = B(105)
! JVS(1832) = Jac_FULL(230,174)
  JVS(1832) = -B(482)
! JVS(1833) = Jac_FULL(230,176)
  JVS(1833) = -B(1044)
! JVS(1834) = Jac_FULL(230,177)
  JVS(1834) = -B(202)
! JVS(1835) = Jac_FULL(230,178)
  JVS(1835) = -B(460)
! JVS(1836) = Jac_FULL(230,180)
  JVS(1836) = -B(502)-B(504)
! JVS(1837) = Jac_FULL(230,182)
  JVS(1837) = -B(464)-B(466)
! JVS(1838) = Jac_FULL(230,184)
  JVS(1838) = -B(540)
! JVS(1839) = Jac_FULL(230,185)
  JVS(1839) = -B(542)
! JVS(1840) = Jac_FULL(230,186)
  JVS(1840) = -B(524)
! JVS(1841) = Jac_FULL(230,188)
  JVS(1841) = -B(492)
! JVS(1842) = Jac_FULL(230,189)
  JVS(1842) = -B(468)
! JVS(1843) = Jac_FULL(230,191)
  JVS(1843) = -B(746)
! JVS(1844) = Jac_FULL(230,192)
  JVS(1844) = B(156)
! JVS(1845) = Jac_FULL(230,193)
  JVS(1845) = -B(526)
! JVS(1846) = Jac_FULL(230,194)
  JVS(1846) = -B(538)
! JVS(1847) = Jac_FULL(230,196)
  JVS(1847) = -B(470)
! JVS(1848) = Jac_FULL(230,197)
  JVS(1848) = -B(1026)
! JVS(1849) = Jac_FULL(230,198)
  JVS(1849) = -B(472)-B(474)
! JVS(1850) = Jac_FULL(230,199)
  JVS(1850) = -B(730)
! JVS(1851) = Jac_FULL(230,200)
  JVS(1851) = -B(510)-B(512)-B(514)
! JVS(1852) = Jac_FULL(230,201)
  JVS(1852) = -B(506)-B(508)
! JVS(1853) = Jac_FULL(230,202)
  JVS(1853) = -B(486)
! JVS(1854) = Jac_FULL(230,203)
  JVS(1854) = -B(722)
! JVS(1855) = Jac_FULL(230,204)
  JVS(1855) = -B(490)
! JVS(1856) = Jac_FULL(230,205)
  JVS(1856) = -B(536)
! JVS(1857) = Jac_FULL(230,206)
  JVS(1857) = -B(456)
! JVS(1858) = Jac_FULL(230,207)
  JVS(1858) = -B(252)
! JVS(1859) = Jac_FULL(230,208)
  JVS(1859) = -B(496)
! JVS(1860) = Jac_FULL(230,209)
  JVS(1860) = -B(480)
! JVS(1861) = Jac_FULL(230,210)
  JVS(1861) = -B(442)
! JVS(1862) = Jac_FULL(230,211)
  JVS(1862) = -B(546)
! JVS(1863) = Jac_FULL(230,212)
  JVS(1863) = -B(532)
! JVS(1864) = Jac_FULL(230,213)
  JVS(1864) = -B(478)
! JVS(1865) = Jac_FULL(230,214)
  JVS(1865) = -B(444)
! JVS(1866) = Jac_FULL(230,215)
  JVS(1866) = -B(544)
! JVS(1867) = Jac_FULL(230,216)
  JVS(1867) = -B(446)
! JVS(1868) = Jac_FULL(230,217)
  JVS(1868) = -B(498)
! JVS(1869) = Jac_FULL(230,218)
  JVS(1869) = -B(476)
! JVS(1870) = Jac_FULL(230,219)
  JVS(1870) = -B(488)
! JVS(1871) = Jac_FULL(230,220)
  JVS(1871) = -B(500)
! JVS(1872) = Jac_FULL(230,221)
  JVS(1872) = -B(494)
! JVS(1873) = Jac_FULL(230,222)
  JVS(1873) = -B(530)
! JVS(1874) = Jac_FULL(230,223)
  JVS(1874) = B(111)
! JVS(1875) = Jac_FULL(230,224)
  JVS(1875) = -B(454)
! JVS(1876) = Jac_FULL(230,225)
  JVS(1876) = -B(484)
! JVS(1877) = Jac_FULL(230,226)
  JVS(1877) = -B(450)-B(452)
! JVS(1878) = Jac_FULL(230,227)
  JVS(1878) = -B(256)
! JVS(1879) = Jac_FULL(230,228)
  JVS(1879) = -B(152)
! JVS(1880) = Jac_FULL(230,229)
  JVS(1880) = -B(115)
! JVS(1881) = Jac_FULL(230,230)
  JVS(1881) = -B(5)-B(6)-B(116)-B(117)-B(119)-B(143)-B(153)-B(183)-B(185)-B(187)-B(203)-B(211)-B(221)-B(253)-B(254)&
                &-B(257)-B(443)-B(445)-B(447)-B(449)-B(451)-B(453)-B(455)-B(457)-B(459)-B(461)-B(463)-B(465)-B(467)-B(469)&
                &-B(471)-B(473)-B(475)-B(477)-B(479)-B(481)-B(483)-B(485)-B(487)-B(489)-B(491)-B(493)-B(495)-B(497)-B(499)&
                &-B(501)-B(503)-B(505)-B(507)-B(509)-B(511)-B(513)-B(515)-B(517)-B(519)-B(521)-B(523)-B(525)-B(527)-B(529)&
                &-B(531)-B(533)-B(535)-B(537)-B(539)-B(541)-B(543)-B(545)-B(547)-B(549)-B(723)-B(731)-B(747)-B(769)-B(771)&
                &-B(823)-B(829)-B(833)-B(839)-B(999)-B(1025)-B(1027)-B(1045)-B(1065)-B(1090)
! JVS(1882) = Jac_FULL(230,231)
  JVS(1882) = -B(144)+B(157)
! JVS(1883) = Jac_FULL(230,232)
  JVS(1883) = B(106)+B(112)-B(118)-B(120)
! JVS(1884) = Jac_FULL(230,233)
  JVS(1884) = -B(255)
! JVS(1885) = Jac_FULL(231,8)
  JVS(1885) = 2*B(122)
! JVS(1886) = Jac_FULL(231,9)
  JVS(1886) = -B(168)
! JVS(1887) = Jac_FULL(231,11)
  JVS(1887) = -B(174)
! JVS(1888) = Jac_FULL(231,12)
  JVS(1888) = -B(964)
! JVS(1889) = Jac_FULL(231,13)
  JVS(1889) = -B(966)
! JVS(1890) = Jac_FULL(231,14)
  JVS(1890) = -B(968)
! JVS(1891) = Jac_FULL(231,15)
  JVS(1891) = -B(970)
! JVS(1892) = Jac_FULL(231,16)
  JVS(1892) = -B(976)
! JVS(1893) = Jac_FULL(231,17)
  JVS(1893) = -B(978)
! JVS(1894) = Jac_FULL(231,18)
  JVS(1894) = -B(974)
! JVS(1895) = Jac_FULL(231,19)
  JVS(1895) = -B(972)
! JVS(1896) = Jac_FULL(231,20)
  JVS(1896) = -B(166)
! JVS(1897) = Jac_FULL(231,21)
  JVS(1897) = -B(1008)
! JVS(1898) = Jac_FULL(231,22)
  JVS(1898) = -B(1010)
! JVS(1899) = Jac_FULL(231,23)
  JVS(1899) = -B(1012)
! JVS(1900) = Jac_FULL(231,24)
  JVS(1900) = -B(1014)
! JVS(1901) = Jac_FULL(231,25)
  JVS(1901) = -B(1038)
! JVS(1902) = Jac_FULL(231,26)
  JVS(1902) = -B(170)-B(172)
! JVS(1903) = Jac_FULL(231,27)
  JVS(1903) = -B(242)-B(244)
! JVS(1904) = Jac_FULL(231,28)
  JVS(1904) = -B(1000)-B(1002)
! JVS(1905) = Jac_FULL(231,29)
  JVS(1905) = -B(1004)-B(1006)
! JVS(1906) = Jac_FULL(231,30)
  JVS(1906) = -B(234)-B(236)
! JVS(1907) = Jac_FULL(231,31)
  JVS(1907) = -B(238)-B(240)
! JVS(1908) = Jac_FULL(231,33)
  JVS(1908) = -B(260)
! JVS(1909) = Jac_FULL(231,34)
  JVS(1909) = -B(764)
! JVS(1910) = Jac_FULL(231,36)
  JVS(1910) = -B(230)
! JVS(1911) = Jac_FULL(231,37)
  JVS(1911) = -B(262)
! JVS(1912) = Jac_FULL(231,38)
  JVS(1912) = -B(740)
! JVS(1913) = Jac_FULL(231,39)
  JVS(1913) = -B(742)
! JVS(1914) = Jac_FULL(231,40)
  JVS(1914) = -B(772)
! JVS(1915) = Jac_FULL(231,41)
  JVS(1915) = B(7)-B(154)
! JVS(1916) = Jac_FULL(231,42)
  JVS(1916) = -B(1085)
! JVS(1917) = Jac_FULL(231,43)
  JVS(1917) = -B(264)-B(266)
! JVS(1918) = Jac_FULL(231,44)
  JVS(1918) = -B(272)-B(274)
! JVS(1919) = Jac_FULL(231,45)
  JVS(1919) = -B(738)
! JVS(1920) = Jac_FULL(231,46)
  JVS(1920) = -B(276)
! JVS(1921) = Jac_FULL(231,47)
  JVS(1921) = -B(820)
! JVS(1922) = Jac_FULL(231,49)
  JVS(1922) = -B(830)
! JVS(1923) = Jac_FULL(231,51)
  JVS(1923) = -B(268)-B(270)
! JVS(1924) = Jac_FULL(231,52)
  JVS(1924) = -B(278)
! JVS(1925) = Jac_FULL(231,54)
  JVS(1925) = -B(794)
! JVS(1926) = Jac_FULL(231,55)
  JVS(1926) = -B(796)
! JVS(1927) = Jac_FULL(231,56)
  JVS(1927) = B(51)
! JVS(1928) = Jac_FULL(231,57)
  JVS(1928) = B(56)
! JVS(1929) = Jac_FULL(231,58)
  JVS(1929) = B(60)
! JVS(1930) = Jac_FULL(231,59)
  JVS(1930) = B(61)
! JVS(1931) = Jac_FULL(231,60)
  JVS(1931) = B(75)
! JVS(1932) = Jac_FULL(231,61)
  JVS(1932) = B(77)
! JVS(1933) = Jac_FULL(231,62)
  JVS(1933) = B(58)-B(858)
! JVS(1934) = Jac_FULL(231,63)
  JVS(1934) = -B(150)
! JVS(1935) = Jac_FULL(231,64)
  JVS(1935) = -B(802)
! JVS(1936) = Jac_FULL(231,65)
  JVS(1936) = B(68)
! JVS(1937) = Jac_FULL(231,66)
  JVS(1937) = -B(792)
! JVS(1938) = Jac_FULL(231,67)
  JVS(1938) = -B(810)
! JVS(1939) = Jac_FULL(231,68)
  JVS(1939) = B(81)
! JVS(1940) = Jac_FULL(231,69)
  JVS(1940) = B(83)-B(904)
! JVS(1941) = Jac_FULL(231,70)
  JVS(1941) = B(82)
! JVS(1942) = Jac_FULL(231,71)
  JVS(1942) = B(84)-B(908)
! JVS(1943) = Jac_FULL(231,72)
  JVS(1943) = B(85)-B(910)
! JVS(1944) = Jac_FULL(231,73)
  JVS(1944) = B(50)
! JVS(1945) = Jac_FULL(231,74)
  JVS(1945) = B(52)
! JVS(1946) = Jac_FULL(231,75)
  JVS(1946) = B(90)
! JVS(1947) = Jac_FULL(231,76)
  JVS(1947) = B(57)-B(856)
! JVS(1948) = Jac_FULL(231,77)
  JVS(1948) = -B(956)
! JVS(1949) = Jac_FULL(231,78)
  JVS(1949) = -B(994)
! JVS(1950) = Jac_FULL(231,79)
  JVS(1950) = -B(788)
! JVS(1951) = Jac_FULL(231,80)
  JVS(1951) = B(55)
! JVS(1952) = Jac_FULL(231,81)
  JVS(1952) = B(63)
! JVS(1953) = Jac_FULL(231,82)
  JVS(1953) = B(72)
! JVS(1954) = Jac_FULL(231,83)
  JVS(1954) = B(76)
! JVS(1955) = Jac_FULL(231,84)
  JVS(1955) = -B(784)
! JVS(1956) = Jac_FULL(231,85)
  JVS(1956) = B(59)-B(860)
! JVS(1957) = Jac_FULL(231,86)
  JVS(1957) = B(67)-B(874)
! JVS(1958) = Jac_FULL(231,87)
  JVS(1958) = -B(949)
! JVS(1959) = Jac_FULL(231,88)
  JVS(1959) = B(69)
! JVS(1960) = Jac_FULL(231,89)
  JVS(1960) = B(78)
! JVS(1961) = Jac_FULL(231,90)
  JVS(1961) = -B(778)
! JVS(1962) = Jac_FULL(231,91)
  JVS(1962) = -B(780)
! JVS(1963) = Jac_FULL(231,92)
  JVS(1963) = B(79)
! JVS(1964) = Jac_FULL(231,93)
  JVS(1964) = B(49)-B(840)
! JVS(1965) = Jac_FULL(231,94)
  JVS(1965) = -B(782)
! JVS(1966) = Jac_FULL(231,95)
  JVS(1966) = B(86)-B(912)
! JVS(1967) = Jac_FULL(231,96)
  JVS(1967) = B(88)-B(916)
! JVS(1968) = Jac_FULL(231,97)
  JVS(1968) = -B(812)
! JVS(1969) = Jac_FULL(231,98)
  JVS(1969) = -B(790)
! JVS(1970) = Jac_FULL(231,99)
  JVS(1970) = -B(814)
! JVS(1971) = Jac_FULL(231,100)
  JVS(1971) = -B(816)
! JVS(1972) = Jac_FULL(231,101)
  JVS(1972) = B(70)
! JVS(1973) = Jac_FULL(231,102)
  JVS(1973) = -B(818)
! JVS(1974) = Jac_FULL(231,103)
  JVS(1974) = B(91)
! JVS(1975) = Jac_FULL(231,104)
  JVS(1975) = -B(798)
! JVS(1976) = Jac_FULL(231,105)
  JVS(1976) = -B(800)
! JVS(1977) = Jac_FULL(231,106)
  JVS(1977) = B(987)
! JVS(1978) = Jac_FULL(231,107)
  JVS(1978) = 2*B(3)-B(130)
! JVS(1979) = Jac_FULL(231,108)
  JVS(1979) = -B(776)
! JVS(1980) = Jac_FULL(231,109)
  JVS(1980) = -B(1060)-B(1062)
! JVS(1981) = Jac_FULL(231,110)
  JVS(1981) = -B(1087)
! JVS(1982) = Jac_FULL(231,112)
  JVS(1982) = -B(937)
! JVS(1983) = Jac_FULL(231,113)
  JVS(1983) = -B(939)
! JVS(1984) = Jac_FULL(231,114)
  JVS(1984) = B(64)+B(65)
! JVS(1985) = Jac_FULL(231,115)
  JVS(1985) = B(66)-B(872)
! JVS(1986) = Jac_FULL(231,116)
  JVS(1986) = B(62)
! JVS(1987) = Jac_FULL(231,117)
  JVS(1987) = -B(947)
! JVS(1988) = Jac_FULL(231,118)
  JVS(1988) = B(71)
! JVS(1989) = Jac_FULL(231,119)
  JVS(1989) = -B(804)
! JVS(1990) = Jac_FULL(231,120)
  JVS(1990) = -B(826)
! JVS(1991) = Jac_FULL(231,121)
  JVS(1991) = -B(806)
! JVS(1992) = Jac_FULL(231,122)
  JVS(1992) = -B(836)
! JVS(1993) = Jac_FULL(231,123)
  JVS(1993) = -B(954)
! JVS(1994) = Jac_FULL(231,124)
  JVS(1994) = B(87)-B(914)
! JVS(1995) = Jac_FULL(231,125)
  JVS(1995) = B(89)-B(918)
! JVS(1996) = Jac_FULL(231,126)
  JVS(1996) = B(92)-B(924)
! JVS(1997) = Jac_FULL(231,127)
  JVS(1997) = -B(160)
! JVS(1998) = Jac_FULL(231,128)
  JVS(1998) = -B(1049)
! JVS(1999) = Jac_FULL(231,129)
  JVS(1999) = -B(935)
! JVS(2000) = Jac_FULL(231,130)
  JVS(2000) = B(74)
! JVS(2001) = Jac_FULL(231,131)
  JVS(2001) = B(80)
! JVS(2002) = Jac_FULL(231,132)
  JVS(2002) = -B(708)
! JVS(2003) = Jac_FULL(231,133)
  JVS(2003) = -B(774)
! JVS(2004) = Jac_FULL(231,134)
  JVS(2004) = B(985)
! JVS(2005) = Jac_FULL(231,135)
  JVS(2005) = -B(786)
! JVS(2006) = Jac_FULL(231,136)
  JVS(2006) = -B(996)
! JVS(2007) = Jac_FULL(231,137)
  JVS(2007) = B(73)
! JVS(2008) = Jac_FULL(231,138)
  JVS(2008) = -B(706)
! JVS(2009) = Jac_FULL(231,139)
  JVS(2009) = -B(808)
! JVS(2010) = Jac_FULL(231,140)
  JVS(2010) = -B(714)
! JVS(2011) = Jac_FULL(231,141)
  JVS(2011) = -B(710)
! JVS(2012) = Jac_FULL(231,142)
  JVS(2012) = -B(1034)
! JVS(2013) = Jac_FULL(231,144)
  JVS(2013) = 0
! JVS(2014) = Jac_FULL(231,145)
  JVS(2014) = 0
! JVS(2015) = Jac_FULL(231,146)
  JVS(2015) = 0
! JVS(2016) = Jac_FULL(231,147)
  JVS(2016) = -B(736)
! JVS(2017) = Jac_FULL(231,148)
  JVS(2017) = 0
! JVS(2018) = Jac_FULL(231,150)
  JVS(2018) = -B(178)+B(192)
! JVS(2019) = Jac_FULL(231,151)
  JVS(2019) = -B(732)
! JVS(2020) = Jac_FULL(231,152)
  JVS(2020) = -B(752)
! JVS(2021) = Jac_FULL(231,153)
  JVS(2021) = -B(1053)-B(1055)
! JVS(2022) = Jac_FULL(231,154)
  JVS(2022) = -B(176)+B(188)
! JVS(2023) = Jac_FULL(231,155)
  JVS(2023) = -B(756)-B(958)
! JVS(2024) = Jac_FULL(231,156)
  JVS(2024) = 0
! JVS(2025) = Jac_FULL(231,157)
  JVS(2025) = 0
! JVS(2026) = Jac_FULL(231,158)
  JVS(2026) = 0
! JVS(2027) = Jac_FULL(231,159)
  JVS(2027) = -B(218)+B(222)
! JVS(2028) = Jac_FULL(231,160)
  JVS(2028) = -B(766)
! JVS(2029) = Jac_FULL(231,161)
  JVS(2029) = -B(180)+B(196)
! JVS(2030) = Jac_FULL(231,162)
  JVS(2030) = -B(992)
! JVS(2031) = Jac_FULL(231,163)
  JVS(2031) = -B(754)
! JVS(2032) = Jac_FULL(231,164)
  JVS(2032) = 0
! JVS(2033) = Jac_FULL(231,165)
  JVS(2033) = -B(208)+B(212)
! JVS(2034) = Jac_FULL(231,166)
  JVS(2034) = -B(762)
! JVS(2035) = Jac_FULL(231,167)
  JVS(2035) = 0
! JVS(2036) = Jac_FULL(231,168)
  JVS(2036) = -B(716)
! JVS(2037) = Jac_FULL(231,169)
  JVS(2037) = 0
! JVS(2038) = Jac_FULL(231,170)
  JVS(2038) = -B(760)-B(962)
! JVS(2039) = Jac_FULL(231,171)
  JVS(2039) = 0
! JVS(2040) = Jac_FULL(231,172)
  JVS(2040) = 0
! JVS(2041) = Jac_FULL(231,173)
  JVS(2041) = 0
! JVS(2042) = Jac_FULL(231,174)
  JVS(2042) = 0
! JVS(2043) = Jac_FULL(231,175)
  JVS(2043) = B(53)+B(54)
! JVS(2044) = Jac_FULL(231,176)
  JVS(2044) = 0
! JVS(2045) = Jac_FULL(231,177)
  JVS(2045) = -B(200)+B(204)
! JVS(2046) = Jac_FULL(231,178)
  JVS(2046) = 0
! JVS(2047) = Jac_FULL(231,179)
  JVS(2047) = -B(712)
! JVS(2048) = Jac_FULL(231,180)
  JVS(2048) = 0
! JVS(2049) = Jac_FULL(231,181)
  JVS(2049) = -B(718)
! JVS(2050) = Jac_FULL(231,182)
  JVS(2050) = 0
! JVS(2051) = Jac_FULL(231,183)
  JVS(2051) = -B(758)-B(960)
! JVS(2052) = Jac_FULL(231,184)
  JVS(2052) = 0
! JVS(2053) = Jac_FULL(231,185)
  JVS(2053) = 0
! JVS(2054) = Jac_FULL(231,186)
  JVS(2054) = 0
! JVS(2055) = Jac_FULL(231,187)
  JVS(2055) = -B(128)
! JVS(2056) = Jac_FULL(231,188)
  JVS(2056) = 0
! JVS(2057) = Jac_FULL(231,189)
  JVS(2057) = 0
! JVS(2058) = Jac_FULL(231,190)
  JVS(2058) = -B(734)
! JVS(2059) = Jac_FULL(231,191)
  JVS(2059) = -B(744)+B(748)
! JVS(2060) = Jac_FULL(231,192)
  JVS(2060) = B(8)-B(156)
! JVS(2061) = Jac_FULL(231,193)
  JVS(2061) = 0
! JVS(2062) = Jac_FULL(231,194)
  JVS(2062) = 0
! JVS(2063) = Jac_FULL(231,195)
  JVS(2063) = -B(258)
! JVS(2064) = Jac_FULL(231,196)
  JVS(2064) = 0
! JVS(2065) = Jac_FULL(231,197)
  JVS(2065) = 0
! JVS(2066) = Jac_FULL(231,198)
  JVS(2066) = 0
! JVS(2067) = Jac_FULL(231,199)
  JVS(2067) = -B(728)
! JVS(2068) = Jac_FULL(231,200)
  JVS(2068) = 0
! JVS(2069) = Jac_FULL(231,201)
  JVS(2069) = 0
! JVS(2070) = Jac_FULL(231,202)
  JVS(2070) = 0
! JVS(2071) = Jac_FULL(231,203)
  JVS(2071) = -B(720)+B(724)
! JVS(2072) = Jac_FULL(231,204)
  JVS(2072) = 0
! JVS(2073) = Jac_FULL(231,205)
  JVS(2073) = 0
! JVS(2074) = Jac_FULL(231,206)
  JVS(2074) = 0
! JVS(2075) = Jac_FULL(231,207)
  JVS(2075) = -B(246)
! JVS(2076) = Jac_FULL(231,208)
  JVS(2076) = 0
! JVS(2077) = Jac_FULL(231,209)
  JVS(2077) = 0
! JVS(2078) = Jac_FULL(231,210)
  JVS(2078) = 0
! JVS(2079) = Jac_FULL(231,211)
  JVS(2079) = 0
! JVS(2080) = Jac_FULL(231,212)
  JVS(2080) = 0
! JVS(2081) = Jac_FULL(231,213)
  JVS(2081) = 0
! JVS(2082) = Jac_FULL(231,214)
  JVS(2082) = 0
! JVS(2083) = Jac_FULL(231,215)
  JVS(2083) = 0
! JVS(2084) = Jac_FULL(231,216)
  JVS(2084) = 0
! JVS(2085) = Jac_FULL(231,217)
  JVS(2085) = 0
! JVS(2086) = Jac_FULL(231,218)
  JVS(2086) = 0
! JVS(2087) = Jac_FULL(231,219)
  JVS(2087) = 0
! JVS(2088) = Jac_FULL(231,220)
  JVS(2088) = 0
! JVS(2089) = Jac_FULL(231,221)
  JVS(2089) = 0
! JVS(2090) = Jac_FULL(231,222)
  JVS(2090) = 0
! JVS(2091) = Jac_FULL(231,223)
  JVS(2091) = -B(124)+B(132)+B(189)+B(193)+B(197)+B(205)+B(213)+B(223)+B(725)+B(749)
! JVS(2092) = Jac_FULL(231,224)
  JVS(2092) = 0
! JVS(2093) = Jac_FULL(231,225)
  JVS(2093) = 0
! JVS(2094) = Jac_FULL(231,226)
  JVS(2094) = 0
! JVS(2095) = Jac_FULL(231,227)
  JVS(2095) = -B(250)
! JVS(2096) = Jac_FULL(231,228)
  JVS(2096) = B(133)-B(134)+B(145)+B(152)
! JVS(2097) = Jac_FULL(231,229)
  JVS(2097) = -B(139)+B(146)
! JVS(2098) = Jac_FULL(231,230)
  JVS(2098) = -B(143)+B(153)
! JVS(2099) = Jac_FULL(231,231)
  JVS(2099) = -B(125)-B(126)-B(129)-B(131)-B(135)-B(140)-B(141)-B(144)-B(151)-B(155)-B(157)-B(161)-B(167)-B(169)-B(171)&
                &-B(173)-B(175)-B(177)-B(179)-B(181)-B(201)-B(209)-B(219)-B(231)-B(235)-B(237)-B(239)-B(241)-B(243)-B(245)&
                &-B(247)-B(248)-B(251)-B(259)-B(261)-B(263)-B(265)-B(267)-B(269)-B(271)-B(273)-B(275)-B(277)-B(279)-B(707)&
                &-B(709)-B(711)-B(713)-B(715)-B(717)-B(719)-B(721)-B(729)-B(733)-B(735)-B(737)-B(739)-B(741)-B(743)-B(745)&
                &-B(753)-B(755)-B(757)-B(759)-B(761)-B(763)-B(765)-B(767)-B(773)-B(775)-B(777)-B(779)-B(781)-B(783)-B(785)&
                &-B(787)-B(789)-B(791)-B(793)-B(795)-B(797)-B(799)-B(801)-B(803)-B(805)-B(807)-B(809)-B(811)-B(813)-B(815)&
                &-B(817)-B(819)-B(821)-B(827)-B(831)-B(837)-B(841)-B(857)-B(859)-B(861)-B(873)-B(875)-B(905)-B(909)-B(911)&
                &-B(913)-B(915)-B(917)-B(919)-B(925)-B(936)-B(938)-B(940)-B(948)-B(950)-B(955)-B(957)-B(959)-B(961)-B(963)&
                &-B(965)-B(967)-B(969)-B(971)-B(973)-B(975)-B(977)-B(979)-B(993)-B(995)-B(997)-B(1001)-B(1003)-B(1005)&
                &-B(1007)-B(1009)-B(1011)-B(1013)-B(1015)-B(1035)-B(1039)-B(1050)-B(1054)-B(1056)-B(1061)-B(1063)-B(1086)&
                &-B(1088)
! JVS(2100) = Jac_FULL(231,232)
  JVS(2100) = -B(142)
! JVS(2101) = Jac_FULL(231,233)
  JVS(2101) = -B(249)
! JVS(2102) = Jac_FULL(232,32)
  JVS(2102) = B(121)
! JVS(2103) = Jac_FULL(232,35)
  JVS(2103) = B(98)
! JVS(2104) = Jac_FULL(232,41)
  JVS(2104) = B(154)
! JVS(2105) = Jac_FULL(232,48)
  JVS(2105) = -B(824)
! JVS(2106) = Jac_FULL(232,50)
  JVS(2106) = -B(834)
! JVS(2107) = Jac_FULL(232,54)
  JVS(2107) = B(794)
! JVS(2108) = Jac_FULL(232,55)
  JVS(2108) = B(796)
! JVS(2109) = Jac_FULL(232,60)
  JVS(2109) = B(75)+B(890)
! JVS(2110) = Jac_FULL(232,61)
  JVS(2110) = B(77)+B(894)
! JVS(2111) = Jac_FULL(232,63)
  JVS(2111) = B(149)+B(150)
! JVS(2112) = Jac_FULL(232,64)
  JVS(2112) = B(802)
! JVS(2113) = Jac_FULL(232,66)
  JVS(2113) = B(792)
! JVS(2114) = Jac_FULL(232,67)
  JVS(2114) = B(810)
! JVS(2115) = Jac_FULL(232,70)
  JVS(2115) = B(82)+B(906)
! JVS(2116) = Jac_FULL(232,79)
  JVS(2116) = B(43)+B(788)
! JVS(2117) = Jac_FULL(232,83)
  JVS(2117) = B(76)+B(892)
! JVS(2118) = Jac_FULL(232,84)
  JVS(2118) = B(40)+B(784)
! JVS(2119) = Jac_FULL(232,87)
  JVS(2119) = B(943)+B(949)
! JVS(2120) = Jac_FULL(232,90)
  JVS(2120) = B(37)+B(778)
! JVS(2121) = Jac_FULL(232,91)
  JVS(2121) = B(38)+B(780)
! JVS(2122) = Jac_FULL(232,94)
  JVS(2122) = B(39)+B(782)
! JVS(2123) = Jac_FULL(232,97)
  JVS(2123) = B(812)
! JVS(2124) = Jac_FULL(232,98)
  JVS(2124) = B(44)+B(790)
! JVS(2125) = Jac_FULL(232,99)
  JVS(2125) = B(814)
! JVS(2126) = Jac_FULL(232,100)
  JVS(2126) = B(48)+B(816)
! JVS(2127) = Jac_FULL(232,102)
  JVS(2127) = B(818)
! JVS(2128) = Jac_FULL(232,104)
  JVS(2128) = B(798)
! JVS(2129) = Jac_FULL(232,105)
  JVS(2129) = B(800)
! JVS(2130) = Jac_FULL(232,111)
  JVS(2130) = B(1066)
! JVS(2131) = Jac_FULL(232,112)
  JVS(2131) = B(931)+B(937)
! JVS(2132) = Jac_FULL(232,113)
  JVS(2132) = B(934)+B(939)
! JVS(2133) = Jac_FULL(232,117)
  JVS(2133) = B(946)+B(947)
! JVS(2134) = Jac_FULL(232,119)
  JVS(2134) = B(45)+B(804)
! JVS(2135) = Jac_FULL(232,120)
  JVS(2135) = B(826)+B(828)
! JVS(2136) = Jac_FULL(232,121)
  JVS(2136) = B(46)+B(806)
! JVS(2137) = Jac_FULL(232,122)
  JVS(2137) = B(836)+B(838)
! JVS(2138) = Jac_FULL(232,123)
  JVS(2138) = B(953)+B(954)
! JVS(2139) = Jac_FULL(232,126)
  JVS(2139) = B(92)
! JVS(2140) = Jac_FULL(232,128)
  JVS(2140) = B(986)+B(1049)
! JVS(2141) = Jac_FULL(232,129)
  JVS(2141) = B(928)+B(935)
! JVS(2142) = Jac_FULL(232,135)
  JVS(2142) = B(41)+B(42)+B(786)
! JVS(2143) = Jac_FULL(232,139)
  JVS(2143) = B(47)+B(808)
! JVS(2144) = Jac_FULL(232,142)
  JVS(2144) = B(984)+B(1034)
! JVS(2145) = Jac_FULL(232,143)
  JVS(2145) = -B(1071)
! JVS(2146) = Jac_FULL(232,144)
  JVS(2146) = B(360)+B(522)
! JVS(2147) = Jac_FULL(232,145)
  JVS(2147) = 2*B(358)+2*B(520)+B(691)
! JVS(2148) = Jac_FULL(232,146)
  JVS(2148) = 2*B(368)+2*B(528)+B(695)
! JVS(2149) = Jac_FULL(232,148)
  JVS(2149) = 2*B(354)+2*B(516)+B(689)
! JVS(2150) = Jac_FULL(232,149)
  JVS(2150) = B(296)+B(458)
! JVS(2151) = Jac_FULL(232,154)
  JVS(2151) = 0
! JVS(2152) = Jac_FULL(232,156)
  JVS(2152) = B(286)+B(448)
! JVS(2153) = Jac_FULL(232,157)
  JVS(2153) = B(1016)+B(1024)
! JVS(2154) = Jac_FULL(232,158)
  JVS(2154) = B(374)+B(534)
! JVS(2155) = Jac_FULL(232,161)
  JVS(2155) = 0
! JVS(2156) = Jac_FULL(232,162)
  JVS(2156) = B(992)
! JVS(2157) = Jac_FULL(232,163)
  JVS(2157) = B(31)+B(754)
! JVS(2158) = Jac_FULL(232,164)
  JVS(2158) = B(300)+B(462)
! JVS(2159) = Jac_FULL(232,165)
  JVS(2159) = 0
! JVS(2160) = Jac_FULL(232,167)
  JVS(2160) = 2*B(356)+2*B(518)+B(690)
! JVS(2161) = Jac_FULL(232,169)
  JVS(2161) = 2*B(386)+2*B(548)+B(705)
! JVS(2162) = Jac_FULL(232,171)
  JVS(2162) = -B(1078)
! JVS(2163) = Jac_FULL(232,172)
  JVS(2163) = -B(1073)
! JVS(2164) = Jac_FULL(232,173)
  JVS(2164) = B(101)-B(103)-B(105)
! JVS(2165) = Jac_FULL(232,174)
  JVS(2165) = B(320)+B(482)
! JVS(2166) = Jac_FULL(232,176)
  JVS(2166) = B(1040)+B(1044)
! JVS(2167) = Jac_FULL(232,177)
  JVS(2167) = 0
! JVS(2168) = Jac_FULL(232,178)
  JVS(2168) = B(298)+B(460)
! JVS(2169) = Jac_FULL(232,180)
  JVS(2169) = B(340)+B(342)+B(502)+B(504)
! JVS(2170) = Jac_FULL(232,182)
  JVS(2170) = B(302)+B(304)+B(464)+B(466)
! JVS(2171) = Jac_FULL(232,184)
  JVS(2171) = B(380)+B(540)
! JVS(2172) = Jac_FULL(232,185)
  JVS(2172) = B(382)+B(384)+B(542)
! JVS(2173) = Jac_FULL(232,186)
  JVS(2173) = B(362)+B(524)
! JVS(2174) = Jac_FULL(232,188)
  JVS(2174) = B(330)+B(492)-B(932)
! JVS(2175) = Jac_FULL(232,189)
  JVS(2175) = B(306)+B(468)
! JVS(2176) = Jac_FULL(232,192)
  JVS(2176) = B(8)
! JVS(2177) = Jac_FULL(232,193)
  JVS(2177) = B(364)+B(366)+B(526)
! JVS(2178) = Jac_FULL(232,194)
  JVS(2178) = B(378)+B(538)
! JVS(2179) = Jac_FULL(232,196)
  JVS(2179) = B(308)+B(470)
! JVS(2180) = Jac_FULL(232,197)
  JVS(2180) = B(1018)+B(1026)
! JVS(2181) = Jac_FULL(232,198)
  JVS(2181) = B(310)+B(312)+B(472)+B(474)
! JVS(2182) = Jac_FULL(232,199)
  JVS(2182) = 0
! JVS(2183) = Jac_FULL(232,200)
  JVS(2183) = B(348)+B(350)+B(352)+B(510)+B(512)+B(514)-B(944)
! JVS(2184) = Jac_FULL(232,201)
  JVS(2184) = B(344)+B(346)+B(506)+B(508)-B(941)
! JVS(2185) = Jac_FULL(232,202)
  JVS(2185) = B(324)+B(486)
! JVS(2186) = Jac_FULL(232,203)
  JVS(2186) = 0
! JVS(2187) = Jac_FULL(232,204)
  JVS(2187) = B(328)+B(490)-B(929)
! JVS(2188) = Jac_FULL(232,205)
  JVS(2188) = B(376)+B(536)
! JVS(2189) = Jac_FULL(232,206)
  JVS(2189) = B(294)+B(456)
! JVS(2190) = Jac_FULL(232,207)
  JVS(2190) = 0
! JVS(2191) = Jac_FULL(232,208)
  JVS(2191) = B(334)+B(496)
! JVS(2192) = Jac_FULL(232,209)
  JVS(2192) = B(318)+B(480)
! JVS(2193) = Jac_FULL(232,210)
  JVS(2193) = B(280)+B(442)-B(980)
! JVS(2194) = Jac_FULL(232,211)
  JVS(2194) = B(392)+B(546)
! JVS(2195) = Jac_FULL(232,212)
  JVS(2195) = B(372)+B(532)
! JVS(2196) = Jac_FULL(232,213)
  JVS(2196) = B(316)+B(478)
! JVS(2197) = Jac_FULL(232,214)
  JVS(2197) = B(282)+B(444)
! JVS(2198) = Jac_FULL(232,215)
  JVS(2198) = B(388)+B(390)+B(544)
! JVS(2199) = Jac_FULL(232,216)
  JVS(2199) = B(284)+B(446)
! JVS(2200) = Jac_FULL(232,217)
  JVS(2200) = B(336)+B(498)
! JVS(2201) = Jac_FULL(232,218)
  JVS(2201) = B(314)+B(476)
! JVS(2202) = Jac_FULL(232,219)
  JVS(2202) = B(326)+B(488)-B(926)
! JVS(2203) = Jac_FULL(232,220)
  JVS(2203) = B(338)+B(500)
! JVS(2204) = Jac_FULL(232,221)
  JVS(2204) = B(332)+B(494)
! JVS(2205) = Jac_FULL(232,222)
  JVS(2205) = B(370)+B(530)-B(951)
! JVS(2206) = Jac_FULL(232,223)
  JVS(2206) = B(109)-B(111)
! JVS(2207) = Jac_FULL(232,224)
  JVS(2207) = B(292)+B(454)
! JVS(2208) = Jac_FULL(232,225)
  JVS(2208) = B(322)+B(484)
! JVS(2209) = Jac_FULL(232,226)
  JVS(2209) = B(288)+B(290)+B(450)+B(452)
! JVS(2210) = Jac_FULL(232,227)
  JVS(2210) = 0
! JVS(2211) = Jac_FULL(232,228)
  JVS(2211) = B(145)-B(147)+B(152)
! JVS(2212) = Jac_FULL(232,229)
  JVS(2212) = B(102)+B(110)+2*B(113)+2*B(115)+B(146)+B(281)+B(283)+B(285)+B(287)+B(289)+B(291)+B(293)+B(295)+B(297)&
                &+B(299)+B(301)+B(303)+B(305)+B(307)+B(309)+B(311)+B(313)+B(315)+B(317)+B(319)+B(321)+B(323)+B(325)+B(327)&
                &+B(329)+B(331)+B(333)+B(335)+B(337)+B(339)+B(341)+B(343)+B(345)+B(347)+B(349)+B(351)+B(353)+2*B(355)+2&
                &*B(357)+2*B(359)+B(361)+B(363)+B(365)+B(367)+2*B(369)+B(371)+B(373)+B(375)+B(377)+B(379)+B(381)+B(383)&
                &+B(385)+2*B(387)+B(389)+B(391)+B(393)+B(1017)+B(1019)+B(1041)+B(1067)
! JVS(2213) = Jac_FULL(232,230)
  JVS(2213) = B(6)+2*B(116)-B(119)+B(143)+B(153)+B(443)+B(445)+B(447)+B(449)+B(451)+B(453)+B(455)+B(457)+B(459)+B(461)&
                &+B(463)+B(465)+B(467)+B(469)+B(471)+B(473)+B(475)+B(477)+B(479)+B(481)+B(483)+B(485)+B(487)+B(489)+B(491)&
                &+B(493)+B(495)+B(497)+B(499)+B(501)+B(503)+B(505)+B(507)+B(509)+B(511)+B(513)+B(515)+2*B(517)+2*B(519)+2&
                &*B(521)+B(523)+B(525)+B(527)+2*B(529)+B(531)+B(533)+B(535)+B(537)+B(539)+B(541)+B(543)+B(545)+B(547)+2&
                &*B(549)+B(829)+B(839)+B(1025)+B(1027)+B(1045)
! JVS(2214) = Jac_FULL(232,231)
  JVS(2214) = -B(141)+B(144)+B(151)+B(155)+B(755)+B(779)+B(781)+B(783)+B(785)+B(787)+B(789)+B(791)+B(793)+B(795)+B(797)&
                &+B(799)+B(801)+B(803)+B(805)+B(807)+B(809)+B(811)+B(813)+B(815)+B(817)+B(819)+B(827)+B(837)+B(891)+B(893)&
                &+B(895)+B(907)+B(936)+B(938)+B(940)+B(948)+B(950)+B(955)+B(993)+B(1035)+B(1050)
! JVS(2215) = Jac_FULL(232,232)
  JVS(2215) = -B(4)-B(104)-B(106)-B(112)-B(120)-B(142)-B(148)-B(825)-B(835)-B(927)-B(930)-B(933)-B(942)-B(945)-B(952)&
                &-B(981)-B(1072)-B(1074)-B(1079)
! JVS(2216) = Jac_FULL(232,233)
  JVS(2216) = 0
! JVS(2217) = Jac_FULL(233,43)
  JVS(2217) = B(264)
! JVS(2218) = Jac_FULL(233,61)
  JVS(2218) = 2*B(77)+2*B(894)
! JVS(2219) = Jac_FULL(233,73)
  JVS(2219) = B(50)+B(844)
! JVS(2220) = Jac_FULL(233,82)
  JVS(2220) = 2*B(72)
! JVS(2221) = Jac_FULL(233,83)
  JVS(2221) = B(76)+B(892)
! JVS(2222) = Jac_FULL(233,91)
  JVS(2222) = B(38)+B(780)
! JVS(2223) = Jac_FULL(233,112)
  JVS(2223) = B(937)
! JVS(2224) = Jac_FULL(233,118)
  JVS(2224) = B(71)
! JVS(2225) = Jac_FULL(233,135)
  JVS(2225) = B(41)
! JVS(2226) = Jac_FULL(233,137)
  JVS(2226) = B(73)
! JVS(2227) = Jac_FULL(233,140)
  JVS(2227) = B(19)
! JVS(2228) = Jac_FULL(233,145)
  JVS(2228) = 2*B(358)+2*B(520)+2*B(691)
! JVS(2229) = Jac_FULL(233,161)
  JVS(2229) = B(196)+B(198)
! JVS(2230) = Jac_FULL(233,167)
  JVS(2230) = B(356)+B(518)+B(690)
! JVS(2231) = Jac_FULL(233,168)
  JVS(2231) = B(20)
! JVS(2232) = Jac_FULL(233,175)
  JVS(2232) = B(53)
! JVS(2233) = Jac_FULL(233,204)
  JVS(2233) = 0
! JVS(2234) = Jac_FULL(233,208)
  JVS(2234) = B(334)+B(496)+B(679)
! JVS(2235) = Jac_FULL(233,209)
  JVS(2235) = B(318)+B(480)+B(671)
! JVS(2236) = Jac_FULL(233,213)
  JVS(2236) = 2*B(316)+2*B(478)+2*B(670)
! JVS(2237) = Jac_FULL(233,214)
  JVS(2237) = B(282)+B(444)+B(647)+B(648)
! JVS(2238) = Jac_FULL(233,215)
  JVS(2238) = 0
! JVS(2239) = Jac_FULL(233,217)
  JVS(2239) = B(336)+B(498)+B(680)
! JVS(2240) = Jac_FULL(233,218)
  JVS(2240) = B(314)+B(476)+B(669)
! JVS(2241) = Jac_FULL(233,220)
  JVS(2241) = 0
! JVS(2242) = Jac_FULL(233,221)
  JVS(2242) = 0
! JVS(2243) = Jac_FULL(233,222)
  JVS(2243) = 0
! JVS(2244) = Jac_FULL(233,223)
  JVS(2244) = B(197)+B(199)
! JVS(2245) = Jac_FULL(233,224)
  JVS(2245) = 0
! JVS(2246) = Jac_FULL(233,225)
  JVS(2246) = 0
! JVS(2247) = Jac_FULL(233,226)
  JVS(2247) = B(288)+B(450)+B(656)
! JVS(2248) = Jac_FULL(233,227)
  JVS(2248) = 0
! JVS(2249) = Jac_FULL(233,228)
  JVS(2249) = 0
! JVS(2250) = Jac_FULL(233,229)
  JVS(2250) = B(283)+B(289)+B(315)+2*B(317)+B(319)+B(335)+B(337)+B(357)+2*B(359)
! JVS(2251) = Jac_FULL(233,230)
  JVS(2251) = -B(254)+B(445)+B(451)+B(477)+2*B(479)+B(481)+B(497)+B(499)+B(519)+2*B(521)
! JVS(2252) = Jac_FULL(233,231)
  JVS(2252) = -B(248)+B(265)+B(781)+B(845)+B(893)+2*B(895)+B(938)
! JVS(2253) = Jac_FULL(233,232)
  JVS(2253) = 0
! JVS(2254) = Jac_FULL(233,233)
  JVS(2254) = -B(11)-B(249)-B(255)
      
END SUBROUTINE cri_mosaic_8bin_aq_Jac_SP

! End of cri_mosaic_8bin_aq_Jac_SP function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! SPARSE_UTIL - SPARSE utility functions
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE cri_mosaic_8bin_aq_KppDecomp( JVS, IER )
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!        Sparse LU factorization
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

!  USE cri_mosaic_8bin_aq_Parameters
!  USE cri_mosaic_8bin_aq_JacobianSP

      INTEGER  :: IER
      REAL(kind=dp) :: JVS(2254), W(233), a
      INTEGER  :: k, kk, j, jj

      a = 0. ! mz_rs_20050606
      IER = 0
      DO k=1,NVAR
        ! mz_rs_20050606: don't check if real value == 0
        ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN
        IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN
            IER = k
            RETURN
        END IF
        DO kk = LU_CROW(k), LU_CROW(k+1)-1
              W( LU_ICOL(kk) ) = JVS(kk)
        END DO
        DO kk = LU_CROW(k), LU_DIAG(k)-1
            j = LU_ICOL(kk)
            a = -W(j) / JVS( LU_DIAG(j) )
            W(j) = -a
            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1
               W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj)
            END DO
         END DO
         DO kk = LU_CROW(k), LU_CROW(k+1)-1
            JVS(kk) = W( LU_ICOL(kk) )
         END DO
      END DO
      
END SUBROUTINE cri_mosaic_8bin_aq_KppDecomp


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE cri_mosaic_8bin_aq_KppDecompCmplx( JVS, IER )
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!        Sparse LU factorization, complex
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

!  USE cri_mosaic_8bin_aq_Parameters
!  USE cri_mosaic_8bin_aq_JacobianSP

      INTEGER  :: IER
      DOUBLE COMPLEX :: JVS(2254), W(233), a
      INTEGER  :: k, kk, j, jj

      IER = 0
      DO k=1,NVAR
        IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN
            IER = k
            RETURN
        END IF
        DO kk = LU_CROW(k), LU_CROW(k+1)-1
              W( LU_ICOL(kk) ) = JVS(kk)
        END DO
        DO kk = LU_CROW(k), LU_DIAG(k)-1
            j = LU_ICOL(kk)
            a = -W(j) / JVS( LU_DIAG(j) )
            W(j) = -a
            DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1
               W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj)
            END DO
         END DO
         DO kk = LU_CROW(k), LU_CROW(k+1)-1
            JVS(kk) = W( LU_ICOL(kk) )
         END DO
      END DO
      
END SUBROUTINE cri_mosaic_8bin_aq_KppDecompCmplx

! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE cri_mosaic_8bin_aq_KppSolveIndirect( JVS, X )
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!        Sparse solve subroutine using indirect addressing
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

!  USE cri_mosaic_8bin_aq_Parameters
!  USE cri_mosaic_8bin_aq_JacobianSP

      INTEGER i, j
      REAL(kind=dp) JVS(2254), X(233), sum

      DO i=1,NVAR
         DO j = LU_CROW(i), LU_DIAG(i)-1 
             X(i) = X(i) - JVS(j)*X(LU_ICOL(j));
         END DO  
      END DO

      DO i=NVAR,1,-1
        sum = X(i);
        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1
          sum = sum - JVS(j)*X(LU_ICOL(j));
        END DO
        X(i) = sum/JVS(LU_DIAG(i));
      END DO
      
END SUBROUTINE cri_mosaic_8bin_aq_KppSolveIndirect

! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SUBROUTINE cri_mosaic_8bin_aq_KppSolveCmplx( JVS, X )
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!        Complex sparse solve subroutine using indirect addressing
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

!  USE cri_mosaic_8bin_aq_Parameters
!  USE cri_mosaic_8bin_aq_JacobianSP

      INTEGER i, j
      DOUBLE COMPLEX JVS(2254), X(233), sum

      DO i=1,NVAR
         DO j = LU_CROW(i), LU_DIAG(i)-1 
             X(i) = X(i) - JVS(j)*X(LU_ICOL(j));
         END DO  
      END DO

      DO i=NVAR,1,-1
        sum = X(i);
        DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1
          sum = sum - JVS(j)*X(LU_ICOL(j));
        END DO
        X(i) = sum/JVS(LU_DIAG(i));
      END DO
      
END SUBROUTINE cri_mosaic_8bin_aq_KppSolveCmplx
! End of SPARSE_UTIL function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! cri_mosaic_8bin_aq_KppSolve - sparse back substitution
!   Arguments :
!      JVS       - sparse Jacobian of variables
!      X         - Vector for variables
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE cri_mosaic_8bin_aq_KppSolve ( JVS, X )

! JVS - sparse Jacobian of variables
  REAL(kind=dp) :: JVS(LU_NONZERO)
! X - Vector for variables
  REAL(kind=dp) :: X(NVAR)

  X(46) = X(46)-JVS(110)*X(36)
  X(47) = X(47)-JVS(116)*X(30)
  X(48) = X(48)-JVS(120)*X(47)
  X(49) = X(49)-JVS(125)*X(31)
  X(50) = X(50)-JVS(129)*X(49)
  X(108) = X(108)-JVS(371)*X(75)-JVS(372)*X(100)
  X(110) = X(110)-JVS(384)*X(42)-JVS(385)*X(109)
  X(111) = X(111)-JVS(389)*X(109)
  X(120) = X(120)-JVS(426)*X(48)
  X(122) = X(122)-JVS(435)*X(50)
  X(132) = X(132)-JVS(480)*X(57)-JVS(481)*X(98)
  X(133) = X(133)-JVS(487)*X(99)-JVS(488)*X(125)-JVS(489)*X(126)
  X(136) = X(136)-JVS(508)*X(78)
  X(138) = X(138)-JVS(518)*X(79)-JVS(519)*X(80)
  X(140) = X(140)-JVS(531)*X(55)-JVS(532)*X(82)
  X(141) = X(141)-JVS(538)*X(135)
  X(143) = X(143)-JVS(550)*X(111)
  X(147) = X(147)-JVS(572)*X(59)-JVS(573)*X(140)
  X(151) = X(151)-JVS(597)*X(36)-JVS(598)*X(89)-JVS(599)*X(92)-JVS(600)*X(119)-JVS(601)*X(121)
  X(152) = X(152)-JVS(611)*X(65)-JVS(612)*X(144)
  X(153) = X(153)-JVS(619)*X(106)-JVS(620)*X(128)
  X(155) = X(155)-JVS(631)*X(89)-JVS(632)*X(119)
  X(156) = X(156)-JVS(641)*X(26)
  X(157) = X(157)-JVS(647)*X(21)-JVS(648)*X(22)-JVS(649)*X(23)-JVS(650)*X(24)-JVS(651)*X(28)-JVS(652)*X(29)
  X(158) = X(158)-JVS(658)*X(71)-JVS(659)*X(72)
  X(160) = X(160)-JVS(670)*X(124)
  X(163) = X(163)-JVS(685)*X(88)-JVS(686)*X(152)
  X(164) = X(164)-JVS(694)*X(30)
  X(166) = X(166)-JVS(704)*X(67)-JVS(705)*X(68)-JVS(706)*X(70)-JVS(707)*X(146)-JVS(708)*X(165)
  X(167) = X(167)-JVS(716)*X(150)
  X(168) = X(168)-JVS(723)*X(104)-JVS(724)*X(120)-JVS(725)*X(137)
  X(169) = X(169)-JVS(734)*X(126)-JVS(735)*X(159)
  X(170) = X(170)-JVS(742)*X(134)-JVS(743)*X(142)-JVS(744)*X(157)
  X(171) = X(171)-JVS(753)*X(110)
  X(172) = X(172)-JVS(760)*X(143)
  X(173) = X(173)-JVS(767)*X(8)-JVS(768)*X(127)-JVS(769)*X(171)-JVS(770)*X(172)
  X(174) = X(174)-JVS(777)*X(98)
  X(175) = X(175)-JVS(784)*X(149)
  X(176) = X(176)-JVS(792)*X(25)
  X(179) = X(179)-JVS(807)*X(54)-JVS(808)*X(117)-JVS(809)*X(118)
  X(180) = X(180)-JVS(819)*X(177)
  X(181) = X(181)-JVS(826)*X(105)-JVS(827)*X(122)-JVS(828)*X(123)-JVS(829)*X(130)-JVS(830)*X(174)
  X(182) = X(182)-JVS(840)*X(31)
  X(183) = X(183)-JVS(846)*X(92)-JVS(847)*X(121)-JVS(848)*X(131)-JVS(849)*X(139)-JVS(850)*X(182)
  X(184) = X(184)-JVS(859)*X(96)-JVS(860)*X(136)-JVS(861)*X(160)-JVS(862)*X(162)
  X(185) = X(185)-JVS(870)*X(125)-JVS(871)*X(159)
  X(186) = X(186)-JVS(878)*X(152)-JVS(879)*X(177)
  X(187) = X(187)-JVS(886)*X(36)-JVS(887)*X(88)-JVS(888)*X(96)-JVS(889)*X(112)-JVS(890)*X(113)-JVS(891)*X(117)-JVS(892)&
             &*X(129)-JVS(893)*X(136)-JVS(894)*X(150)-JVS(895)*X(151)-JVS(896)*X(152)-JVS(897)*X(154)-JVS(898)*X(159)&
             &-JVS(899)*X(160)-JVS(900)*X(161)-JVS(901)*X(162)-JVS(902)*X(164)-JVS(903)*X(177)-JVS(904)*X(182)-JVS(905)&
             &*X(184)-JVS(906)*X(186)
  X(188) = X(188)-JVS(930)*X(78)-JVS(931)*X(85)-JVS(932)*X(113)-JVS(933)*X(162)
  X(189) = X(189)-JVS(942)*X(27)
  X(190) = X(190)-JVS(948)*X(58)-JVS(949)*X(106)-JVS(950)*X(115)-JVS(951)*X(128)-JVS(952)*X(131)-JVS(953)*X(134)&
             &-JVS(954)*X(139)-JVS(955)*X(142)-JVS(956)*X(157)-JVS(957)*X(163)-JVS(958)*X(176)-JVS(959)*X(177)-JVS(960)&
             &*X(179)-JVS(961)*X(182)-JVS(962)*X(186)-JVS(963)*X(189)
  X(191) = X(191)-JVS(979)*X(64)-JVS(980)*X(114)-JVS(981)*X(180)
  X(192) = X(192)-JVS(988)*X(47)-JVS(989)*X(49)-JVS(990)*X(109)-JVS(991)*X(110)-JVS(992)*X(120)-JVS(993)*X(122)-JVS(994)&
             &*X(136)-JVS(995)*X(160)-JVS(996)*X(162)-JVS(997)*X(166)-JVS(998)*X(191)
  X(193) = X(193)-JVS(1014)*X(165)
  X(194) = X(194)-JVS(1021)*X(95)-JVS(1022)*X(124)
  X(195) = X(195)-JVS(1029)*X(44)-JVS(1030)*X(74)-JVS(1031)*X(84)-JVS(1032)*X(95)-JVS(1033)*X(97)-JVS(1034)*X(102)&
             &-JVS(1035)*X(103)-JVS(1036)*X(123)-JVS(1037)*X(156)-JVS(1038)*X(162)-JVS(1039)*X(165)-JVS(1040)*X(185)&
             &-JVS(1041)*X(193)
  X(196) = X(196)-JVS(1054)*X(27)
  X(197) = X(197)-JVS(1060)*X(28)-JVS(1061)*X(29)
  X(198) = X(198)-JVS(1067)*X(16)-JVS(1068)*X(17)-JVS(1069)*X(18)-JVS(1070)*X(19)-JVS(1071)*X(43)-JVS(1072)*X(77)&
             &-JVS(1073)*X(153)-JVS(1074)*X(154)-JVS(1075)*X(155)-JVS(1076)*X(164)-JVS(1077)*X(170)-JVS(1078)*X(176)&
             &-JVS(1079)*X(182)-JVS(1080)*X(183)-JVS(1081)*X(189)-JVS(1082)*X(196)-JVS(1083)*X(197)
  X(199) = X(199)-JVS(1091)*X(66)-JVS(1092)*X(86)-JVS(1093)*X(101)-JVS(1094)*X(115)-JVS(1095)*X(191)-JVS(1096)*X(198)
  X(200) = X(200)-JVS(1106)*X(86)-JVS(1107)*X(117)
  X(201) = X(201)-JVS(1115)*X(87)-JVS(1116)*X(115)-JVS(1117)*X(191)
  X(202) = X(202)-JVS(1125)*X(57)-JVS(1126)*X(165)
  X(203) = X(203)-JVS(1134)*X(87)-JVS(1135)*X(114)-JVS(1136)*X(177)-JVS(1137)*X(180)-JVS(1138)*X(201)
  X(204) = X(204)-JVS(1146)*X(62)-JVS(1147)*X(112)
  X(205) = X(205)-JVS(1156)*X(72)-JVS(1157)*X(95)-JVS(1158)*X(158)
  X(206) = X(206)-JVS(1165)*X(185)-JVS(1166)*X(193)
  X(207) = X(207)-JVS(1173)*X(37)-JVS(1174)*X(60)-JVS(1175)*X(83)-JVS(1176)*X(85)-JVS(1177)*X(90)-JVS(1178)*X(93)&
             &-JVS(1179)*X(99)-JVS(1180)*X(101)-JVS(1181)*X(111)-JVS(1182)*X(113)-JVS(1183)*X(114)-JVS(1184)*X(118)&
             &-JVS(1185)*X(124)-JVS(1186)*X(125)-JVS(1187)*X(126)-JVS(1188)*X(129)-JVS(1189)*X(148)-JVS(1190)*X(150)&
             &-JVS(1191)*X(154)-JVS(1192)*X(159)-JVS(1193)*X(163)-JVS(1194)*X(167)-JVS(1195)*X(169)-JVS(1196)*X(177)&
             &-JVS(1197)*X(179)-JVS(1198)*X(180)-JVS(1199)*X(185)-JVS(1200)*X(186)-JVS(1201)*X(188)-JVS(1202)*X(194)&
             &-JVS(1203)*X(198)-JVS(1204)*X(199)-JVS(1205)*X(200)-JVS(1206)*X(201)-JVS(1207)*X(203)-JVS(1208)*X(205)
  X(208) = X(208)-JVS(1223)*X(33)-JVS(1224)*X(141)-JVS(1225)*X(175)
  X(209) = X(209)-JVS(1233)*X(38)-JVS(1234)*X(79)-JVS(1235)*X(81)-JVS(1236)*X(178)
  X(210) = X(210)-JVS(1244)*X(12)-JVS(1245)*X(13)-JVS(1246)*X(14)-JVS(1247)*X(20)-JVS(1248)*X(35)-JVS(1249)*X(42)&
             &-JVS(1250)*X(52)-JVS(1251)*X(53)-JVS(1252)*X(76)-JVS(1253)*X(93)-JVS(1254)*X(109)-JVS(1255)*X(150)-JVS(1256)&
             &*X(161)-JVS(1257)*X(171)-JVS(1258)*X(172)-JVS(1259)*X(183)-JVS(1260)*X(189)-JVS(1261)*X(195)-JVS(1262)*X(196)&
             &-JVS(1263)*X(197)-JVS(1264)*X(205)
  X(211) = X(211)-JVS(1278)*X(108)-JVS(1279)*X(159)
  X(212) = X(212)-JVS(1287)*X(40)-JVS(1288)*X(69)-JVS(1289)*X(71)-JVS(1290)*X(165)
  X(213) = X(213)-JVS(1298)*X(39)-JVS(1299)*X(45)-JVS(1300)*X(102)-JVS(1301)*X(103)-JVS(1302)*X(116)-JVS(1303)*X(149)&
             &-JVS(1304)*X(161)-JVS(1305)*X(211)
  X(214) = X(214)-JVS(1314)*X(9)-JVS(1315)*X(15)-JVS(1316)*X(33)-JVS(1317)*X(58)-JVS(1318)*X(62)-JVS(1319)*X(135)&
             &-JVS(1320)*X(141)-JVS(1321)*X(155)-JVS(1322)*X(164)-JVS(1323)*X(170)-JVS(1324)*X(175)-JVS(1325)*X(182)&
             &-JVS(1326)*X(189)-JVS(1327)*X(196)-JVS(1328)*X(197)-JVS(1329)*X(204)
  X(215) = X(215)-JVS(1341)*X(133)-JVS(1342)*X(159)-JVS(1343)*X(169)-JVS(1344)*X(185)
  X(216) = X(216)-JVS(1351)*X(26)-JVS(1352)*X(59)-JVS(1353)*X(132)-JVS(1354)*X(138)-JVS(1355)*X(153)-JVS(1356)*X(176)&
             &-JVS(1357)*X(178)-JVS(1358)*X(183)-JVS(1359)*X(189)-JVS(1360)*X(196)-JVS(1361)*X(197)-JVS(1362)*X(206)&
             &-JVS(1363)*X(208)-JVS(1364)*X(215)
  X(217) = X(217)-JVS(1374)*X(138)-JVS(1375)*X(178)
  X(218) = X(218)-JVS(1383)*X(44)-JVS(1384)*X(51)-JVS(1385)*X(78)-JVS(1386)*X(147)-JVS(1387)*X(150)-JVS(1388)*X(156)&
             &-JVS(1389)*X(162)-JVS(1390)*X(196)-JVS(1391)*X(197)-JVS(1392)*X(205)-JVS(1393)*X(208)-JVS(1394)*X(212)&
             &-JVS(1395)*X(213)-JVS(1396)*X(215)-JVS(1397)*X(216)-JVS(1398)*X(217)
  X(219) = X(219)-JVS(1409)*X(33)-JVS(1410)*X(45)-JVS(1411)*X(76)-JVS(1412)*X(86)-JVS(1413)*X(116)-JVS(1414)*X(129)&
             &-JVS(1415)*X(138)-JVS(1416)*X(140)-JVS(1417)*X(141)-JVS(1418)*X(147)-JVS(1419)*X(160)-JVS(1420)*X(163)&
             &-JVS(1421)*X(175)-JVS(1422)*X(177)-JVS(1423)*X(178)-JVS(1424)*X(179)-JVS(1425)*X(186)-JVS(1426)*X(190)&
             &-JVS(1427)*X(191)-JVS(1428)*X(194)-JVS(1429)*X(195)-JVS(1430)*X(196)-JVS(1431)*X(197)-JVS(1432)*X(200)&
             &-JVS(1433)*X(201)-JVS(1434)*X(203)-JVS(1435)*X(205)-JVS(1436)*X(208)-JVS(1437)*X(211)-JVS(1438)*X(212)&
             &-JVS(1439)*X(213)-JVS(1440)*X(215)-JVS(1441)*X(217)-JVS(1442)*X(218)
  X(220) = X(220)-JVS(1456)*X(132)-JVS(1457)*X(206)
  X(221) = X(221)-JVS(1464)*X(38)-JVS(1465)*X(45)-JVS(1466)*X(81)-JVS(1467)*X(96)-JVS(1468)*X(116)-JVS(1469)*X(132)&
             &-JVS(1470)*X(168)-JVS(1471)*X(181)-JVS(1472)*X(184)-JVS(1473)*X(194)-JVS(1474)*X(195)-JVS(1475)*X(202)&
             &-JVS(1476)*X(205)-JVS(1477)*X(206)-JVS(1478)*X(209)-JVS(1479)*X(211)-JVS(1480)*X(212)-JVS(1481)*X(215)&
             &-JVS(1482)*X(217)-JVS(1483)*X(220)
  X(222) = X(222)-JVS(1494)*X(69)-JVS(1495)*X(123)-JVS(1496)*X(166)-JVS(1497)*X(193)
  X(223) = X(223)-JVS(1505)*X(143)-JVS(1506)*X(150)-JVS(1507)*X(154)-JVS(1508)*X(159)-JVS(1509)*X(161)-JVS(1510)*X(165)&
             &-JVS(1511)*X(171)-JVS(1512)*X(172)-JVS(1513)*X(173)-JVS(1514)*X(177)-JVS(1515)*X(191)-JVS(1516)*X(203)
  X(224) = X(224)-JVS(1523)*X(81)-JVS(1524)*X(153)-JVS(1525)*X(176)-JVS(1526)*X(181)-JVS(1527)*X(202)-JVS(1528)*X(206)&
             &-JVS(1529)*X(220)-JVS(1530)*X(222)-JVS(1531)*X(223)
  X(225) = X(225)-JVS(1538)*X(34)-JVS(1539)*X(80)-JVS(1540)*X(97)-JVS(1541)*X(178)-JVS(1542)*X(212)-JVS(1543)*X(220)&
             &-JVS(1544)*X(222)-JVS(1545)*X(223)-JVS(1546)*X(224)
  X(226) = X(226)-JVS(1553)*X(11)-JVS(1554)*X(103)-JVS(1555)*X(116)-JVS(1556)*X(168)-JVS(1557)*X(170)-JVS(1558)*X(189)&
             &-JVS(1559)*X(196)-JVS(1560)*X(197)-JVS(1561)*X(209)-JVS(1562)*X(211)-JVS(1563)*X(215)-JVS(1564)*X(217)&
             &-JVS(1565)*X(220)-JVS(1566)*X(223)-JVS(1567)*X(224)-JVS(1568)*X(225)
  X(227) = X(227)-JVS(1575)*X(51)-JVS(1576)*X(56)-JVS(1577)*X(94)-JVS(1578)*X(130)-JVS(1579)*X(137)-JVS(1580)*X(174)&
             &-JVS(1581)*X(181)-JVS(1582)*X(202)-JVS(1583)*X(206)-JVS(1584)*X(209)-JVS(1585)*X(216)-JVS(1586)*X(220)&
             &-JVS(1587)*X(222)-JVS(1588)*X(223)-JVS(1589)*X(224)-JVS(1590)*X(225)-JVS(1591)*X(226)
  X(228) = X(228)-JVS(1598)*X(10)-JVS(1599)*X(30)-JVS(1600)*X(31)-JVS(1601)*X(36)-JVS(1602)*X(37)-JVS(1603)*X(43)&
             &-JVS(1604)*X(44)-JVS(1605)*X(46)-JVS(1606)*X(51)-JVS(1607)*X(53)-JVS(1608)*X(56)-JVS(1609)*X(63)-JVS(1610)&
             &*X(65)-JVS(1611)*X(68)-JVS(1612)*X(73)-JVS(1613)*X(74)-JVS(1614)*X(75)-JVS(1615)*X(78)-JVS(1616)*X(82)&
             &-JVS(1617)*X(84)-JVS(1618)*X(85)-JVS(1619)*X(88)-JVS(1620)*X(89)-JVS(1621)*X(90)-JVS(1622)*X(91)-JVS(1623)&
             &*X(92)-JVS(1624)*X(93)-JVS(1625)*X(94)-JVS(1626)*X(100)-JVS(1627)*X(101)-JVS(1628)*X(106)-JVS(1629)*X(107)&
             &-JVS(1630)*X(109)-JVS(1631)*X(110)-JVS(1632)*X(114)-JVS(1633)*X(115)-JVS(1634)*X(118)-JVS(1635)*X(119)&
             &-JVS(1636)*X(121)-JVS(1637)*X(124)-JVS(1638)*X(125)-JVS(1639)*X(127)-JVS(1640)*X(128)-JVS(1641)*X(130)&
             &-JVS(1642)*X(131)-JVS(1643)*X(134)-JVS(1644)*X(135)-JVS(1645)*X(136)-JVS(1646)*X(137)-JVS(1647)*X(139)&
             &-JVS(1648)*X(140)-JVS(1649)*X(142)-JVS(1650)*X(144)-JVS(1651)*X(145)-JVS(1652)*X(146)-JVS(1653)*X(148)&
             &-JVS(1654)*X(149)-JVS(1655)*X(151)-JVS(1656)*X(152)-JVS(1657)*X(153)-JVS(1658)*X(154)-JVS(1659)*X(155)&
             &-JVS(1660)*X(156)-JVS(1661)*X(157)-JVS(1662)*X(158)-JVS(1663)*X(159)-JVS(1664)*X(161)-JVS(1665)*X(162)&
             &-JVS(1666)*X(164)-JVS(1667)*X(165)-JVS(1668)*X(166)-JVS(1669)*X(167)-JVS(1670)*X(168)-JVS(1671)*X(169)&
             &-JVS(1672)*X(170)-JVS(1673)*X(171)-JVS(1674)*X(172)-JVS(1675)*X(173)-JVS(1676)*X(174)-JVS(1677)*X(175)&
             &-JVS(1678)*X(176)-JVS(1679)*X(177)-JVS(1680)*X(178)-JVS(1681)*X(179)-JVS(1682)*X(180)-JVS(1683)*X(181)&
             &-JVS(1684)*X(182)-JVS(1685)*X(183)-JVS(1686)*X(184)-JVS(1687)*X(185)-JVS(1688)*X(186)-JVS(1689)*X(187)&
             &-JVS(1690)*X(188)-JVS(1691)*X(189)-JVS(1692)*X(190)-JVS(1693)*X(191)-JVS(1694)*X(193)-JVS(1695)*X(194)&
             &-JVS(1696)*X(196)-JVS(1697)*X(197)-JVS(1698)*X(198)-JVS(1699)*X(199)-JVS(1700)*X(200)-JVS(1701)*X(201)&
             &-JVS(1702)*X(202)-JVS(1703)*X(203)-JVS(1704)*X(204)-JVS(1705)*X(205)-JVS(1706)*X(206)-JVS(1707)*X(207)&
             &-JVS(1708)*X(208)-JVS(1709)*X(209)-JVS(1710)*X(210)-JVS(1711)*X(211)-JVS(1712)*X(212)-JVS(1713)*X(213)&
             &-JVS(1714)*X(214)-JVS(1715)*X(215)-JVS(1716)*X(216)-JVS(1717)*X(217)-JVS(1718)*X(218)-JVS(1719)*X(219)&
             &-JVS(1720)*X(220)-JVS(1721)*X(221)-JVS(1722)*X(222)-JVS(1723)*X(223)-JVS(1724)*X(224)-JVS(1725)*X(225)&
             &-JVS(1726)*X(226)-JVS(1727)*X(227)
  X(229) = X(229)-JVS(1734)*X(41)-JVS(1735)*X(111)-JVS(1736)*X(143)-JVS(1737)*X(144)-JVS(1738)*X(145)-JVS(1739)*X(146)&
             &-JVS(1740)*X(148)-JVS(1741)*X(149)-JVS(1742)*X(154)-JVS(1743)*X(156)-JVS(1744)*X(157)-JVS(1745)*X(158)&
             &-JVS(1746)*X(161)-JVS(1747)*X(164)-JVS(1748)*X(165)-JVS(1749)*X(167)-JVS(1750)*X(169)-JVS(1751)*X(171)&
             &-JVS(1752)*X(172)-JVS(1753)*X(173)-JVS(1754)*X(174)-JVS(1755)*X(176)-JVS(1756)*X(177)-JVS(1757)*X(178)&
             &-JVS(1758)*X(180)-JVS(1759)*X(182)-JVS(1760)*X(184)-JVS(1761)*X(185)-JVS(1762)*X(186)-JVS(1763)*X(188)&
             &-JVS(1764)*X(189)-JVS(1765)*X(193)-JVS(1766)*X(194)-JVS(1767)*X(196)-JVS(1768)*X(197)-JVS(1769)*X(198)&
             &-JVS(1770)*X(199)-JVS(1771)*X(200)-JVS(1772)*X(201)-JVS(1773)*X(202)-JVS(1774)*X(203)-JVS(1775)*X(204)&
             &-JVS(1776)*X(205)-JVS(1777)*X(206)-JVS(1778)*X(208)-JVS(1779)*X(209)-JVS(1780)*X(210)-JVS(1781)*X(211)&
             &-JVS(1782)*X(212)-JVS(1783)*X(213)-JVS(1784)*X(214)-JVS(1785)*X(215)-JVS(1786)*X(216)-JVS(1787)*X(217)&
             &-JVS(1788)*X(218)-JVS(1789)*X(219)-JVS(1790)*X(220)-JVS(1791)*X(221)-JVS(1792)*X(222)-JVS(1793)*X(223)&
             &-JVS(1794)*X(224)-JVS(1795)*X(225)-JVS(1796)*X(226)-JVS(1797)*X(227)-JVS(1798)*X(228)
  X(230) = X(230)-JVS(1804)*X(32)-JVS(1805)*X(47)-JVS(1806)*X(49)-JVS(1807)*X(109)-JVS(1808)*X(110)-JVS(1809)*X(120)&
             &-JVS(1810)*X(122)-JVS(1811)*X(136)-JVS(1812)*X(144)-JVS(1813)*X(145)-JVS(1814)*X(146)-JVS(1815)*X(148)&
             &-JVS(1816)*X(149)-JVS(1817)*X(150)-JVS(1818)*X(154)-JVS(1819)*X(156)-JVS(1820)*X(157)-JVS(1821)*X(158)&
             &-JVS(1822)*X(159)-JVS(1823)*X(160)-JVS(1824)*X(161)-JVS(1825)*X(162)-JVS(1826)*X(164)-JVS(1827)*X(165)&
             &-JVS(1828)*X(166)-JVS(1829)*X(167)-JVS(1830)*X(169)-JVS(1831)*X(173)-JVS(1832)*X(174)-JVS(1833)*X(176)&
             &-JVS(1834)*X(177)-JVS(1835)*X(178)-JVS(1836)*X(180)-JVS(1837)*X(182)-JVS(1838)*X(184)-JVS(1839)*X(185)&
             &-JVS(1840)*X(186)-JVS(1841)*X(188)-JVS(1842)*X(189)-JVS(1843)*X(191)-JVS(1844)*X(192)-JVS(1845)*X(193)&
             &-JVS(1846)*X(194)-JVS(1847)*X(196)-JVS(1848)*X(197)-JVS(1849)*X(198)-JVS(1850)*X(199)-JVS(1851)*X(200)&
             &-JVS(1852)*X(201)-JVS(1853)*X(202)-JVS(1854)*X(203)-JVS(1855)*X(204)-JVS(1856)*X(205)-JVS(1857)*X(206)&
             &-JVS(1858)*X(207)-JVS(1859)*X(208)-JVS(1860)*X(209)-JVS(1861)*X(210)-JVS(1862)*X(211)-JVS(1863)*X(212)&
             &-JVS(1864)*X(213)-JVS(1865)*X(214)-JVS(1866)*X(215)-JVS(1867)*X(216)-JVS(1868)*X(217)-JVS(1869)*X(218)&
             &-JVS(1870)*X(219)-JVS(1871)*X(220)-JVS(1872)*X(221)-JVS(1873)*X(222)-JVS(1874)*X(223)-JVS(1875)*X(224)&
             &-JVS(1876)*X(225)-JVS(1877)*X(226)-JVS(1878)*X(227)-JVS(1879)*X(228)-JVS(1880)*X(229)
  X(231) = X(231)-JVS(1885)*X(8)-JVS(1886)*X(9)-JVS(1887)*X(11)-JVS(1888)*X(12)-JVS(1889)*X(13)-JVS(1890)*X(14)&
             &-JVS(1891)*X(15)-JVS(1892)*X(16)-JVS(1893)*X(17)-JVS(1894)*X(18)-JVS(1895)*X(19)-JVS(1896)*X(20)-JVS(1897)&
             &*X(21)-JVS(1898)*X(22)-JVS(1899)*X(23)-JVS(1900)*X(24)-JVS(1901)*X(25)-JVS(1902)*X(26)-JVS(1903)*X(27)&
             &-JVS(1904)*X(28)-JVS(1905)*X(29)-JVS(1906)*X(30)-JVS(1907)*X(31)-JVS(1908)*X(33)-JVS(1909)*X(34)-JVS(1910)&
             &*X(36)-JVS(1911)*X(37)-JVS(1912)*X(38)-JVS(1913)*X(39)-JVS(1914)*X(40)-JVS(1915)*X(41)-JVS(1916)*X(42)&
             &-JVS(1917)*X(43)-JVS(1918)*X(44)-JVS(1919)*X(45)-JVS(1920)*X(46)-JVS(1921)*X(47)-JVS(1922)*X(49)-JVS(1923)&
             &*X(51)-JVS(1924)*X(52)-JVS(1925)*X(54)-JVS(1926)*X(55)-JVS(1927)*X(56)-JVS(1928)*X(57)-JVS(1929)*X(58)&
             &-JVS(1930)*X(59)-JVS(1931)*X(60)-JVS(1932)*X(61)-JVS(1933)*X(62)-JVS(1934)*X(63)-JVS(1935)*X(64)-JVS(1936)&
             &*X(65)-JVS(1937)*X(66)-JVS(1938)*X(67)-JVS(1939)*X(68)-JVS(1940)*X(69)-JVS(1941)*X(70)-JVS(1942)*X(71)&
             &-JVS(1943)*X(72)-JVS(1944)*X(73)-JVS(1945)*X(74)-JVS(1946)*X(75)-JVS(1947)*X(76)-JVS(1948)*X(77)-JVS(1949)&
             &*X(78)-JVS(1950)*X(79)-JVS(1951)*X(80)-JVS(1952)*X(81)-JVS(1953)*X(82)-JVS(1954)*X(83)-JVS(1955)*X(84)&
             &-JVS(1956)*X(85)-JVS(1957)*X(86)-JVS(1958)*X(87)-JVS(1959)*X(88)-JVS(1960)*X(89)-JVS(1961)*X(90)-JVS(1962)&
             &*X(91)-JVS(1963)*X(92)-JVS(1964)*X(93)-JVS(1965)*X(94)-JVS(1966)*X(95)-JVS(1967)*X(96)-JVS(1968)*X(97)&
             &-JVS(1969)*X(98)-JVS(1970)*X(99)-JVS(1971)*X(100)-JVS(1972)*X(101)-JVS(1973)*X(102)-JVS(1974)*X(103)-JVS(1975)&
             &*X(104)-JVS(1976)*X(105)-JVS(1977)*X(106)-JVS(1978)*X(107)-JVS(1979)*X(108)-JVS(1980)*X(109)-JVS(1981)*X(110)&
             &-JVS(1982)*X(112)-JVS(1983)*X(113)-JVS(1984)*X(114)-JVS(1985)*X(115)-JVS(1986)*X(116)-JVS(1987)*X(117)&
             &-JVS(1988)*X(118)-JVS(1989)*X(119)-JVS(1990)*X(120)-JVS(1991)*X(121)-JVS(1992)*X(122)-JVS(1993)*X(123)&
             &-JVS(1994)*X(124)-JVS(1995)*X(125)-JVS(1996)*X(126)-JVS(1997)*X(127)-JVS(1998)*X(128)-JVS(1999)*X(129)&
             &-JVS(2000)*X(130)-JVS(2001)*X(131)-JVS(2002)*X(132)-JVS(2003)*X(133)-JVS(2004)*X(134)-JVS(2005)*X(135)&
             &-JVS(2006)*X(136)-JVS(2007)*X(137)-JVS(2008)*X(138)-JVS(2009)*X(139)-JVS(2010)*X(140)-JVS(2011)*X(141)&
             &-JVS(2012)*X(142)-JVS(2013)*X(144)-JVS(2014)*X(145)-JVS(2015)*X(146)-JVS(2016)*X(147)-JVS(2017)*X(148)&
             &-JVS(2018)*X(150)-JVS(2019)*X(151)-JVS(2020)*X(152)-JVS(2021)*X(153)-JVS(2022)*X(154)-JVS(2023)*X(155)&
             &-JVS(2024)*X(156)-JVS(2025)*X(157)-JVS(2026)*X(158)-JVS(2027)*X(159)-JVS(2028)*X(160)-JVS(2029)*X(161)&
             &-JVS(2030)*X(162)-JVS(2031)*X(163)-JVS(2032)*X(164)-JVS(2033)*X(165)-JVS(2034)*X(166)-JVS(2035)*X(167)&
             &-JVS(2036)*X(168)-JVS(2037)*X(169)-JVS(2038)*X(170)-JVS(2039)*X(171)-JVS(2040)*X(172)-JVS(2041)*X(173)&
             &-JVS(2042)*X(174)-JVS(2043)*X(175)-JVS(2044)*X(176)-JVS(2045)*X(177)-JVS(2046)*X(178)-JVS(2047)*X(179)&
             &-JVS(2048)*X(180)-JVS(2049)*X(181)-JVS(2050)*X(182)-JVS(2051)*X(183)-JVS(2052)*X(184)-JVS(2053)*X(185)&
             &-JVS(2054)*X(186)-JVS(2055)*X(187)-JVS(2056)*X(188)-JVS(2057)*X(189)-JVS(2058)*X(190)-JVS(2059)*X(191)&
             &-JVS(2060)*X(192)-JVS(2061)*X(193)-JVS(2062)*X(194)-JVS(2063)*X(195)-JVS(2064)*X(196)-JVS(2065)*X(197)&
             &-JVS(2066)*X(198)-JVS(2067)*X(199)-JVS(2068)*X(200)-JVS(2069)*X(201)-JVS(2070)*X(202)-JVS(2071)*X(203)&
             &-JVS(2072)*X(204)-JVS(2073)*X(205)-JVS(2074)*X(206)-JVS(2075)*X(207)-JVS(2076)*X(208)-JVS(2077)*X(209)&
             &-JVS(2078)*X(210)-JVS(2079)*X(211)-JVS(2080)*X(212)-JVS(2081)*X(213)-JVS(2082)*X(214)-JVS(2083)*X(215)&
             &-JVS(2084)*X(216)-JVS(2085)*X(217)-JVS(2086)*X(218)-JVS(2087)*X(219)-JVS(2088)*X(220)-JVS(2089)*X(221)&
             &-JVS(2090)*X(222)-JVS(2091)*X(223)-JVS(2092)*X(224)-JVS(2093)*X(225)-JVS(2094)*X(226)-JVS(2095)*X(227)&
             &-JVS(2096)*X(228)-JVS(2097)*X(229)-JVS(2098)*X(230)
  X(232) = X(232)-JVS(2102)*X(32)-JVS(2103)*X(35)-JVS(2104)*X(41)-JVS(2105)*X(48)-JVS(2106)*X(50)-JVS(2107)*X(54)&
             &-JVS(2108)*X(55)-JVS(2109)*X(60)-JVS(2110)*X(61)-JVS(2111)*X(63)-JVS(2112)*X(64)-JVS(2113)*X(66)-JVS(2114)&
             &*X(67)-JVS(2115)*X(70)-JVS(2116)*X(79)-JVS(2117)*X(83)-JVS(2118)*X(84)-JVS(2119)*X(87)-JVS(2120)*X(90)&
             &-JVS(2121)*X(91)-JVS(2122)*X(94)-JVS(2123)*X(97)-JVS(2124)*X(98)-JVS(2125)*X(99)-JVS(2126)*X(100)-JVS(2127)&
             &*X(102)-JVS(2128)*X(104)-JVS(2129)*X(105)-JVS(2130)*X(111)-JVS(2131)*X(112)-JVS(2132)*X(113)-JVS(2133)*X(117)&
             &-JVS(2134)*X(119)-JVS(2135)*X(120)-JVS(2136)*X(121)-JVS(2137)*X(122)-JVS(2138)*X(123)-JVS(2139)*X(126)&
             &-JVS(2140)*X(128)-JVS(2141)*X(129)-JVS(2142)*X(135)-JVS(2143)*X(139)-JVS(2144)*X(142)-JVS(2145)*X(143)&
             &-JVS(2146)*X(144)-JVS(2147)*X(145)-JVS(2148)*X(146)-JVS(2149)*X(148)-JVS(2150)*X(149)-JVS(2151)*X(154)&
             &-JVS(2152)*X(156)-JVS(2153)*X(157)-JVS(2154)*X(158)-JVS(2155)*X(161)-JVS(2156)*X(162)-JVS(2157)*X(163)&
             &-JVS(2158)*X(164)-JVS(2159)*X(165)-JVS(2160)*X(167)-JVS(2161)*X(169)-JVS(2162)*X(171)-JVS(2163)*X(172)&
             &-JVS(2164)*X(173)-JVS(2165)*X(174)-JVS(2166)*X(176)-JVS(2167)*X(177)-JVS(2168)*X(178)-JVS(2169)*X(180)&
             &-JVS(2170)*X(182)-JVS(2171)*X(184)-JVS(2172)*X(185)-JVS(2173)*X(186)-JVS(2174)*X(188)-JVS(2175)*X(189)&
             &-JVS(2176)*X(192)-JVS(2177)*X(193)-JVS(2178)*X(194)-JVS(2179)*X(196)-JVS(2180)*X(197)-JVS(2181)*X(198)&
             &-JVS(2182)*X(199)-JVS(2183)*X(200)-JVS(2184)*X(201)-JVS(2185)*X(202)-JVS(2186)*X(203)-JVS(2187)*X(204)&
             &-JVS(2188)*X(205)-JVS(2189)*X(206)-JVS(2190)*X(207)-JVS(2191)*X(208)-JVS(2192)*X(209)-JVS(2193)*X(210)&
             &-JVS(2194)*X(211)-JVS(2195)*X(212)-JVS(2196)*X(213)-JVS(2197)*X(214)-JVS(2198)*X(215)-JVS(2199)*X(216)&
             &-JVS(2200)*X(217)-JVS(2201)*X(218)-JVS(2202)*X(219)-JVS(2203)*X(220)-JVS(2204)*X(221)-JVS(2205)*X(222)&
             &-JVS(2206)*X(223)-JVS(2207)*X(224)-JVS(2208)*X(225)-JVS(2209)*X(226)-JVS(2210)*X(227)-JVS(2211)*X(228)&
             &-JVS(2212)*X(229)-JVS(2213)*X(230)-JVS(2214)*X(231)
  X(233) = X(233)-JVS(2217)*X(43)-JVS(2218)*X(61)-JVS(2219)*X(73)-JVS(2220)*X(82)-JVS(2221)*X(83)-JVS(2222)*X(91)&
             &-JVS(2223)*X(112)-JVS(2224)*X(118)-JVS(2225)*X(135)-JVS(2226)*X(137)-JVS(2227)*X(140)-JVS(2228)*X(145)&
             &-JVS(2229)*X(161)-JVS(2230)*X(167)-JVS(2231)*X(168)-JVS(2232)*X(175)-JVS(2233)*X(204)-JVS(2234)*X(208)&
             &-JVS(2235)*X(209)-JVS(2236)*X(213)-JVS(2237)*X(214)-JVS(2238)*X(215)-JVS(2239)*X(217)-JVS(2240)*X(218)&
             &-JVS(2241)*X(220)-JVS(2242)*X(221)-JVS(2243)*X(222)-JVS(2244)*X(223)-JVS(2245)*X(224)-JVS(2246)*X(225)&
             &-JVS(2247)*X(226)-JVS(2248)*X(227)-JVS(2249)*X(228)-JVS(2250)*X(229)-JVS(2251)*X(230)-JVS(2252)*X(231)&
             &-JVS(2253)*X(232)
  X(233) = X(233)/JVS(2254)
  X(232) = (X(232)-JVS(2216)*X(233))/(JVS(2215))
  X(231) = (X(231)-JVS(2100)*X(232)-JVS(2101)*X(233))/(JVS(2099))
  X(230) = (X(230)-JVS(1882)*X(231)-JVS(1883)*X(232)-JVS(1884)*X(233))/(JVS(1881))
  X(229) = (X(229)-JVS(1800)*X(230)-JVS(1801)*X(231)-JVS(1802)*X(232)-JVS(1803)*X(233))/(JVS(1799))
  X(228) = (X(228)-JVS(1729)*X(229)-JVS(1730)*X(230)-JVS(1731)*X(231)-JVS(1732)*X(232)-JVS(1733)*X(233))/(JVS(1728))
  X(227) = (X(227)-JVS(1593)*X(228)-JVS(1594)*X(229)-JVS(1595)*X(230)-JVS(1596)*X(231)-JVS(1597)*X(232))/(JVS(1592))
  X(226) = (X(226)-JVS(1570)*X(228)-JVS(1571)*X(229)-JVS(1572)*X(230)-JVS(1573)*X(231)-JVS(1574)*X(232))/(JVS(1569))
  X(225) = (X(225)-JVS(1548)*X(228)-JVS(1549)*X(229)-JVS(1550)*X(230)-JVS(1551)*X(231)-JVS(1552)*X(232))/(JVS(1547))
  X(224) = (X(224)-JVS(1533)*X(228)-JVS(1534)*X(229)-JVS(1535)*X(230)-JVS(1536)*X(231)-JVS(1537)*X(232))/(JVS(1532))
  X(223) = (X(223)-JVS(1518)*X(228)-JVS(1519)*X(229)-JVS(1520)*X(230)-JVS(1521)*X(231)-JVS(1522)*X(232))/(JVS(1517))
  X(222) = (X(222)-JVS(1499)*X(223)-JVS(1500)*X(228)-JVS(1501)*X(229)-JVS(1502)*X(230)-JVS(1503)*X(231)-JVS(1504)&
             &*X(232))/(JVS(1498))
  X(221) = (X(221)-JVS(1485)*X(222)-JVS(1486)*X(223)-JVS(1487)*X(224)-JVS(1488)*X(225)-JVS(1489)*X(228)-JVS(1490)*X(229)&
             &-JVS(1491)*X(230)-JVS(1492)*X(231)-JVS(1493)*X(232))/(JVS(1484))
  X(220) = (X(220)-JVS(1459)*X(223)-JVS(1460)*X(228)-JVS(1461)*X(229)-JVS(1462)*X(230)-JVS(1463)*X(231))/(JVS(1458))
  X(219) = (X(219)-JVS(1444)*X(220)-JVS(1445)*X(221)-JVS(1446)*X(222)-JVS(1447)*X(223)-JVS(1448)*X(224)-JVS(1449)*X(226)&
             &-JVS(1450)*X(228)-JVS(1451)*X(229)-JVS(1452)*X(230)-JVS(1453)*X(231)-JVS(1454)*X(232)-JVS(1455)*X(233))&
             &/(JVS(1443))
  X(218) = (X(218)-JVS(1400)*X(220)-JVS(1401)*X(222)-JVS(1402)*X(223)-JVS(1403)*X(224)-JVS(1404)*X(226)-JVS(1405)*X(228)&
             &-JVS(1406)*X(229)-JVS(1407)*X(230)-JVS(1408)*X(231))/(JVS(1399))
  X(217) = (X(217)-JVS(1377)*X(220)-JVS(1378)*X(224)-JVS(1379)*X(228)-JVS(1380)*X(229)-JVS(1381)*X(230)-JVS(1382)&
             &*X(231))/(JVS(1376))
  X(216) = (X(216)-JVS(1366)*X(220)-JVS(1367)*X(223)-JVS(1368)*X(224)-JVS(1369)*X(226)-JVS(1370)*X(228)-JVS(1371)*X(229)&
             &-JVS(1372)*X(230)-JVS(1373)*X(231))/(JVS(1365))
  X(215) = (X(215)-JVS(1346)*X(223)-JVS(1347)*X(228)-JVS(1348)*X(229)-JVS(1349)*X(230)-JVS(1350)*X(231))/(JVS(1345))
  X(214) = (X(214)-JVS(1331)*X(215)-JVS(1332)*X(217)-JVS(1333)*X(221)-JVS(1334)*X(226)-JVS(1335)*X(227)-JVS(1336)*X(228)&
             &-JVS(1337)*X(229)-JVS(1338)*X(230)-JVS(1339)*X(231)-JVS(1340)*X(232))/(JVS(1330))
  X(213) = (X(213)-JVS(1307)*X(215)-JVS(1308)*X(217)-JVS(1309)*X(223)-JVS(1310)*X(228)-JVS(1311)*X(229)-JVS(1312)*X(230)&
             &-JVS(1313)*X(231))/(JVS(1306))
  X(212) = (X(212)-JVS(1292)*X(222)-JVS(1293)*X(223)-JVS(1294)*X(228)-JVS(1295)*X(229)-JVS(1296)*X(230)-JVS(1297)&
             &*X(231))/(JVS(1291))
  X(211) = (X(211)-JVS(1281)*X(215)-JVS(1282)*X(223)-JVS(1283)*X(228)-JVS(1284)*X(229)-JVS(1285)*X(230)-JVS(1286)&
             &*X(231))/(JVS(1280))
  X(210) = (X(210)-JVS(1266)*X(211)-JVS(1267)*X(212)-JVS(1268)*X(215)-JVS(1269)*X(219)-JVS(1270)*X(222)-JVS(1271)*X(223)&
             &-JVS(1272)*X(228)-JVS(1273)*X(229)-JVS(1274)*X(230)-JVS(1275)*X(231)-JVS(1276)*X(232)-JVS(1277)*X(233))&
             &/(JVS(1265))
  X(209) = (X(209)-JVS(1238)*X(220)-JVS(1239)*X(224)-JVS(1240)*X(228)-JVS(1241)*X(229)-JVS(1242)*X(230)-JVS(1243)&
             &*X(231))/(JVS(1237))
  X(208) = (X(208)-JVS(1227)*X(215)-JVS(1228)*X(226)-JVS(1229)*X(228)-JVS(1230)*X(229)-JVS(1231)*X(230)-JVS(1232)&
             &*X(231))/(JVS(1226))
  X(207) = (X(207)-JVS(1210)*X(210)-JVS(1211)*X(212)-JVS(1212)*X(214)-JVS(1213)*X(215)-JVS(1214)*X(218)-JVS(1215)*X(219)&
             &-JVS(1216)*X(221)-JVS(1217)*X(223)-JVS(1218)*X(228)-JVS(1219)*X(229)-JVS(1220)*X(230)-JVS(1221)*X(231)&
             &-JVS(1222)*X(232))/(JVS(1209))
  X(206) = (X(206)-JVS(1168)*X(223)-JVS(1169)*X(228)-JVS(1170)*X(229)-JVS(1171)*X(230)-JVS(1172)*X(231))/(JVS(1167))
  X(205) = (X(205)-JVS(1160)*X(212)-JVS(1161)*X(228)-JVS(1162)*X(229)-JVS(1163)*X(230)-JVS(1164)*X(231))/(JVS(1159))
  X(204) = (X(204)-JVS(1149)*X(217)-JVS(1150)*X(227)-JVS(1151)*X(228)-JVS(1152)*X(229)-JVS(1153)*X(230)-JVS(1154)*X(231)&
             &-JVS(1155)*X(232))/(JVS(1148))
  X(203) = (X(203)-JVS(1140)*X(223)-JVS(1141)*X(228)-JVS(1142)*X(229)-JVS(1143)*X(230)-JVS(1144)*X(231)-JVS(1145)&
             &*X(232))/(JVS(1139))
  X(202) = (X(202)-JVS(1128)*X(206)-JVS(1129)*X(223)-JVS(1130)*X(228)-JVS(1131)*X(229)-JVS(1132)*X(230)-JVS(1133)&
             &*X(231))/(JVS(1127))
  X(201) = (X(201)-JVS(1119)*X(223)-JVS(1120)*X(228)-JVS(1121)*X(229)-JVS(1122)*X(230)-JVS(1123)*X(231)-JVS(1124)&
             &*X(232))/(JVS(1118))
  X(200) = (X(200)-JVS(1109)*X(203)-JVS(1110)*X(228)-JVS(1111)*X(229)-JVS(1112)*X(230)-JVS(1113)*X(231)-JVS(1114)&
             &*X(232))/(JVS(1108))
  X(199) = (X(199)-JVS(1098)*X(200)-JVS(1099)*X(201)-JVS(1100)*X(214)-JVS(1101)*X(223)-JVS(1102)*X(228)-JVS(1103)*X(229)&
             &-JVS(1104)*X(230)-JVS(1105)*X(231))/(JVS(1097))
  X(198) = (X(198)-JVS(1085)*X(214)-JVS(1086)*X(223)-JVS(1087)*X(228)-JVS(1088)*X(229)-JVS(1089)*X(230)-JVS(1090)&
             &*X(231))/(JVS(1084))
  X(197) = (X(197)-JVS(1063)*X(228)-JVS(1064)*X(229)-JVS(1065)*X(230)-JVS(1066)*X(231))/(JVS(1062))
  X(196) = (X(196)-JVS(1056)*X(228)-JVS(1057)*X(229)-JVS(1058)*X(230)-JVS(1059)*X(231))/(JVS(1055))
  X(195) = (X(195)-JVS(1043)*X(205)-JVS(1044)*X(211)-JVS(1045)*X(212)-JVS(1046)*X(215)-JVS(1047)*X(222)-JVS(1048)*X(223)&
             &-JVS(1049)*X(228)-JVS(1050)*X(229)-JVS(1051)*X(230)-JVS(1052)*X(231)-JVS(1053)*X(232))/(JVS(1042))
  X(194) = (X(194)-JVS(1024)*X(205)-JVS(1025)*X(228)-JVS(1026)*X(229)-JVS(1027)*X(230)-JVS(1028)*X(231))/(JVS(1023))
  X(193) = (X(193)-JVS(1016)*X(223)-JVS(1017)*X(228)-JVS(1018)*X(229)-JVS(1019)*X(230)-JVS(1020)*X(231))/(JVS(1015))
  X(192) = (X(192)-JVS(1000)*X(193)-JVS(1001)*X(194)-JVS(1002)*X(199)-JVS(1003)*X(203)-JVS(1004)*X(205)-JVS(1005)*X(207)&
             &-JVS(1006)*X(223)-JVS(1007)*X(227)-JVS(1008)*X(228)-JVS(1009)*X(229)-JVS(1010)*X(230)-JVS(1011)*X(231)&
             &-JVS(1012)*X(232)-JVS(1013)*X(233))/(JVS(999))
  X(191) = (X(191)-JVS(983)*X(223)-JVS(984)*X(228)-JVS(985)*X(229)-JVS(986)*X(230)-JVS(987)*X(231))/(JVS(982))
  X(190) = (X(190)-JVS(965)*X(191)-JVS(966)*X(196)-JVS(967)*X(197)-JVS(968)*X(200)-JVS(969)*X(201)-JVS(970)*X(203)&
             &-JVS(971)*X(218)-JVS(972)*X(221)-JVS(973)*X(223)-JVS(974)*X(228)-JVS(975)*X(229)-JVS(976)*X(230)-JVS(977)&
             &*X(231)-JVS(978)*X(232))/(JVS(964))
  X(189) = (X(189)-JVS(944)*X(228)-JVS(945)*X(229)-JVS(946)*X(230)-JVS(947)*X(231))/(JVS(943))
  X(188) = (X(188)-JVS(935)*X(199)-JVS(936)*X(205)-JVS(937)*X(228)-JVS(938)*X(229)-JVS(939)*X(230)-JVS(940)*X(231)&
             &-JVS(941)*X(232))/(JVS(934))
  X(187) = (X(187)-JVS(908)*X(188)-JVS(909)*X(189)-JVS(910)*X(190)-JVS(911)*X(191)-JVS(912)*X(194)-JVS(913)*X(196)&
             &-JVS(914)*X(199)-JVS(915)*X(200)-JVS(916)*X(201)-JVS(917)*X(203)-JVS(918)*X(204)-JVS(919)*X(205)-JVS(920)&
             &*X(207)-JVS(921)*X(219)-JVS(922)*X(223)-JVS(923)*X(227)-JVS(924)*X(228)-JVS(925)*X(229)-JVS(926)*X(230)&
             &-JVS(927)*X(231)-JVS(928)*X(232)-JVS(929)*X(233))/(JVS(907))
  X(186) = (X(186)-JVS(881)*X(223)-JVS(882)*X(228)-JVS(883)*X(229)-JVS(884)*X(230)-JVS(885)*X(231))/(JVS(880))
  X(185) = (X(185)-JVS(873)*X(223)-JVS(874)*X(228)-JVS(875)*X(229)-JVS(876)*X(230)-JVS(877)*X(231))/(JVS(872))
  X(184) = (X(184)-JVS(864)*X(194)-JVS(865)*X(205)-JVS(866)*X(228)-JVS(867)*X(229)-JVS(868)*X(230)-JVS(869)*X(231))&
             &/(JVS(863))
  X(183) = (X(183)-JVS(852)*X(189)-JVS(853)*X(196)-JVS(854)*X(197)-JVS(855)*X(228)-JVS(856)*X(229)-JVS(857)*X(230)&
             &-JVS(858)*X(231))/(JVS(851))
  X(182) = (X(182)-JVS(842)*X(228)-JVS(843)*X(229)-JVS(844)*X(230)-JVS(845)*X(231))/(JVS(841))
  X(181) = (X(181)-JVS(832)*X(202)-JVS(833)*X(206)-JVS(834)*X(222)-JVS(835)*X(228)-JVS(836)*X(229)-JVS(837)*X(230)&
             &-JVS(838)*X(231)-JVS(839)*X(232))/(JVS(831))
  X(180) = (X(180)-JVS(821)*X(223)-JVS(822)*X(228)-JVS(823)*X(229)-JVS(824)*X(230)-JVS(825)*X(231))/(JVS(820))
  X(179) = (X(179)-JVS(811)*X(200)-JVS(812)*X(201)-JVS(813)*X(218)-JVS(814)*X(228)-JVS(815)*X(229)-JVS(816)*X(230)&
             &-JVS(817)*X(231)-JVS(818)*X(232))/(JVS(810))
  X(178) = (X(178)-JVS(803)*X(220)-JVS(804)*X(228)-JVS(805)*X(229)-JVS(806)*X(230))/(JVS(802))
  X(177) = (X(177)-JVS(799)*X(223)-JVS(800)*X(230)-JVS(801)*X(231))/(JVS(798))
  X(176) = (X(176)-JVS(794)*X(228)-JVS(795)*X(229)-JVS(796)*X(230)-JVS(797)*X(231))/(JVS(793))
  X(175) = (X(175)-JVS(786)*X(215)-JVS(787)*X(226)-JVS(788)*X(228)-JVS(789)*X(229)-JVS(790)*X(230)-JVS(791)*X(231))&
             &/(JVS(785))
  X(174) = (X(174)-JVS(779)*X(206)-JVS(780)*X(228)-JVS(781)*X(229)-JVS(782)*X(230)-JVS(783)*X(231))/(JVS(778))
  X(173) = (X(173)-JVS(772)*X(223)-JVS(773)*X(229)-JVS(774)*X(230)-JVS(775)*X(231)-JVS(776)*X(232))/(JVS(771))
  X(172) = (X(172)-JVS(762)*X(223)-JVS(763)*X(229)-JVS(764)*X(230)-JVS(765)*X(231)-JVS(766)*X(232))/(JVS(761))
  X(171) = (X(171)-JVS(755)*X(172)-JVS(756)*X(223)-JVS(757)*X(230)-JVS(758)*X(231)-JVS(759)*X(232))/(JVS(754))
  X(170) = (X(170)-JVS(746)*X(189)-JVS(747)*X(196)-JVS(748)*X(197)-JVS(749)*X(228)-JVS(750)*X(229)-JVS(751)*X(230)&
             &-JVS(752)*X(231))/(JVS(745))
  X(169) = (X(169)-JVS(737)*X(223)-JVS(738)*X(228)-JVS(739)*X(229)-JVS(740)*X(230)-JVS(741)*X(231))/(JVS(736))
  X(168) = (X(168)-JVS(727)*X(209)-JVS(728)*X(225)-JVS(729)*X(228)-JVS(730)*X(229)-JVS(731)*X(230)-JVS(732)*X(231)&
             &-JVS(733)*X(232))/(JVS(726))
  X(167) = (X(167)-JVS(718)*X(223)-JVS(719)*X(228)-JVS(720)*X(229)-JVS(721)*X(230)-JVS(722)*X(231))/(JVS(717))
  X(166) = (X(166)-JVS(710)*X(193)-JVS(711)*X(223)-JVS(712)*X(228)-JVS(713)*X(229)-JVS(714)*X(230)-JVS(715)*X(231))&
             &/(JVS(709))
  X(165) = (X(165)-JVS(701)*X(223)-JVS(702)*X(230)-JVS(703)*X(231))/(JVS(700))
  X(164) = (X(164)-JVS(696)*X(228)-JVS(697)*X(229)-JVS(698)*X(230)-JVS(699)*X(231))/(JVS(695))
  X(163) = (X(163)-JVS(688)*X(177)-JVS(689)*X(186)-JVS(690)*X(228)-JVS(691)*X(229)-JVS(692)*X(230)-JVS(693)*X(231))&
             &/(JVS(687))
  X(162) = (X(162)-JVS(682)*X(205)-JVS(683)*X(229)-JVS(684)*X(231))/(JVS(681))
  X(161) = (X(161)-JVS(678)*X(223)-JVS(679)*X(230)-JVS(680)*X(231))/(JVS(677))
  X(160) = (X(160)-JVS(672)*X(194)-JVS(673)*X(228)-JVS(674)*X(229)-JVS(675)*X(230)-JVS(676)*X(231))/(JVS(671))
  X(159) = (X(159)-JVS(667)*X(223)-JVS(668)*X(230)-JVS(669)*X(231))/(JVS(666))
  X(158) = (X(158)-JVS(661)*X(212)-JVS(662)*X(228)-JVS(663)*X(229)-JVS(664)*X(230)-JVS(665)*X(231))/(JVS(660))
  X(157) = (X(157)-JVS(654)*X(228)-JVS(655)*X(229)-JVS(656)*X(230)-JVS(657)*X(231))/(JVS(653))
  X(156) = (X(156)-JVS(643)*X(228)-JVS(644)*X(229)-JVS(645)*X(230)-JVS(646)*X(231))/(JVS(642))
  X(155) = (X(155)-JVS(634)*X(164)-JVS(635)*X(182)-JVS(636)*X(196)-JVS(637)*X(228)-JVS(638)*X(229)-JVS(639)*X(230)&
             &-JVS(640)*X(231))/(JVS(633))
  X(154) = (X(154)-JVS(628)*X(223)-JVS(629)*X(230)-JVS(630)*X(231))/(JVS(627))
  X(153) = (X(153)-JVS(622)*X(176)-JVS(623)*X(228)-JVS(624)*X(229)-JVS(625)*X(230)-JVS(626)*X(231))/(JVS(621))
  X(152) = (X(152)-JVS(614)*X(177)-JVS(615)*X(228)-JVS(616)*X(229)-JVS(617)*X(230)-JVS(618)*X(231))/(JVS(613))
  X(151) = (X(151)-JVS(603)*X(164)-JVS(604)*X(182)-JVS(605)*X(189)-JVS(606)*X(196)-JVS(607)*X(228)-JVS(608)*X(229)&
             &-JVS(609)*X(230)-JVS(610)*X(231))/(JVS(602))
  X(150) = (X(150)-JVS(594)*X(223)-JVS(595)*X(230)-JVS(596)*X(231))/(JVS(593))
  X(149) = (X(149)-JVS(589)*X(215)-JVS(590)*X(228)-JVS(591)*X(229)-JVS(592)*X(230))/(JVS(588))
  X(148) = (X(148)-JVS(584)*X(154)-JVS(585)*X(228)-JVS(586)*X(229)-JVS(587)*X(230))/(JVS(583))
  X(147) = (X(147)-JVS(575)*X(196)-JVS(576)*X(197)-JVS(577)*X(208)-JVS(578)*X(213)-JVS(579)*X(228)-JVS(580)*X(229)&
             &-JVS(581)*X(230)-JVS(582)*X(231))/(JVS(574))
  X(146) = (X(146)-JVS(568)*X(165)-JVS(569)*X(228)-JVS(570)*X(229)-JVS(571)*X(230))/(JVS(567))
  X(145) = (X(145)-JVS(563)*X(161)-JVS(564)*X(228)-JVS(565)*X(229)-JVS(566)*X(230))/(JVS(562))
  X(144) = (X(144)-JVS(558)*X(177)-JVS(559)*X(228)-JVS(560)*X(229)-JVS(561)*X(230))/(JVS(557))
  X(143) = (X(143)-JVS(552)*X(223)-JVS(553)*X(229)-JVS(554)*X(230)-JVS(555)*X(231)-JVS(556)*X(232))/(JVS(551))
  X(142) = (X(142)-JVS(546)*X(157)-JVS(547)*X(197)-JVS(548)*X(229)-JVS(549)*X(231))/(JVS(545))
  X(141) = (X(141)-JVS(540)*X(175)-JVS(541)*X(226)-JVS(542)*X(229)-JVS(543)*X(230)-JVS(544)*X(231))/(JVS(539))
  X(140) = (X(140)-JVS(534)*X(213)-JVS(535)*X(228)-JVS(536)*X(229)-JVS(537)*X(231))/(JVS(533))
  X(139) = (X(139)-JVS(527)*X(189)-JVS(528)*X(196)-JVS(529)*X(229)-JVS(530)*X(231))/(JVS(526))
  X(138) = (X(138)-JVS(521)*X(178)-JVS(522)*X(224)-JVS(523)*X(228)-JVS(524)*X(229)-JVS(525)*X(231))/(JVS(520))
  X(137) = (X(137)-JVS(514)*X(209)-JVS(515)*X(225)-JVS(516)*X(228)-JVS(517)*X(231))/(JVS(513))
  X(136) = (X(136)-JVS(510)*X(162)-JVS(511)*X(230)-JVS(512)*X(231))/(JVS(509))
  X(135) = (X(135)-JVS(505)*X(226)-JVS(506)*X(229)-JVS(507)*X(231))/(JVS(504))
  X(134) = (X(134)-JVS(500)*X(157)-JVS(501)*X(197)-JVS(502)*X(228)-JVS(503)*X(231))/(JVS(499))
  X(133) = (X(133)-JVS(491)*X(159)-JVS(492)*X(169)-JVS(493)*X(185)-JVS(494)*X(223)-JVS(495)*X(228)-JVS(496)*X(229)&
             &-JVS(497)*X(230)-JVS(498)*X(231))/(JVS(490))
  X(132) = (X(132)-JVS(483)*X(206)-JVS(484)*X(228)-JVS(485)*X(229)-JVS(486)*X(231))/(JVS(482))
  X(131) = (X(131)-JVS(476)*X(189)-JVS(477)*X(196)-JVS(478)*X(228)-JVS(479)*X(231))/(JVS(475))
  X(130) = (X(130)-JVS(471)*X(174)-JVS(472)*X(202)-JVS(473)*X(228)-JVS(474)*X(231))/(JVS(470))
  X(129) = (X(129)-JVS(467)*X(219)-JVS(468)*X(231)-JVS(469)*X(232))/(JVS(466))
  X(128) = (X(128)-JVS(463)*X(176)-JVS(464)*X(229)-JVS(465)*X(231))/(JVS(462))
  X(127) = (X(127)-JVS(457)*X(171)-JVS(458)*X(172)-JVS(459)*X(173)-JVS(460)*X(231)-JVS(461)*X(232))/(JVS(456))
  X(126) = (X(126)-JVS(453)*X(169)-JVS(454)*X(228)-JVS(455)*X(231))/(JVS(452))
  X(125) = (X(125)-JVS(449)*X(185)-JVS(450)*X(228)-JVS(451)*X(231))/(JVS(448))
  X(124) = (X(124)-JVS(445)*X(194)-JVS(446)*X(228)-JVS(447)*X(231))/(JVS(444))
  X(123) = (X(123)-JVS(441)*X(222)-JVS(442)*X(231)-JVS(443)*X(232))/(JVS(440))
  X(122) = (X(122)-JVS(437)*X(230)-JVS(438)*X(231)-JVS(439)*X(232))/(JVS(436))
  X(121) = (X(121)-JVS(432)*X(182)-JVS(433)*X(229)-JVS(434)*X(231))/(JVS(431))
  X(120) = (X(120)-JVS(428)*X(230)-JVS(429)*X(231)-JVS(430)*X(232))/(JVS(427))
  X(119) = (X(119)-JVS(423)*X(164)-JVS(424)*X(229)-JVS(425)*X(231))/(JVS(422))
  X(118) = (X(118)-JVS(419)*X(218)-JVS(420)*X(228)-JVS(421)*X(231))/(JVS(418))
  X(117) = (X(117)-JVS(415)*X(200)-JVS(416)*X(231)-JVS(417)*X(232))/(JVS(414))
  X(116) = (X(116)-JVS(411)*X(217)-JVS(412)*X(228)-JVS(413)*X(231))/(JVS(410))
  X(115) = (X(115)-JVS(407)*X(201)-JVS(408)*X(228)-JVS(409)*X(231))/(JVS(406))
  X(114) = (X(114)-JVS(403)*X(180)-JVS(404)*X(228)-JVS(405)*X(231))/(JVS(402))
  X(113) = (X(113)-JVS(399)*X(188)-JVS(400)*X(231)-JVS(401)*X(232))/(JVS(398))
  X(112) = (X(112)-JVS(395)*X(204)-JVS(396)*X(231)-JVS(397)*X(232))/(JVS(394))
  X(111) = (X(111)-JVS(391)*X(229)-JVS(392)*X(230)-JVS(393)*X(231))/(JVS(390))
  X(110) = (X(110)-JVS(387)*X(230)-JVS(388)*X(231))/(JVS(386))
  X(109) = (X(109)-JVS(382)*X(230)-JVS(383)*X(231))/(JVS(381))
  X(108) = (X(108)-JVS(374)*X(159)-JVS(375)*X(215)-JVS(376)*X(223)-JVS(377)*X(228)-JVS(378)*X(229)-JVS(379)*X(230)&
             &-JVS(380)*X(231))/(JVS(373))
  X(107) = (X(107)-JVS(364)*X(159)-JVS(365)*X(165)-JVS(366)*X(191)-JVS(367)*X(203)-JVS(368)*X(223)-JVS(369)*X(228)&
             &-JVS(370)*X(231))/(JVS(363))
  X(106) = (X(106)-JVS(360)*X(176)-JVS(361)*X(228)-JVS(362)*X(231))/(JVS(359))
  X(105) = (X(105)-JVS(355)*X(174)-JVS(356)*X(202)-JVS(357)*X(229)-JVS(358)*X(231))/(JVS(354))
  X(104) = (X(104)-JVS(350)*X(209)-JVS(351)*X(225)-JVS(352)*X(229)-JVS(353)*X(231))/(JVS(349))
  X(103) = (X(103)-JVS(346)*X(211)-JVS(347)*X(228)-JVS(348)*X(231))/(JVS(345))
  X(102) = (X(102)-JVS(342)*X(211)-JVS(343)*X(229)-JVS(344)*X(231))/(JVS(341))
  X(101) = (X(101)-JVS(338)*X(198)-JVS(339)*X(228)-JVS(340)*X(231))/(JVS(337))
  X(100) = (X(100)-JVS(334)*X(215)-JVS(335)*X(229)-JVS(336)*X(231))/(JVS(333))
  X(99) = (X(99)-JVS(330)*X(185)-JVS(331)*X(229)-JVS(332)*X(231))/(JVS(329))
  X(98) = (X(98)-JVS(326)*X(206)-JVS(327)*X(229)-JVS(328)*X(231))/(JVS(325))
  X(97) = (X(97)-JVS(322)*X(212)-JVS(323)*X(229)-JVS(324)*X(231))/(JVS(321))
  X(96) = (X(96)-JVS(318)*X(184)-JVS(319)*X(228)-JVS(320)*X(231))/(JVS(317))
  X(95) = (X(95)-JVS(314)*X(205)-JVS(315)*X(228)-JVS(316)*X(231))/(JVS(313))
  X(94) = (X(94)-JVS(310)*X(216)-JVS(311)*X(229)-JVS(312)*X(231))/(JVS(309))
  X(93) = (X(93)-JVS(306)*X(210)-JVS(307)*X(228)-JVS(308)*X(231))/(JVS(305))
  X(92) = (X(92)-JVS(302)*X(182)-JVS(303)*X(228)-JVS(304)*X(231))/(JVS(301))
  X(91) = (X(91)-JVS(298)*X(214)-JVS(299)*X(229)-JVS(300)*X(231))/(JVS(297))
  X(90) = (X(90)-JVS(294)*X(210)-JVS(295)*X(229)-JVS(296)*X(231))/(JVS(293))
  X(89) = (X(89)-JVS(290)*X(164)-JVS(291)*X(228)-JVS(292)*X(231))/(JVS(289))
  X(88) = (X(88)-JVS(286)*X(186)-JVS(287)*X(228)-JVS(288)*X(231))/(JVS(285))
  X(87) = (X(87)-JVS(282)*X(201)-JVS(283)*X(231)-JVS(284)*X(232))/(JVS(281))
  X(86) = (X(86)-JVS(278)*X(200)-JVS(279)*X(228)-JVS(280)*X(231))/(JVS(277))
  X(85) = (X(85)-JVS(274)*X(188)-JVS(275)*X(228)-JVS(276)*X(231))/(JVS(273))
  X(84) = (X(84)-JVS(270)*X(156)-JVS(271)*X(229)-JVS(272)*X(231))/(JVS(269))
  X(83) = (X(83)-JVS(266)*X(167)-JVS(267)*X(228)-JVS(268)*X(231))/(JVS(265))
  X(82) = (X(82)-JVS(262)*X(213)-JVS(263)*X(228)-JVS(264)*X(231))/(JVS(261))
  X(81) = (X(81)-JVS(258)*X(220)-JVS(259)*X(228)-JVS(260)*X(231))/(JVS(257))
  X(80) = (X(80)-JVS(253)*X(178)-JVS(254)*X(224)-JVS(255)*X(228)-JVS(256)*X(231))/(JVS(252))
  X(79) = (X(79)-JVS(249)*X(224)-JVS(250)*X(229)-JVS(251)*X(231))/(JVS(248))
  X(78) = (X(78)-JVS(246)*X(162)-JVS(247)*X(231))/(JVS(245))
  X(77) = (X(77)-JVS(240)*X(153)-JVS(241)*X(155)-JVS(242)*X(170)-JVS(243)*X(183)-JVS(244)*X(231))/(JVS(239))
  X(76) = (X(76)-JVS(236)*X(219)-JVS(237)*X(228)-JVS(238)*X(231))/(JVS(235))
  X(75) = (X(75)-JVS(232)*X(215)-JVS(233)*X(228)-JVS(234)*X(231))/(JVS(231))
  X(74) = (X(74)-JVS(228)*X(156)-JVS(229)*X(228)-JVS(230)*X(231))/(JVS(227))
  X(73) = (X(73)-JVS(224)*X(214)-JVS(225)*X(228)-JVS(226)*X(231))/(JVS(223))
  X(72) = (X(72)-JVS(220)*X(158)-JVS(221)*X(228)-JVS(222)*X(231))/(JVS(219))
  X(71) = (X(71)-JVS(216)*X(212)-JVS(217)*X(228)-JVS(218)*X(231))/(JVS(215))
  X(70) = (X(70)-JVS(212)*X(146)-JVS(213)*X(228)-JVS(214)*X(231))/(JVS(211))
  X(69) = (X(69)-JVS(208)*X(222)-JVS(209)*X(228)-JVS(210)*X(231))/(JVS(207))
  X(68) = (X(68)-JVS(204)*X(193)-JVS(205)*X(228)-JVS(206)*X(231))/(JVS(203))
  X(67) = (X(67)-JVS(200)*X(193)-JVS(201)*X(229)-JVS(202)*X(231))/(JVS(199))
  X(66) = (X(66)-JVS(196)*X(198)-JVS(197)*X(229)-JVS(198)*X(231))/(JVS(195))
  X(65) = (X(65)-JVS(192)*X(144)-JVS(193)*X(228)-JVS(194)*X(231))/(JVS(191))
  X(64) = (X(64)-JVS(188)*X(180)-JVS(189)*X(229)-JVS(190)*X(231))/(JVS(187))
  X(63) = (X(63)-JVS(184)*X(228)-JVS(185)*X(231)-JVS(186)*X(232))/(JVS(183))
  X(62) = (X(62)-JVS(180)*X(204)-JVS(181)*X(228)-JVS(182)*X(231))/(JVS(179))
  X(61) = (X(61)-JVS(176)*X(145)-JVS(177)*X(228)-JVS(178)*X(231))/(JVS(175))
  X(60) = (X(60)-JVS(172)*X(148)-JVS(173)*X(228)-JVS(174)*X(231))/(JVS(171))
  X(59) = (X(59)-JVS(168)*X(208)-JVS(169)*X(228)-JVS(170)*X(231))/(JVS(167))
  X(58) = (X(58)-JVS(164)*X(221)-JVS(165)*X(228)-JVS(166)*X(231))/(JVS(163))
  X(57) = (X(57)-JVS(160)*X(206)-JVS(161)*X(228)-JVS(162)*X(231))/(JVS(159))
  X(56) = (X(56)-JVS(156)*X(216)-JVS(157)*X(228)-JVS(158)*X(231))/(JVS(155))
  X(55) = (X(55)-JVS(152)*X(213)-JVS(153)*X(229)-JVS(154)*X(231))/(JVS(151))
  X(54) = (X(54)-JVS(148)*X(218)-JVS(149)*X(229)-JVS(150)*X(231))/(JVS(147))
  X(53) = (X(53)-JVS(143)*X(171)-JVS(144)*X(223)-JVS(145)*X(228)-JVS(146)*X(232))/(JVS(142))
  X(52) = (X(52)-JVS(138)*X(150)-JVS(139)*X(161)-JVS(140)*X(223)-JVS(141)*X(231))/(JVS(137))
  X(51) = (X(51)-JVS(135)*X(216)-JVS(136)*X(231))/(JVS(134))
  X(50) = (X(50)-JVS(131)*X(230)-JVS(132)*X(231)-JVS(133)*X(232))/(JVS(130))
  X(49) = (X(49)-JVS(127)*X(230)-JVS(128)*X(231))/(JVS(126))
  X(48) = (X(48)-JVS(122)*X(230)-JVS(123)*X(231)-JVS(124)*X(232))/(JVS(121))
  X(47) = (X(47)-JVS(118)*X(230)-JVS(119)*X(231))/(JVS(117))
  X(46) = (X(46)-JVS(112)*X(154)-JVS(113)*X(177)-JVS(114)*X(223)-JVS(115)*X(231))/(JVS(111))
  X(45) = (X(45)-JVS(108)*X(116)-JVS(109)*X(231))/(JVS(107))
  X(44) = (X(44)-JVS(105)*X(156)-JVS(106)*X(231))/(JVS(104))
  X(43) = (X(43)-JVS(102)*X(214)-JVS(103)*X(231))/(JVS(101))
  X(42) = (X(42)-JVS(99)*X(109)-JVS(100)*X(231))/(JVS(98))
  X(41) = (X(41)-JVS(96)*X(229)-JVS(97)*X(231))/(JVS(95))
  X(40) = (X(40)-JVS(92)*X(165)-JVS(93)*X(223)-JVS(94)*X(231))/(JVS(91))
  X(39) = (X(39)-JVS(88)*X(102)-JVS(89)*X(103)-JVS(90)*X(231))/(JVS(87))
  X(38) = (X(38)-JVS(85)*X(81)-JVS(86)*X(231))/(JVS(84))
  X(37) = (X(37)-JVS(82)*X(210)-JVS(83)*X(231))/(JVS(81))
  X(36) = (X(36)-JVS(80)*X(231))/(JVS(79))
  X(35) = (X(35)-JVS(77)*X(210)-JVS(78)*X(232))/(JVS(76))
  X(34) = (X(34)-JVS(74)*X(97)-JVS(75)*X(231))/(JVS(73))
  X(33) = (X(33)-JVS(72)*X(231))/(JVS(71))
  X(32) = (X(32)-JVS(69)*X(230)-JVS(70)*X(232))/(JVS(68))
  X(31) = (X(31)-JVS(67)*X(231))/(JVS(66))
  X(30) = (X(30)-JVS(65)*X(231))/(JVS(64))
  X(29) = (X(29)-JVS(63)*X(231))/(JVS(62))
  X(28) = (X(28)-JVS(61)*X(231))/(JVS(60))
  X(27) = (X(27)-JVS(59)*X(231))/(JVS(58))
  X(26) = (X(26)-JVS(57)*X(231))/(JVS(56))
  X(25) = (X(25)-JVS(55)*X(231))/(JVS(54))
  X(24) = (X(24)-JVS(53)*X(231))/(JVS(52))
  X(23) = (X(23)-JVS(51)*X(231))/(JVS(50))
  X(22) = (X(22)-JVS(49)*X(231))/(JVS(48))
  X(21) = (X(21)-JVS(47)*X(231))/(JVS(46))
  X(20) = (X(20)-JVS(45)*X(231))/(JVS(44))
  X(19) = (X(19)-JVS(43)*X(231))/(JVS(42))
  X(18) = (X(18)-JVS(41)*X(231))/(JVS(40))
  X(17) = (X(17)-JVS(39)*X(231))/(JVS(38))
  X(16) = (X(16)-JVS(37)*X(231))/(JVS(36))
  X(15) = (X(15)-JVS(35)*X(231))/(JVS(34))
  X(14) = (X(14)-JVS(33)*X(231))/(JVS(32))
  X(13) = (X(13)-JVS(31)*X(231))/(JVS(30))
  X(12) = (X(12)-JVS(29)*X(231))/(JVS(28))
  X(11) = (X(11)-JVS(27)*X(231))/(JVS(26))
  X(10) = (X(10)-JVS(24)*X(127)-JVS(25)*X(231))/(JVS(23))
  X(9) = (X(9)-JVS(22)*X(231))/(JVS(21))
  X(8) = (X(8)-JVS(20)*X(223))/(JVS(19))
  X(7) = (X(7)-JVS(17)*X(42)-JVS(18)*X(231))/(JVS(16))
  X(6) = (X(6)-JVS(12)*X(53)-JVS(13)*X(110)-JVS(14)*X(228)-JVS(15)*X(231))/(JVS(11))
  X(5) = (X(5)-JVS(8)*X(10)-JVS(9)*X(127)-JVS(10)*X(173))/(JVS(7))
  X(4) = (X(4)-JVS(5)*X(5)-JVS(6)*X(53))/(JVS(4))
  X(3) = X(3)/JVS(3)
  X(2) = X(2)/JVS(2)
  X(1) = X(1)/JVS(1)
      
END SUBROUTINE cri_mosaic_8bin_aq_KppSolve

! End of cri_mosaic_8bin_aq_KppSolve function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! BLAS_UTIL - BLAS-LIKE utility functions
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

!--------------------------------------------------------------
!
! BLAS/LAPACK-like subroutines used by the integration algorithms
! It is recommended to replace them by calls to the optimized
!      BLAS/LAPACK library for your machine
!
!  (C) Adrian Sandu, Aug. 2004
!      Virginia Polytechnic Institute and State University
!--------------------------------------------------------------


!--------------------------------------------------------------
      SUBROUTINE cri_mosaic_8bin_aq_WCOPY(N,X,incX,Y,incY)
!--------------------------------------------------------------
!     copies a vector, x, to a vector, y:  y <- x
!     only for incX=incY=1
!     after BLAS
!     replace this by the function from the optimized BLAS implementation:
!         CALL  SCOPY(N,X,1,Y,1)   or   CALL  DCOPY(N,X,1,Y,1)
!--------------------------------------------------------------
!     USE cri_mosaic_8bin_aq_Precision
      
      INTEGER i,incX,incY,M,MP1,N
      REAL(kind=dp) X(N),Y(N)

      IF (N.LE.0) RETURN

      M = MOD(N,8)
      IF( M .NE. 0 ) THEN
        DO i = 1,M
          Y(i) = X(i)
        END DO
        IF( N .LT. 8 ) RETURN
      END IF    
      MP1 = M+1
      DO i = MP1,N,8
        Y(i) = X(i)
        Y(i + 1) = X(i + 1)
        Y(i + 2) = X(i + 2)
        Y(i + 3) = X(i + 3)
        Y(i + 4) = X(i + 4)
        Y(i + 5) = X(i + 5)
        Y(i + 6) = X(i + 6)
        Y(i + 7) = X(i + 7)
      END DO

      END SUBROUTINE cri_mosaic_8bin_aq_WCOPY


!--------------------------------------------------------------
      SUBROUTINE cri_mosaic_8bin_aq_WAXPY(N,Alpha,X,incX,Y,incY)
!--------------------------------------------------------------
!     constant times a vector plus a vector: y <- y + Alpha*x
!     only for incX=incY=1
!     after BLAS
!     replace this by the function from the optimized BLAS implementation:
!         CALL SAXPY(N,Alpha,X,1,Y,1) or  CALL DAXPY(N,Alpha,X,1,Y,1)
!--------------------------------------------------------------
!      USE cri_mosaic_8bin_aq_Precision

      INTEGER i,incX,incY,M,MP1,N
      REAL(kind=dp) X(N),Y(N),Alpha
      REAL(kind=dp) ZERO
      PARAMETER( ZERO = 0.0_dp )

      IF (Alpha .EQ. ZERO) RETURN
      IF (N .LE. 0) RETURN

      M = MOD(N,4)
      IF( M .NE. 0 ) THEN
        DO i = 1,M
          Y(i) = Y(i) + Alpha*X(i)
        END DO
        IF( N .LT. 4 ) RETURN
      END IF
      MP1 = M + 1
      DO i = MP1,N,4
        Y(i) = Y(i) + Alpha*X(i)
        Y(i + 1) = Y(i + 1) + Alpha*X(i + 1)
        Y(i + 2) = Y(i + 2) + Alpha*X(i + 2)
        Y(i + 3) = Y(i + 3) + Alpha*X(i + 3)
      END DO
      
      END SUBROUTINE cri_mosaic_8bin_aq_WAXPY



!--------------------------------------------------------------
      SUBROUTINE cri_mosaic_8bin_aq_WSCAL(N,Alpha,X,incX)
!--------------------------------------------------------------
!     constant times a vector: x(1:N) <- Alpha*x(1:N) 
!     only for incX=incY=1
!     after BLAS
!     replace this by the function from the optimized BLAS implementation:
!         CALL SSCAL(N,Alpha,X,1) or  CALL DSCAL(N,Alpha,X,1)
!--------------------------------------------------------------
!      USE cri_mosaic_8bin_aq_Precision

      INTEGER i,incX,M,MP1,N
      REAL(kind=dp) X(N),Alpha
      REAL(kind=dp) ZERO, ONE
      PARAMETER( ZERO = 0.0_dp ) 
      PARAMETER( ONE  = 1.0_dp )

      IF (Alpha .EQ. ONE) RETURN
      IF (N .LE. 0) RETURN

      M = MOD(N,5)
      IF( M .NE. 0 ) THEN
        IF (Alpha .EQ. (-ONE)) THEN
          DO i = 1,M
            X(i) = -X(i)
          END DO
        ELSEIF (Alpha .EQ. ZERO) THEN
          DO i = 1,M
            X(i) = ZERO
          END DO
        ELSE
          DO i = 1,M
            X(i) = Alpha*X(i)
          END DO
        END IF
        IF( N .LT. 5 ) RETURN
      END IF
      MP1 = M + 1
      IF (Alpha .EQ. (-ONE)) THEN
        DO i = MP1,N,5
          X(i)     = -X(i)
          X(i + 1) = -X(i + 1)
          X(i + 2) = -X(i + 2)
          X(i + 3) = -X(i + 3)
          X(i + 4) = -X(i + 4)
        END DO
      ELSEIF (Alpha .EQ. ZERO) THEN
        DO i = MP1,N,5
          X(i)     = ZERO
          X(i + 1) = ZERO
          X(i + 2) = ZERO
          X(i + 3) = ZERO
          X(i + 4) = ZERO
        END DO
      ELSE
        DO i = MP1,N,5
          X(i)     = Alpha*X(i)
          X(i + 1) = Alpha*X(i + 1)
          X(i + 2) = Alpha*X(i + 2)
          X(i + 3) = Alpha*X(i + 3)
          X(i + 4) = Alpha*X(i + 4)
        END DO
      END IF

      END SUBROUTINE cri_mosaic_8bin_aq_WSCAL

!--------------------------------------------------------------
      REAL(kind=dp) FUNCTION cri_mosaic_8bin_aq_WLAMCH( C )
!--------------------------------------------------------------
!     returns epsilon machine
!     after LAPACK
!     replace this by the function from the optimized LAPACK implementation:
!          CALL SLAMCH('E') or CALL DLAMCH('E')
!--------------------------------------------------------------
!      USE cri_mosaic_8bin_aq_Precision

      CHARACTER C
      INTEGER   i
      REAL(kind=dp)  ONE, HALF, Eps, Sum
      PARAMETER (ONE  = 1.0_dp)
      PARAMETER (HALF = 0.5_dp)
      LOGICAL   First
      SAVE     First, Eps
      DATA     First /.TRUE./
      
      IF (First) THEN
        First = .FALSE.
        Eps = HALF**(16)
        DO i = 17, 80
          Eps = Eps*HALF
          CALL cri_mosaic_8bin_aq_WLAMCH_ADD(ONE,Eps,Sum)
          IF (Sum.LE.ONE) GOTO 10
        END DO
        PRINT*,'ERROR IN WLAMCH. EPS < ',Eps
        RETURN
10      Eps = Eps*2
        i = i-1      
      END IF

      cri_mosaic_8bin_aq_WLAMCH = Eps

      END FUNCTION cri_mosaic_8bin_aq_WLAMCH
     
      SUBROUTINE cri_mosaic_8bin_aq_WLAMCH_ADD( A, B, Sum )
!      USE cri_mosaic_8bin_aq_Precision
      
      REAL(kind=dp) A, B, Sum
      Sum = A + B

      END SUBROUTINE cri_mosaic_8bin_aq_WLAMCH_ADD
!--------------------------------------------------------------


!--------------------------------------------------------------
      SUBROUTINE cri_mosaic_8bin_aq_SET2ZERO(N,Y)
!--------------------------------------------------------------
!     copies zeros into the vector y:  y <- 0
!     after BLAS
!--------------------------------------------------------------
      
      INTEGER ::  i,M,MP1,N
      REAL(kind=dp) ::  Y(N)
      REAL(kind=dp), PARAMETER :: ZERO = 0.0d0

      IF (N.LE.0) RETURN

      M = MOD(N,8)
      IF( M .NE. 0 ) THEN
        DO i = 1,M
          Y(i) = ZERO
        END DO
        IF( N .LT. 8 ) RETURN
      END IF    
      MP1 = M+1
      DO i = MP1,N,8
        Y(i)     = ZERO
        Y(i + 1) = ZERO
        Y(i + 2) = ZERO
        Y(i + 3) = ZERO
        Y(i + 4) = ZERO
        Y(i + 5) = ZERO
        Y(i + 6) = ZERO
        Y(i + 7) = ZERO
      END DO

      END SUBROUTINE cri_mosaic_8bin_aq_SET2ZERO


!--------------------------------------------------------------
      REAL(kind=dp) FUNCTION cri_mosaic_8bin_aq_WDOT (N, DX, incX, DY, incY) 
!--------------------------------------------------------------
!     dot produce: wdot = x(1:N)*y(1:N) 
!     only for incX=incY=1
!     after BLAS
!     replace this by the function from the optimized BLAS implementation:
!         CALL SDOT(N,X,1,Y,1) or  CALL DDOT(N,X,1,Y,1)
!--------------------------------------------------------------
!      USE messy_mecca_kpp_Precision
!--------------------------------------------------------------
      IMPLICIT NONE
      INTEGER :: N, incX, incY
      REAL(kind=dp) :: DX(N), DY(N) 

      INTEGER :: i, IX, IY, M, MP1, NS
                                 
      cri_mosaic_8bin_aq_WDOT = 0.0D0 
      IF (N .LE. 0) RETURN 
      IF (incX .EQ. incY) IF (incX-1) 5,20,60 
!                                                                       
!     Code for unequal or nonpositive increments.                       
!                                                                       
    5 IX = 1 
      IY = 1 
      IF (incX .LT. 0) IX = (-N+1)*incX + 1 
      IF (incY .LT. 0) IY = (-N+1)*incY + 1 
      DO i = 1,N 
        cri_mosaic_8bin_aq_WDOT = cri_mosaic_8bin_aq_WDOT + DX(IX)*DY(IY) 
        IX = IX + incX 
        IY = IY + incY 
      END DO 
      RETURN 
!                                                                       
!     Code for both increments equal to 1.                              
!                                                                       
!     Clean-up loop so remaining vector length is a multiple of 5.      
!                                                                       
   20 M = MOD(N,5) 
      IF (M .EQ. 0) GO TO 40 
      DO i = 1,M 
         cri_mosaic_8bin_aq_WDOT = cri_mosaic_8bin_aq_WDOT + DX(i)*DY(i) 
      END DO 
      IF (N .LT. 5) RETURN 
   40 MP1 = M + 1 
      DO i = MP1,N,5 
          cri_mosaic_8bin_aq_WDOT = cri_mosaic_8bin_aq_WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) +&
                   DX(i+2)*DY(i+2) +  &
                   DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4)                   
      END DO 
      RETURN 
!                                                                       
!     Code for equal, positive, non-unit increments.                    
!                                                                       
   60 NS = N*incX 
      DO i = 1,NS,incX 
        cri_mosaic_8bin_aq_WDOT = cri_mosaic_8bin_aq_WDOT + DX(i)*DY(i) 
      END DO 

      END FUNCTION cri_mosaic_8bin_aq_WDOT                                          
! End of BLAS_UTIL function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


END MODULE cri_mosaic_8bin_aq_Integrator
