      subroutine user_ini1
c
c user initialization for pass 1
c
      implicit none
c
c user code
c
      end
