      subroutine user_ana1
c
c user pass 1 analysis
c
      implicit none
c
      print *,' *** user pass 1 analysis done'
c
      end
