/[escript]/trunk/paso/src/mmio.h
ViewVC logotype

Diff of /trunk/paso/src/mmio.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/tools/mmio/inc/mmio.h revision 155 by jgs, Wed Nov 9 02:02:19 2005 UTC trunk/paso/src/mmio.h revision 2881 by jfenwick, Thu Jan 28 02:03:15 2010 UTC
# Line 1  Line 1 
1  /* $Id$ */  
2    /*******************************************************
3    *
4    * Copyright (c) 2003-2010 by University of Queensland
5    * Earth Systems Science Computational Center (ESSCC)
6    * http://www.uq.edu.au/esscc
7    *
8    * Primary Business: Queensland, Australia
9    * Licensed under the Open Software License version 3.0
10    * http://www.opensource.org/licenses/osl-3.0.php
11    *
12    *******************************************************/
13    
14    
15  /*  /*
16  *   Matrix Market I/O library for ANSI C  *   Matrix Market I/O library for ANSI C
# Line 10  Line 22 
22  #ifndef MM_IO_H  #ifndef MM_IO_H
23  #define MM_IO_H  #define MM_IO_H
24    
25  #ifdef __cplusplus  #include <stdio.h>
 extern "C" {  
 #endif  
26    
27  #define MM_MAX_LINE_LENGTH 1025  #define MM_MAX_LINE_LENGTH 1025
28  #define MatrixMarketBanner "%%MatrixMarket"  #define MatrixMarketBanner "%%MatrixMarket"
# Line 41  int mm_write_mtx_array_size(FILE *f, int Line 51  int mm_write_mtx_array_size(FILE *f, int
51  #define mm_is_array(typecode)   ((typecode)[1]=='A')  #define mm_is_array(typecode)   ((typecode)[1]=='A')
52    
53  #define mm_is_complex(typecode) ((typecode)[2]=='C')  #define mm_is_complex(typecode) ((typecode)[2]=='C')
54  #define mm_is_real(typecode)        ((typecode)[2]=='R')  #define mm_is_real(typecode)    ((typecode)[2]=='R')
55  #define mm_is_pattern(typecode) ((typecode)[2]=='P')  #define mm_is_pattern(typecode) ((typecode)[2]=='P')
56  #define mm_is_integer(typecode) ((typecode)[2]=='I')  #define mm_is_integer(typecode) ((typecode)[2]=='I')
57    
# Line 123  int mm_is_valid(MM_typecode matcode);      / Line 133  int mm_is_valid(MM_typecode matcode);      /
133    
134  /*  high level routines */  /*  high level routines */
135    
136  int mm_write_mtx_crd(char fname[], int M, int N, int nz, int I[], int J[],  int mm_write_mtx_crd(char fname[], int M, int N, int nz, int i[], int j[],
137           double val[], MM_typecode matcode);           double val[], MM_typecode matcode);
138  int mm_read_mtx_crd_data(FILE *f, int M, int N, int nz, int I[], int J[],  int mm_read_mtx_crd_data(FILE *f, int M, int N, int nz, int i[], int j[],
139          double val[], MM_typecode matcode);          double val[], MM_typecode matcode);
140  int mm_read_mtx_crd_entry(FILE *f, int *I, int *J, double *real, double *img,  int mm_read_mtx_crd_entry(FILE *f, int *i, int *j, double *real, double *img,
141              MM_typecode matcode);              MM_typecode matcode);
142    
143  int mm_read_unsymmetric_sparse(const char *fname, int *M_, int *N_, int *nz_,  int mm_read_unsymmetric_sparse(const char *fname, int *M_, int *N_, int *nz_,
144                  double **val_, int **I_, int **J_);                  double **val_, int **I_, int **J_);
145    
 #ifdef __cplusplus  
 }  
 #endif  
   
146  #endif  #endif
147    
148  /*  /*

Legend:
Removed from v.155  
changed lines
  Added in v.2881

  ViewVC Help
Powered by ViewVC 1.1.26