r8mat_expm1.cpp