//      LAPACK++ (V. 1.1)//      (C) 1992-1996 All Rights Reserved.// General Utilities that should have been included in C++//#ifndef _LA_UTIL_H_#define _LA_UTIL_H_#include "f2c.h"// only callable from C-Lapack due to added ftnlen parameters by f2c; extern "C"     int ilaenv_(int *i, const char *n, const char *opts,         int *n1, int *n2, int *n3, int *n4,         ftnlen n_len, ftnlen opts_len);#ifdef _LA_GEN_MAT_DOUBLE_H_    #ifdef _LA_VECTOR_LONG_INT_H_void LaSwap(LaGenMatDouble &A, LaVectorLongInt &ipiv);    #endifint LaEnvBlockSize(const char *fname, const LaGenMatDouble &A);#endif#ifdef _LA_SYMM_MAT_DOUBLE_H_int LaEnvBlockSize(const char *fname, const LaSymmMatDouble &A);#endifdouble Mach_eps_double();#endif     // _LA_UTIL_H_