Ignore:
Timestamp:
04/16/12 14:57:18 (13 years ago)
Author:
Mathieu Morlighem
Message:

merged trunk-jpl and trunk for revision 11994M

Location:
issm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk

  • issm/trunk/src/c/io/Matlab/WriteMatlabData.cpp

    r11237 r11995  
    1 /* \file WriteMatlabData.c:
     1/* \file WriteData.c:
    22 * \brief: general interface for writing data
    33 */
    … …  
    1212#include "../../shared/shared.h"
    1313
    14 #ifdef _SERIAL_
     14#if defined(_HAVE_MATLAB_) && defined(_SERIAL_)
    1515#include <mex.h>
    1616
    17 /*FUNCTION WriteMatlabData(mxArray** pdataref,DataSet* dataset){{{1*/
    18 void WriteMatlabData(mxArray** pdataref,DataSet* dataset){
     17/*FUNCTION WriteData(mxArray** pdataref,DataSet* dataset){{{1*/
     18void WriteData(mxArray** pdataref,DataSet* dataset){
    1919
    2020        mxArray* dataref=NULL;
    … …  
    4141}
    4242/*}}}*/
    43 /*FUNCTION WriteMatlabData(mxArray** pdataref,Mat matrix){{{1*/
    44 void WriteMatlabData(mxArray** pdataref,Mat matrix){
     43/*FUNCTION WriteData(mxArray** pdataref,Matrix* matrix){{{1*/
     44void WriteData(mxArray** pdataref,Matrix* matrix){
    4545               
    4646        mxArray* dataref=NULL;
    … …  
    4949               
    5050                /*call toolkit routine: */
    51                 PetscMatrixToMatlabMatrix(&dataref,matrix);
    52         }
    53         else{
    54                 dataref = mxCreateDoubleMatrix(0,0,mxREAL);
    55         }
    56 
    57         *pdataref=dataref;
    58 }
    59 /*}}}*/
    60 /*FUNCTION WriteMatlabData(mxArray** pdataref,double* matrix, int M,int N){{{1*/
    61 void WriteMatlabData(mxArray** pdataref,double* matrix, int M,int N){
     51                dataref=matrix->ToMatlabMatrix();
     52        }
     53        else{
     54                dataref = mxCreateDoubleMatrix(0,0,mxREAL);
     55        }
     56
     57        *pdataref=dataref;
     58}
     59/*}}}*/
     60/*FUNCTION WriteData(mxArray** pdataref,double* matrix, int M,int N){{{1*/
     61void WriteData(mxArray** pdataref,double* matrix, int M,int N){
    6262       
    6363        mxArray* dataref=NULL;
    … …  
    8181}
    8282/*}}}*/
    83 /*FUNCTION WriteMatlabData(mxArray** pdataref,int* matrix, int M,int N){{{1*/
    84 void WriteMatlabData(mxArray** pdataref,int* matrix, int M,int N){
     83/*FUNCTION WriteData(mxArray** pdataref,int* matrix, int M,int N){{{1*/
     84void WriteData(mxArray** pdataref,int* matrix, int M,int N){
    8585
    8686        mxArray* dataref=NULL;
    … …  
    108108}
    109109/*}}}*/
    110 /*FUNCTION WriteMatlabData(mxArray** pdataref,Vec vector){{{1*/
    111 void WriteMatlabData(mxArray** pdataref,Vec vector){
     110/*FUNCTION WriteData(mxArray** pdataref,Vector* vector){{{1*/
     111void WriteData(mxArray** pdataref,Vector* vector){
    112112       
    113113        mxArray* dataref=NULL;
    114114       
    115115        if(vector){
    116                
    117116                /*call toolkit routine: */
    118                 PetscVectorToMatlabVector(&dataref,vector);
    119         }
    120         else{
    121                 dataref = mxCreateDoubleMatrix(0,0,mxREAL);
    122         }
    123         *pdataref=dataref;
    124 
    125 }
    126 /*}}}*/
    127 /*FUNCTION WriteMatlabData(mxArray** pdataref,double* vector, int M){{{1*/
    128 void WriteMatlabData(mxArray** pdataref,double* vector, int M){
     117                dataref=vector->ToMatlabVector();
     118        }
     119        else{
     120                dataref = mxCreateDoubleMatrix(0,0,mxREAL);
     121        }
     122        *pdataref=dataref;
     123
     124}
     125/*}}}*/
     126/*FUNCTION WriteData(mxArray** pdataref,double* vector, int M){{{1*/
     127void WriteData(mxArray** pdataref,double* vector, int M){
    129128       
    130129        mxArray* dataref=NULL;
    … …  
    145144}
    146145/*}}}*/
    147 /*FUNCTION WriteMatlabData(mxArray** pdataref,double scalar){{{1*/
    148 void WriteMatlabData(mxArray** pdataref,double scalar){
     146/*FUNCTION WriteData(mxArray** pdataref,double scalar){{{1*/
     147void WriteData(mxArray** pdataref,double scalar){
    149148
    150149        *pdataref=mxCreateDoubleScalar(scalar);
    151150}
    152151/*}}}*/
    153 /*FUNCTION WriteMatlabData(mxArray** pdataref,int integer){{{1*/
    154 void WriteMatlabData(mxArray** pdataref,int integer){
     152/*FUNCTION WriteData(mxArray** pdataref,int integer){{{1*/
     153void WriteData(mxArray** pdataref,int integer){
    155154
    156155                *pdataref=mxCreateDoubleScalar((double)integer);
    … …  
    158157}
    159158/*}}}*/
    160 /*FUNCTION WriteMatlabData(mxArray** pdataref,int boolean){{{1*/
    161 void WriteMatlabData(mxArray** pdataref,bool boolean){
     159/*FUNCTION WriteData(mxArray** pdataref,int boolean){{{1*/
     160void WriteData(mxArray** pdataref,bool boolean){
    162161
    163162        *pdataref=mxCreateDoubleScalar((double)boolean);
    … …  
    165164}
    166165/*}}}*/
    167 /*FUNCTION WriteMatlabData(mxArray** pdataref,char* string){{{1*/
    168 void WriteMatlabData(mxArray** pdataref,char* string){
     166/*FUNCTION WriteData(mxArray** pdataref,char* string){{{1*/
     167void WriteData(mxArray** pdataref,char* string){
    169168
    170169                *pdataref=mxCreateString(string);
    171170}
    172171/*}}}*/
    173 /*FUNCTION WriteMatlabData(mxArray** pdataref,Parameters* parameters){{{1*/
    174 void WriteMatlabData(mxArray** pdataref,Parameters* parameters){
     172/*FUNCTION WriteData(mxArray** pdataref,Parameters* parameters){{{1*/
     173void WriteData(mxArray** pdataref,Parameters* parameters){
    175174
    176175        int i;
Note: See TracChangeset for help on using the changeset viewer.