!$Author: fredfox $
!$Date: 2011-04-27 10:01:11 -0500 (Wed, 27 Apr 2011) $
!$Revision: 11825 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/hydro/lsoda.inc $

!     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

      save :: /sls001/, /slsa01/