//
//  Real functions.
//
double *r8mat_expm1 ( int n, double a[] );