!$Author: fredfox $
!$Date: 2005-02-01 22:58:52 $
!$Revision: 1.4 $
!$Source: /weru/cvs/weps/weps.src/inc/hydro/lsoda.inc,v $

!     common declarations for lsoda code

      real  ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround
      integer icf, ierpj, iersl, jcur, jstart, kflag, l,                &
     &   lyh, lewt, lacor, lsavf, lwm, liwm, meth, miter,               &
     &   maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu
      real pdnorm
      integer jtyp, mused, mxordn, mxords

      common /sls001/ ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround,    &
     &   icf, ierpj, iersl, jcur, jstart, kflag, l,                     &
     &   lyh, lewt, lacor, lsavf, lwm, liwm, meth, miter,               &
     &   maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu

      common /slsa01/ pdnorm, jtyp, mused, mxordn, mxords