/* clang-format off */
//ff-c++-LIBRARY-dep: cxx11
//ff-c++-cpp-dep:
/* clang-format on */

// -*- C++ -*-
// Time-stamp: "2018-07-05 14:34:38 fujiwara"
// $Id$
// Author: fujiwara@acs.i.kyoto-u.ac.jp
//----------------------------------------------------------------------
//  Get Linear Equation from FreeFem++ in the HB (Harwell-Boeing) format
//  Japan SIAM, Nagoya, Sept. 2018
//----------------------------------------------------------------------
#include <iostream>
#include <cstdlib>
#include <fstream>
#include <complex>
#include <type_traits>
#include <cstdio>
#include "ff++.hpp"
#include "AFunction_ext.hpp"

#define MM_MAX_LINE_LENGTH 1025
#define MatrixMarketBanner "%%MatrixMarket"
#define MatrixMarketBannerBinary "%%MatrixMarketBinary"
#define MM_MAX_TOKEN_LENGTH 64

typedef char MM_typecode[4];

char *mm_typecode_to_str(MM_typecode matcode);

int mm_read_banner(FILE *f, MM_typecode *matcode);
int mm_read_mtx_crd_size(FILE *f, int *M, int *N, int *nz);
int mm_read_mtx_array_size(FILE *f, int *M, int *N);

int mm_write_banner(FILE *f, MM_typecode matcode);
int mm_write_mtx_crd_size(FILE *f, int M, int N, int nz);
int mm_write_mtx_array_size(FILE *f, int M, int N);


/********************* MM_typecode query fucntions ***************************/

#define mm_is_matrix(typecode)    ((typecode)[0]=='M')

#define mm_is_sparse(typecode)    ((typecode)[1]=='C')
#define mm_is_coordinate(typecode)((typecode)[1]=='C')
#define mm_is_dense(typecode)    ((typecode)[1]=='A')
#define mm_is_array(typecode)    ((typecode)[1]=='A')

#define mm_is_complex(typecode)    ((typecode)[2]=='C')
#define mm_is_real(typecode)        ((typecode)[2]=='R')
#define mm_is_pattern(typecode)    ((typecode)[2]=='P')
#define mm_is_integer(typecode) ((typecode)[2]=='I')

#define mm_is_symmetric(typecode)((typecode)[3]=='S')
#define mm_is_general(typecode)    ((typecode)[3]=='G')
#define mm_is_skew(typecode)    ((typecode)[3]=='K')
#define mm_is_hermitian(typecode)((typecode)[3]=='H')

int mm_is_valid(MM_typecode matcode);        /* too complex for a macro */


/********************* MM_typecode modify fucntions ***************************/

#define mm_set_matrix(typecode)    ((*typecode)[0]='M')
#define mm_set_coordinate(typecode)    ((*typecode)[1]='C')
#define mm_set_array(typecode)    ((*typecode)[1]='A')
#define mm_set_dense(typecode)    mm_set_array(typecode)
#define mm_set_sparse(typecode)    mm_set_coordinate(typecode)

#define mm_set_complex(typecode)((*typecode)[2]='C')
#define mm_set_real(typecode)    ((*typecode)[2]='R')
#define mm_set_pattern(typecode)((*typecode)[2]='P')
#define mm_set_integer(typecode)((*typecode)[2]='I')


#define mm_set_symmetric(typecode)((*typecode)[3]='S')
#define mm_set_general(typecode)((*typecode)[3]='G')
#define mm_set_skew(typecode)    ((*typecode)[3]='K')
#define mm_set_hermitian(typecode)((*typecode)[3]='H')

#define mm_clear_typecode(typecode) ((*typecode)[0]=(*typecode)[1]= \
                                    (*typecode)[2]=' ',(*typecode)[3]='G')

#define mm_initialize_typecode(typecode) mm_clear_typecode(typecode)


/********************* Matrix Market error codes ***************************/


#define MM_COULD_NOT_READ_FILE    11
#define MM_PREMATURE_EOF        12
#define MM_NOT_MTX                13
#define MM_NO_HEADER            14
#define MM_UNSUPPORTED_TYPE        15
#define MM_LINE_TOO_LONG        16
#define MM_COULD_NOT_WRITE_FILE    17
#define MM_BINARY_FILE    99


