subroutine echoin(time)
c
c Write initial conditions
c
      implicit none
      include 'itg.par'
      include 'itg.cmn'
      real time(mz),dtmin
      integer n
      
      include 'wdat.nml'
c
      write(9,wdat)
      write(9,1100) (nrr(n),mmin(n),mmax(n),n=1,nd)
 1100 format(3x,'at n =',i4,5x,'mmin =',i4,3x,'mmax =',i4)
c
c Bombing right now so kill it.  bdorland 2/1/94
c
c      call oplot(tim)
      return
      end