#FUNCTION AGGREGATE
#JACOBIAN FULL
#DOUBLE ON 
#INTFILE atm_lsodes

#INLINE F77_GLOBAL
      REAL*8 STEPSTART
      COMMON /GDATA/ STEPSTART
#ENDINLINE

#INLINE F77_INIT
        STEPMIN=1.D-12
        STEPMAX=3600.
        STEPSTART=STEPMIN
#ENDINLINE