/******************** Matrix Market internal definitions ********************

   MM_matrix_typecode: 4-character sequence

                    ojbect         sparse/       data        storage
                                  dense         type        scheme

   string position:     [0]        [1]            [2]         [3]

   Matrix typecode:  M(atrix)  C(oord)        R(eal)       G(eneral)
                                A(array)    C(omplex)   H(ermitian)
                                            P(attern)   S(ymmetric)
                                            I(nteger)    K(kew)

 ***********************************************************************/

#define MM_MTX_STR        "matrix"
#define MM_ARRAY_STR    "array"
#define MM_DENSE_STR    "array"
#define MM_COORDINATE_STR "coordinate"
#define MM_SPARSE_STR    "coordinate"
#define MM_COMPLEX_STR    "complex"
#define MM_REAL_STR        "real"
#define MM_INT_STR        "integer"
#define MM_GENERAL_STR  "general"
#define MM_SYMM_STR        "symmetric"
#define MM_HERM_STR        "hermitian"
#define MM_SKEW_STR        "skew-symmetric"
#define MM_PATTERN_STR  "pattern"


/*  high level routines */

int mm_write_mtx_crd(char fname[], int M, int N, int nz, int I[], int J[],
         double val[], MM_typecode matcode,bool bin);
int mm_read_mtx_crd_data(FILE *f, int M, int N, int nz, int I[], int J[],
        double val[], MM_typecode matcode);
int mm_read_mtx_crd_entry(FILE *f, int *I, int *J, double *real, double *img,
            MM_typecode matcode);

int mm_read_unsymmetric_sparse(const char *fname, int *M_, int *N_, int *nz_,
                double **val_, int **I_, int **J_);



#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>

		//#include "mmio.h"
// for binary file
struct IJR { int i,j; double v;};
struct IJC { int i,j; double v, iv;};

int mm_read_unsymmetric_sparse(const char *fname, int *M_, int *N_, int *nz_,
                double **val_, int **I_, int **J_)
{
    FILE *f;
    MM_typecode matcode;
    int M, N, nz;
    int i;
    double *val;
    int *I, *J;
 
    if ((f = fopen(fname, "rb")) == NULL)
            return -1;
 
 
    if (mm_read_banner(f, &matcode) != 0)
    {
        printf("mm_read_unsymetric: Could not process Matrix Market banner ");
        printf(" in file [%s]\n", fname);
        return -1;
    }
 
 
 
    if ( !(mm_is_real(matcode) && mm_is_matrix(matcode) &&
            mm_is_sparse(matcode)))
    {
        fprintf(stderr, "Sorry, this application does not support ");
        fprintf(stderr, "Market Market type: [%s]\n",
                mm_typecode_to_str(matcode));
        return -1;
    }
 
    /* find out size of sparse matrix: M, N, nz .... */
 
    if (mm_read_mtx_crd_size(f, &M, &N, &nz) !=0)
    {
        fprintf(stderr, "read_unsymmetric_sparse(): could not parse matrix size.\n");
        return -1;
    }
 
    *M_ = M;
    *N_ = N;
    *nz_ = nz;
 
    /* reseve memory for matrices */
 
    I = (int *) malloc(nz * sizeof(int));
    J = (int *) malloc(nz * sizeof(int));
    val = (double *) malloc(nz * sizeof(double));
 
    *val_ = val;
    *I_ = I;
    *J_ = J;
 
    /* NOTE: when reading in doubles, ANSI C requires the use of the "l"  */
    /*   specifier as in "%lg", "%lf", "%le", otherwise errors will occur */
    /*  (ANSI C X3.159-1989, Sec. 4.9.6.2, p. 136 lines 13-15)            */
 
    for (i=0; i<nz; i++)
    {
        fscanf(f, "%d %d %lg\n", &I[i], &J[i], &val[i]);
        I[i]--;  /* adjust from 1-based to 0-based */
        J[i]--;
    }
    fclose(f);
 
    return 0;
}

int mm_is_valid(MM_typecode matcode)
{
    if (!mm_is_matrix(matcode)) return 0;
    if (mm_is_dense(matcode) && mm_is_pattern(matcode)) return 0;
    if (mm_is_real(matcode) && mm_is_hermitian(matcode)) return 0;
    if (mm_is_pattern(matcode) && (mm_is_hermitian(matcode) ||
                mm_is_skew(matcode))) return 0;
    return 1;
}

