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