#FUNCTION AGGREGATE #JACOBIAN SPARSE_LU_ROW #DOUBLE ON #INTFILE rosenbrock_adj #INLINE F77_GLOBAL INTEGER Autonomous COMMON /INTGDATA/ Autonomous REAL*8 STEPSTART COMMON /GDATA/ STEPSTART #ENDINLINE #INLINE F77_INIT STEPMIN=0.0001 STEPMAX=3600. Autonomous = 1 STEPSTART=STEPMIN #ENDINLINE