int mm_read_banner(FILE *f, MM_typecode *matcode)
{
    char line[MM_MAX_LINE_LENGTH];
    char banner[MM_MAX_TOKEN_LENGTH];
    char mtx[MM_MAX_TOKEN_LENGTH];
    char crd[MM_MAX_TOKEN_LENGTH];
    char data_type[MM_MAX_TOKEN_LENGTH];
    char storage_scheme[MM_MAX_TOKEN_LENGTH];
    char *p;
    int binary=0; 

    mm_clear_typecode(matcode);

    if (fgets(line, MM_MAX_LINE_LENGTH, f) == NULL)
        return MM_PREMATURE_EOF;

    if (sscanf(line, "%s %s %s %s %s", banner, mtx, crd, data_type,
        storage_scheme) != 5)
        return MM_PREMATURE_EOF;

    for (p=mtx; *p!='\0'; *p=tolower(*p),p++);  /* convert to lower case */
    for (p=crd; *p!='\0'; *p=tolower(*p),p++);
    for (p=data_type; *p!='\0'; *p=tolower(*p),p++);
    for (p=storage_scheme; *p!='\0'; *p=tolower(*p),p++);

    /* check for banner */
   if(verbosity>999) cout << " banner = "<< banner << " "
     << strncmp(banner, MatrixMarketBannerBinary, strlen(MatrixMarketBannerBinary)) << " "
     << strncmp(banner, MatrixMarketBanner      , strlen(MatrixMarketBanner))
                      << endl;
    if (strncmp(banner, MatrixMarketBannerBinary, strlen(MatrixMarketBannerBinary)) == 0)
    { binary= MM_BINARY_FILE; }
    else if (strncmp(banner, MatrixMarketBanner, strlen(MatrixMarketBanner)) == 0)
    {   binary=0; }
    else
               return MM_NO_HEADER;
    
    /* first field should be "mtx" */
    if (strcmp(mtx, MM_MTX_STR) != 0)
        return  MM_UNSUPPORTED_TYPE;
    mm_set_matrix(matcode);


    /* second field describes whether this is a sparse matrix (in coordinate
            storgae) or a dense array */


    if (strcmp(crd, MM_SPARSE_STR) == 0)
        mm_set_sparse(matcode);
    else
    if (strcmp(crd, MM_DENSE_STR) == 0)
            mm_set_dense(matcode);
    else
        return MM_UNSUPPORTED_TYPE;
    

    /* third field */

    if (strcmp(data_type, MM_REAL_STR) == 0)
        mm_set_real(matcode);
    else
    if (strcmp(data_type, MM_COMPLEX_STR) == 0)
        mm_set_complex(matcode);
    else
    if (strcmp(data_type, MM_PATTERN_STR) == 0)
        mm_set_pattern(matcode);
    else
    if (strcmp(data_type, MM_INT_STR) == 0)
        mm_set_integer(matcode);
    else
        return MM_UNSUPPORTED_TYPE;
    

    /* fourth field */

    if (strcmp(storage_scheme, MM_GENERAL_STR) == 0)
        mm_set_general(matcode);
    else
    if (strcmp(storage_scheme, MM_SYMM_STR) == 0)
        mm_set_symmetric(matcode);
    else
    if (strcmp(storage_scheme, MM_HERM_STR) == 0)
        mm_set_hermitian(matcode);
    else
    if (strcmp(storage_scheme, MM_SKEW_STR) == 0)
        mm_set_skew(matcode);
    else
        return MM_UNSUPPORTED_TYPE;
        

    return binary;
}

int mm_write_mtx_crd_size(FILE *f, int M, int N, int nz)
{
    if (fprintf(f, "%d %d %d\n", M, N, nz) != 3)
        return MM_COULD_NOT_WRITE_FILE;
    else
        return 0;
}

int mm_read_mtx_crd_size(FILE *f, int *M, int *N, int *nz )
{
    char line[MM_MAX_LINE_LENGTH];
    int num_items_read;

    /* set return null parameter values, in case we exit with errors */
    *M = *N = *nz = 0;

    /* now continue scanning until you reach the end-of-comments */
    do
    {
        if (fgets(line,MM_MAX_LINE_LENGTH,f) == NULL)
            return MM_PREMATURE_EOF;
    }while (line[0] == '%');

    /* line[] is either blank or has M,N, nz */
    if (sscanf(line, "%d %d %d", M, N, nz) == 3)
        return 0;
        
    else
    do
    {
        num_items_read = fscanf(f, "%d %d %d", M, N, nz);
        if (num_items_read == EOF) return MM_PREMATURE_EOF;
    }
    while (num_items_read != 3);

    return 0;
}


