1subroutine memory_snapshot(str)
2 use m_rusage, only :  rss_max
3
4 character(len=*), intent(in) :: str
5
6 write(6,"(a,f12.2)") " &m -- Max memory " // trim(str), rss_max()
7
8end subroutine memory_snapshot
9