subroutine oplot(tim)
c
      implicit none
      include 'itg.par'
      include 'itg.cmn'
      real tim
c
c     print initialization data
      call wprint(density,'* density *')
      call wprint(potential,'* potential *')
      return
      end