subroutine eprint
  c
  c  this subroutine prints the last error message, if any.
  c
        integer messg(1)
  c
        call e9rint(messg,1,1,.false.)
        return
  c
        end