      subroutine user_ter
c
c user termination
c
      implicit none
c
      print *, ' *** user termination done'
c
      end
