#FUNCTION AGGREGATE
#JACOBIAN SPARSE_LU_ROW

#DOUBLE ON 
#INTFILE rosenbrock_soa

#INLINE F90_GLOBAL
      INTEGER Autonomous
      COMMON /INTGDATA/ Autonomous
      REAL*8 STEPSTART
      COMMON /GDATA/ STEPSTART
#ENDINLINE

#INLINE F90_INIT
       STEPMIN=0.0001
       STEPMAX=3600.
       Autonomous = 1 
       STEPSTART=STEPMIN
#ENDINLINE