source: issm/trunk/src/mex/SlopeExtrude/SlopeExtrude.cpp@ 358

/*\file SlopeExtrude.c
 *\brief: extrude slope vertically, from bed upwards.
 */

#include "./SlopeExtrude.h"

void mexFunction( int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[]){

        /*diverse: */
        int   noerr=1;

        /*input datasets: */
        DataSet* elements=NULL;
        DataSet* nodes=NULL;
        DataSet* loads=NULL;
        DataSet* materials=NULL;
        Vec      slope=NULL;

        /*Boot module: */
        MODULEBOOT();

        /*checks on arguments on the matlab side: */
        CheckNumMatlabArguments(nlhs,NLHS,nrhs,NRHS,__FUNCT__,&SlopeExtrudeUsage);

        /*Input datasets: */
        FetchData((void**)&elements,NULL,NULL,ELEMENTS,"DataSet",NULL);
        FetchData((void**)&nodes,NULL,NULL,NODES,"DataSet",NULL);
        FetchData((void**)&loads,NULL,NULL,LOADS,"DataSet",NULL);
        FetchData((void**)&materials,NULL,NULL,MATERIALS,"DataSet",NULL);
        FetchData((void**)&slope,NULL,NULL,SLOPE,"Vector",NULL);

        /*!Call core code: */
        SlopeExtrudex(slope,elements,nodes,loads,materials);

        /*write output : */
        WriteData(SLOPEOUT,slope,0,0,"Vector",NULL);
        /*Free ressources: */
        delete elements;
        delete nodes;
        delete loads;
        delete materials;
        VecFree(&slope);
        
        /*end module: */
        MODULEEND();

}

void SlopeExtrudeUsage(void)
{
        _printf_("\n");
        _printf_("   usage: [slope] = %s(elements, nodes,loads, materials, slope);\n",__FUNCT__);
        _printf_("\n");
}