      subroutine user_ini
c
c user initialization
c
      implicit none
c
      print *, ' *** user initialization done'
c
      end