int mm_read_mtx_array_size(FILE *f, int *M, int *N)
{
    char line[MM_MAX_LINE_LENGTH];
    int num_items_read;
    /* set return null parameter values, in case we exit with errors */
    *M = *N = 0;
    
    /* now continue scanning until you reach the end-of-comments */
    do
    {
        if (fgets(line,MM_MAX_LINE_LENGTH,f) == NULL)
            return MM_PREMATURE_EOF;
    }while (line[0] == '%');

    /* line[] is either blank or has M,N, nz */
    if (sscanf(line, "%d %d", M, N) == 2)
        return 0;
        
    else /* we have a blank line */
    do
    {
        num_items_read = fscanf(f, "%d %d", M, N);
        if (num_items_read == EOF) return MM_PREMATURE_EOF;
    }
    while (num_items_read != 2);

    return 0;
}

int mm_write_mtx_array_size(FILE *f, int M, int N)
{
    if (fprintf(f, "%d %d\n", M, N) != 2)
        return MM_COULD_NOT_WRITE_FILE;
    else
        return 0;
}



/*-------------------------------------------------------------------------*/

/******************************************************************/
/* use when I[], J[], and val[]J, and val[] are already allocated */
/******************************************************************/

int mm_read_mtx_crd_data(FILE *f, int M, int N, int nz, int I[], int J[],
        double val[], MM_typecode matcode)
{
    int i;
    if (mm_is_complex(matcode))
    {
        for (i=0; i<nz; i++)
            if (fscanf(f, "%d %d %lg %lg", &I[i], &J[i], &val[2*i], &val[2*i+1])
                != 4) return MM_PREMATURE_EOF;
    }
    else if (mm_is_real(matcode))
    {
        for (i=0; i<nz; i++)
        {
            if (fscanf(f, "%d %d %lg\n", &I[i], &J[i], &val[i])
                != 3) return MM_PREMATURE_EOF;

        }
    }

    else if (mm_is_pattern(matcode))
    {
        for (i=0; i<nz; i++)
            if (fscanf(f, "%d %d", &I[i], &J[i])
                != 2) return MM_PREMATURE_EOF;
    }
    else
        return MM_UNSUPPORTED_TYPE;

    return 0;
        
}

int mm_read_mtx_crd_entry(FILE *f, int *I, int *J,
        double *real, double *imag, MM_typecode matcode)
{
    if (mm_is_complex(matcode))
    {
            if (fscanf(f, "%d %d %lg %lg", I, J, real, imag)
                != 4) return MM_PREMATURE_EOF;
    }
    else if (mm_is_real(matcode))
    {
            if (fscanf(f, "%d %d %lg\n", I, J, real)
                != 3) return MM_PREMATURE_EOF;

    }

    else if (mm_is_pattern(matcode))
    {
            if (fscanf(f, "%d %d", I, J) != 2) return MM_PREMATURE_EOF;
    }
    else
        return MM_UNSUPPORTED_TYPE;
     return 0;
        
}


int mm_readb_mtx_crd_entry(FILE *f, int *I, int *J,
        double *real, double *imag, MM_typecode matcode)
{
    long lgr;
    IJC ijc;
    IJR ijr;
    struct IJ  { int i,j;};
    IJ ij;
 
    if (mm_is_complex(matcode))
    {
        
      if(fread(&ijc,sizeof(IJC),1,f) != 1)
        return MM_PREMATURE_EOF;
        *I=ijc.i;
        *J=ijc.j;
        *real=ijc.v;
        *imag=ijc.iv;
        if(verbosity>9999) cout << ijc.i <<" " << ijc.j << " " << ijc.v << " :: "  << *I << " " << *J << " " << *real << " " << *imag << endl;

    }
    else if (mm_is_real(matcode))
    {
        lgr=fread(&ijr,sizeof(IJR),1,f);
        if( lgr != 1)
          return MM_PREMATURE_EOF;
        *I=ijr.i;
        *J=ijr.j;
        *real=ijr.v;
       if(verbosity>9999) cout << ijr.i <<" " << ijr.j << " " << ijr.v << " :: " << *I << " " << *J << " " << *real << " " << sizeof(IJR) << endl;

    }

    else if (mm_is_pattern(matcode))
    {
        if(fread(&ij,sizeof(IJ),1,f) != 1)
          return MM_PREMATURE_EOF;
          *I=ij.i;
          *J=ij.j;
     }
    else
        return MM_UNSUPPORTED_TYPE;

    return 0;
        
}
int mm_read_mtx_crd_entry(bool bin, FILE *f, int *I, int *J,double *v, MM_typecode matcode)
{   double vi;
    if(bin) return mm_readb_mtx_crd_entry(f,I,J,v,&vi,matcode);
    else return mm_read_mtx_crd_entry(f,I,J,v,&vi,matcode);
}
int mm_read_mtx_crd_entry(bool bin, FILE *f, int *I, int *J,complex<double> *v, MM_typecode matcode)
{
    double vr,vi;
    int rt=0;
    if(bin)  rt= mm_readb_mtx_crd_entry(f,I,J,&vr,&vi,matcode);
    else rt= mm_read_mtx_crd_entry(f,I,J,&vr,&vi,matcode);
    if(rt==0) *v = complex<double>(vr,vi);
    else *v =complex<double>();
    return rt;
}

