      subroutine user_ana3
c
c user pass 3 analysis
c
      implicit none
c
      print *,' *** user pass 3 analysis done'
c
      end
