subroutine usrend * * $Log: usrend.f,v $ * Revision 1.1 1994/06/14 20:42:02 cdaq * Initial revision * * implicit none save character*6 here parameter (here='usrend') * logical ABORT character*800 err * call g_proper_shutdown(ABORT,err) * if(ABORT .or. err.ne.' ') then call g_add_path(here,err) call dalogmsg(err) endif * * Do we need to rename the run? * return end