/************************************************************************
    mm_read_mtx_crd()  fills M, N, nz, array of values, and return
                        type code, e.g. 'MCRS'

                        if matrix is complex, values[] is of size 2*nz,
                            (nz pairs of real/imaginary values)
************************************************************************/

int mm_read_mtx_crd(const char *fname, int *M, int *N, int *nz, int **I, int **J,
        double **val, MM_typecode *matcode)
{
    int ret_code;
    FILE *f;

    if (strcmp(fname, "stdin") == 0) f=stdin;
    else
    if ((f = fopen(fname, "rb")) == NULL)
        return MM_COULD_NOT_READ_FILE;


    if ((ret_code = mm_read_banner(f, matcode)) != 0)
        return ret_code;

    if (!(mm_is_valid(*matcode) && mm_is_sparse(*matcode) &&
            mm_is_matrix(*matcode)))
        return MM_UNSUPPORTED_TYPE;

    if ((ret_code = mm_read_mtx_crd_size(f, M, N, nz)) != 0)
        return ret_code;


    *I = (int *)  malloc(*nz * sizeof(int));
    *J = (int *)  malloc(*nz * sizeof(int));
    *val = NULL;

    if (mm_is_complex(*matcode))
    {
        *val = (double *) malloc(*nz * 2 * sizeof(double));
        ret_code = mm_read_mtx_crd_data(f, *M, *N, *nz, *I, *J, *val,
                *matcode);
        if (ret_code != 0) return ret_code;
    }
    else if (mm_is_real(*matcode))
    {
        *val = (double *) malloc(*nz * sizeof(double));
        ret_code = mm_read_mtx_crd_data(f, *M, *N, *nz, *I, *J, *val,
                *matcode);
        if (ret_code != 0) return ret_code;
    }

    else if (mm_is_pattern(*matcode))
    {
        ret_code = mm_read_mtx_crd_data(f, *M, *N, *nz, *I, *J, *val,
                *matcode);
        if (ret_code != 0) return ret_code;
    }

    if (f != stdin) fclose(f);
    return 0;
}

int mm_write_banner(FILE *f, MM_typecode matcode)
{
    char *str = mm_typecode_to_str(matcode);
    int ret_code;

    ret_code = fprintf(f, "%s %s\n", MatrixMarketBanner, str);
    free(str);
    if (ret_code !=2 )
        return MM_COULD_NOT_WRITE_FILE;
    else
        return 0;
}

