Changeset 5775


Ignore:
Timestamp:
09/13/10 14:17:04 (15 years ago)
Author:
Mathieu Morlighem
Message:

Fixed some mex modules

Location:
issm/trunk/src/mex
Files:
3 added
4 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk/src/mex/Makefile.am

    r5710 r5775  
    1717                                ContourToNodes \
    1818                                CostFunction \
     19                                CreateNodalConstraints\
    1920                                DakotaResponses\
    2021                                Echo\
    … …  
    134135                                                CostFunction/CostFunction.h
    135136
     137CreateNodalConstraints_SOURCES =  CreateNodalConstraints/CreateNodalConstraints.cpp \
     138                                                                CreateNodalConstraints/CreateNodalConstraints.h
     139
    136140NodesDof_SOURCES = NodesDof/NodesDof.cpp\
    137141                          NodesDof/NodesDof.h

  • issm/trunk/src/mex/SpcNodes/SpcNodes.cpp

    r4453 r5775  
    1313        int      analysis_type;
    1414
    15         /* output datasets: */
    16         Vec         yg=NULL;
    17 
    1815        /*Boot module: */
    1916        MODULEBOOT();
    … …  
    2825       
    2926        /*!Generate internal degree of freedom numbers: */
    30         SpcNodesx( &yg, nodes,constraints,analysis_type);
     27        SpcNodesx(nodes,constraints,analysis_type);
    3128
    3229        /*write output datasets: */
    3330        WriteData(NODES,nodes);
    34         WriteData(YG,yg);
    3531
    3632        /*Free ressources: */
    3733        delete nodes;
    3834        delete constraints;
    39         VecFree(&yg);
    4035
    4136        /*end module: */
    … …  
    4641{
    4742        _printf_("\n");
    48         _printf_("   usage: [m.node,m.yg]=%s(m.nodes,m.constraints);\n",__FUNCT__);
     43        _printf_("   usage: [m.node]=%s(m.nodes,m.constraints);\n",__FUNCT__);
    4944        _printf_("\n");
    5045}

  • issm/trunk/src/mex/SystemMatrices/SystemMatrices.cpp

    r5698 r5775  
    1818        /* output datasets: */
    1919        Mat    Kgg  = NULL;
     20        Mat    Kff  = NULL;
     21        Mat    Kfs  = NULL;
    2022        Vec    pg   = NULL;
     23        Vec    pf   = NULL;
    2124        double kmax;
    2225
    … …  
    5053                FetchData(&penalty_kflag,PENALTYKFLAG);
    5154                FetchData(&penalty_pflag,PENALTYPFLAG);
    52                 SystemMatricesx(&Kgg,&pg,&kmax,elements,nodes,vertices,loads,materials,parameters,kflag,pflag,penalty_kflag,penalty_pflag);
     55                SystemMatricesx(&Kgg,&Kff,&Kfs,&pg,&pf,&kmax,elements,nodes,vertices,loads,materials,parameters,kflag,pflag,penalty_kflag,penalty_pflag);
    5356        }
    5457        else
    55          SystemMatricesx(&Kgg,&pg,&kmax,elements,nodes,vertices,loads,materials,parameters);
     58         SystemMatricesx(&Kgg,&Kff,&Kfs,&pg,&pf,&kmax,elements,nodes,vertices,loads,materials,parameters);
    5659
    5760        /*write output datasets: */
    5861        WriteData(KGG,Kgg);
     62        WriteData(KFF,Kff);
     63        WriteData(KFS,Kfs);
    5964        WriteData(PG,pg);
     65        WriteData(PF,pf);
    6066        WriteData(KMAX,kmax);
    6167       
    … …  
    6874        delete parameters;
    6975        MatFree(&Kgg);
     76        MatFree(&Kff);
     77        MatFree(&Kfs);
    7078        VecFree(&pg);
     79        VecFree(&pf);
    7180
    7281        /*end module: */
    … …  
    7786{
    7887        _printf_("\n");
    79         _printf_("   usage: [Kgg,pg,kmax] = %s(elements,nodes,vertices,loads,materials,parameters);\n",__FUNCT__);
    80         _printf_("   usage: [Kgg,pg,kmax] = %s(elements,nodes,vertices,loads,materials,parameters,kflag,pflag,penalty_kflag,penalty_pflag);\n",__FUNCT__);
     88        _printf_("   usage: [Kgg,Kff,Kfs,pg,pf,kmax] = %s(elements,nodes,vertices,loads,materials,parameters);\n",__FUNCT__);
     89        _printf_("   usage: [Kgg,Kff,Kfs,pg,pf,kmax] = %s(elements,nodes,vertices,loads,materials,parameters,kflag,pflag,penalty_kflag,penalty_pflag);\n",__FUNCT__);
    8190        _printf_("\n");
    8291}

  • issm/trunk/src/mex/SystemMatrices/SystemMatrices.h

    r5698 r5775  
    3131/* serial output macros: */
    3232#define KGG  (mxArray**)&plhs[0]
    33 #define PG   (mxArray**)&plhs[1]
    34 #define KMAX (mxArray**)&plhs[2]
     33#define KFF  (mxArray**)&plhs[1]
     34#define KFS  (mxArray**)&plhs[2]
     35#define PG   (mxArray**)&plhs[3]
     36#define PF   (mxArray**)&plhs[4]
     37#define KMAX (mxArray**)&plhs[5]
    3538
    3639/* serial arg counts: */
    3740#undef NLHS
    38 #define NLHS  3
     41#define NLHS  6
    3942#undef NRHS
    4043#define NRHS  10
Note: See TracChangeset for help on using the changeset viewer.