
#FUNCTION AGGREGATE
#JACOBIAN SPARSE_LU_ROW

#DOUBLE ON 
#INTFILE ros3_old

#INLINE F77_GLOBAL
      INTEGER ISNOTAUTONOM
      COMMON /INTGDATA/ ISNOTAUTONOM
      REAL*8 STEPSTART
      COMMON /GDATA/ STEPSTART
#ENDINLINE

#INLINE F77_INIT
        STEPMIN=0.0001
        STEPMAX=3600.
        ISNOTAUTONOM=1
        STEPSTART=STEPMIN
#ENDINLINE