int mm_write_mtx_crd(const char fname[], int M, int N, int nz, int I[], int J[],
        double val[], MM_typecode matcode,bool bin)
{

    FILE *f;
    int i;

    if (strcmp(fname, "stdout") == 0)
        f = stdout;
    else
    if ((f = fopen(fname, "wb")) == NULL)
        return MM_COULD_NOT_WRITE_FILE;
    
    /* print banner followed by typecode */
    if(bin)
	fprintf(f, "%s ", MatrixMarketBannerBinary);
    else  
	fprintf(f, "%s ", MatrixMarketBanner);
		   
   
    fprintf(f, "%s\n", mm_typecode_to_str(matcode));

    /* print matrix sizes and nonzeros */
    fprintf(f, "%d %d %d\n", M, N, nz);

    /* print values */
    if (mm_is_pattern(matcode))
        for (i=0; i<nz; i++)
            fprintf(f, "%d %d\n", I[i]+1, J[i]+1);
    else
    {
    if(bin)
    {
        if (mm_is_real(matcode))
            for (i=0; i<nz; i++)
            {
                IJR ijr= {I[i]+1,J[i]+1,val[i]};
                fwrite(&ijr,sizeof(ijr),1,f);
            }
        
        else if (mm_is_complex(matcode))
            for (i=0; i<nz; i++)
            {
                IJC ijc= {I[i]+1,J[i]+1,val[2*i],val[2*i+1]};
                fwrite(&ijc,sizeof(ijc),1,f);
            }
        else
            {
                if (f != stdout) fclose(f);
                return MM_UNSUPPORTED_TYPE;
            }
    }
    else
    if (mm_is_real(matcode))
        for (i=0; i<nz; i++)
            fprintf(f, "%d %d %20.16g\n", I[i]+1, J[i]+1, val[i]);
    else
    if (mm_is_complex(matcode))
        for (i=0; i<nz; i++)
            fprintf(f, "%d %d %20.16g %20.16g\n", I[i]+1, J[i]+1, val[2*i],
                        val[2*i+1]);
    else
    {
        if (f != stdout) fclose(f);
        return MM_UNSUPPORTED_TYPE;
    }
    }

    if (f !=stdout) fclose(f);

    return 0;
}
  

/**
*  Create a new copy of a string s.  mm_strdup() is a common routine, but
*  not part of ANSI C, so it is included here.  Used by mm_typecode_to_str().
*
*/
char *mm_strdup(const char *s)
{
    int len = strlen(s);
    char *s2 = (char *) malloc((len+1)*sizeof(char));
    return strcpy(s2, s);
}

char  *mm_typecode_to_str(MM_typecode matcode)
{
    char buffer[MM_MAX_LINE_LENGTH];
    const char *types[4];
    char *mm_strdup(const char *);
    int error =0;

    /* check for MTX type */
    if (mm_is_matrix(matcode))
        types[0] = MM_MTX_STR;
    else
        error=1;

    /* check for CRD or ARR matrix */
    if (mm_is_sparse(matcode))
        types[1] = MM_SPARSE_STR;
    else
    if (mm_is_dense(matcode))
        types[1] = MM_DENSE_STR;
    else
        return NULL;

    /* check for element data type */
    if (mm_is_real(matcode))
        types[2] = MM_REAL_STR;
    else
    if (mm_is_complex(matcode))
        types[2] = MM_COMPLEX_STR;
    else
    if (mm_is_pattern(matcode))
        types[2] = MM_PATTERN_STR;
    else
    if (mm_is_integer(matcode))
        types[2] = MM_INT_STR;
    else
        return NULL;


    /* check for symmetry type */
    if (mm_is_general(matcode))
        types[3] = MM_GENERAL_STR;
    else
    if (mm_is_symmetric(matcode))
        types[3] = MM_SYMM_STR;
    else
    if (mm_is_hermitian(matcode))
        types[3] = MM_HERM_STR;
    else
    if (mm_is_skew(matcode))
        types[3] = MM_SKEW_STR;
    else
        return NULL;

    snprintf(buffer, MM_MAX_LINE_LENGTH, "%s %s %s %s", types[0], types[1], types[2], types[3]);
    return mm_strdup(buffer);

}


template< typename R >
long savemtx(std::string *const &hb_filename, Matrice_Creuse< R > *const &sparse_mat,bool const & bin) {

    
  MatriceMorse< R > *A = sparse_mat->pHM( );

  const bool isDouble = sizeof(R) == sizeof(double);    // std::is_floating_point<R>::value;
  std::cout << "Savemtx : filename = " << hb_filename->c_str( ) << " " << isDouble <<std::endl;
    const int N = A->N;
    const int M = A->M;

    if(verbosity) std::cout << "SaveMTX : # of unknowns = " << N << std::endl;

    const int nz = A->nnz;

    if(verbosity)  std::cout << "SaveMTX : # of non-zero entries in A = " << nz << std::endl;
    int *I, *J;
    R *valr;
    A->COO(I, J, valr);
    double *val = reinterpret_cast<double*>( valr);

    MM_typecode matcode;
     int i;

     mm_initialize_typecode(&matcode);
     mm_set_matrix(&matcode);
     mm_set_coordinate(&matcode);
    if( isDouble )
     mm_set_real(&matcode);
    else
     mm_set_complex(&matcode);
                   
    mm_write_mtx_crd(hb_filename->c_str( ),N,M,nz,I,J,val,matcode,bin);
 
    return nz;
    
}
template< typename R >
long savemtx(std::string *const &hb_filename, Matrice_Creuse< R > *const &sparse_mat) {
    return savemtx(hb_filename,sparse_mat,false);
};

template< typename R >
long readmtx(const char *fname, MatriceMorse<R> *&pA,bool  bin)
{
    //
    ffassert(pA==0);// matrice vide
    const bool isDouble = sizeof(R) == sizeof(double);  
    int N,M,nz;
    int ret_code;
    FILE *f;
    MM_typecode matcode;
    
    if (strcmp(fname, "stdin") == 0) f=stdin;
    else
    if ((f = fopen(fname, "rb")) == NULL)
        return MM_COULD_NOT_READ_FILE;


     ret_code = mm_read_banner(f, &matcode);
 
     if( ret_code == MM_BINARY_FILE ) bin = true; 
     else if( ret_code != 0 )  
	  return ret_code;

    if (!(mm_is_valid(matcode) && mm_is_sparse(matcode) &&
            mm_is_matrix(matcode)))
        return MM_UNSUPPORTED_TYPE;

    if ((ret_code = mm_read_mtx_crd_size(f, &M, &N, &nz)) != 0)
        return ret_code;
    cout << " build matrix "<< M << "x" << N << " nnz =" << nz << " bin = " << bin << " fname = " << fname << endl;
    pA = new MatriceMorse<R>(M,N,nz,0);
    
    int I,J,val,vali;
    {  R V;
        
        for(int k=0; k< nz; ++k)
        {
            
            int code= mm_read_mtx_crd_entry(bin,f,&I,&J,&V,matcode);
            if(verbosity >999) cout <<" error code " <<  code << " " << k  << endl;
            ffassert(code ==0);
            ffassert(I>0 && J >0);
            if(verbosity >1999)  cout << " -- " <<k << " " <<  I <<" " << J << " " << V << endl;
            assert(I<=M && J <=N);

            (*pA)(I-1,J-1)= V;
        }
    }
    return 0;
};

template< typename R >
long readmtx(const char *fname, Matrice_Creuse< R > *const &sparse_mat,bool  bin)
{
    sparse_mat->typemat=0; //TypeSolveMat(TypeSolveMat::NONESQUARE); //  none square matrice (morse)
    MatriceMorse< R > * pm=0;
    ffassert(readmtx(fname,pm,bin)==0);
    sparse_mat->A.master(pm);
    return 0;
}

template< typename R >
long readmtx(std::string *const &hb_filename, Matrice_Creuse< R > *const &sparse_mat,bool const & bin)
{
    return readmtx(hb_filename->c_str(),sparse_mat,bin);
}
template< typename R >
long readmtx(std::string *const &hb_filename, Matrice_Creuse< R > *const &sparse_mat) {
            return readmtx(hb_filename->c_str(),sparse_mat,false);
                   };

static void Load_Init( ) {    // le constructeur qui ajoute la fonction "splitmesh3"  a freefem++
  if (verbosity) {
    cout << " load: SaveHB  " << endl;
  }

    Global.Add(
      "savemtx", "(", new OneOperator2_< long, string *, Matrice_Creuse< double > * >(
        savemtx));
    Global.Add(
      "savemtx", "(", new OneOperator3_< long, string *, Matrice_Creuse< double > *, bool  >(
        savemtx));
    Global.Add(
       "readmtx", "(", new OneOperator2_< long, string *, Matrice_Creuse< double > * >(
         readmtx));
    Global.Add(
      "readmtx", "(", new OneOperator3_< long, string *, Matrice_Creuse< double > * , bool>(
        readmtx));

    Global.Add(
      "savemtx", "(", new OneOperator2_< long, string *, Matrice_Creuse< Complex > * >(
        savemtx));
    Global.Add(
      "savemtx", "(", new OneOperator3_< long, string *, Matrice_Creuse< Complex > *, bool  >(
        savemtx));
    Global.Add(
       "readmtx", "(", new OneOperator2_< long, string *, Matrice_Creuse< Complex > * >(
         readmtx));
    Global.Add(
      "readmtx", "(", new OneOperator3_< long, string *, Matrice_Creuse< Complex > * , bool>(
        readmtx));

}
LOADFUNC(Load_Init)
//----------------------------------------------------------------------
// End of file
//----------------------------------------------------------------------
