c_h3d_eroded_oned.cpp File Reference

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <math.h>
#include <fcntl.h>
#include <sys/resource.h>
#include <sys/types.h>
#include <time.h>
#include <sys/stat.h>
#include <unistd.h>
#include <dlfcn.h>
#include <stdbool.h>
#include "h3dpublic_defs.h"
#include "h3dpublic_export.h"
#include "h3d_values.h"

Go to the source code of this file.

Macros
#define	_FCALL
#define	_FCALL

Functions
void	c_h3d_eroded_oned_ (my_real *TT, int *IH3D, int *ITAB, int *NUMNOD, int *IXT, int *NIXT, int *NUMELT, int *IPARTT, int *IXP, int *NIXP, int *NUMELP, int *IPARTP, int *IXR, int *NIXR, int *NUMELR, int *IPARTR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM)
void _FCALL	C_H3D_ERODED_ONED (my_real *TT, int *IH3D, int *ITAB, int *NUMNOD, int *IXT, int *NIXT, int *NUMELT, int *IPARTT, int *IXP, int *NIXP, int *NUMELP, int *IPARTP, int *IXR, int *NIXR, int *NUMELR, int *IPARTR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM)
void	c_h3d_eroded_oned__ (my_real *TT, int *IH3D, int *ITAB, int *NUMNOD, int *IXT, int *NIXT, int *NUMELT, int *IPARTT, int *IXP, int *NIXP, int *NUMELP, int *IPARTP, int *IXR, int *NIXR, int *NUMELR, int *IPARTR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM)
void	c_h3d_eroded_oned (my_real *TT, int *IH3D, int *ITAB, int *NUMNOD, int *IXT, int *NIXT, int *NUMELT, int *IPARTT, int *IXP, int *NIXP, int *NUMELP, int *IPARTP, int *IXR, int *NIXR, int *NUMELR, int *IPARTR, my_real *FUNC, int *ID_ELEM, int *CPT_DATATYPE, int *ITY_ELEM)
void	c_h3d_create_oned_eroded_ (int *cpt_data, char *name, int *size, int *info, char *name1, int *size1)
void _FCALL	C_H3D_CREATE_ONED_ERODED (int *cpt_data, char *name, int *size, int *info, char *name1, int *size1)
void	c_h3d_create_oned_eroded__ (int *cpt_data, char *name, int *size, int *info, char *name1, int *size1)
void	c_h3d_create_oned_eroded (int *cpt_data, char *name, int *size, int *info, char *name1, int *size1)

Macro Definition Documentation

_FCALL [1/2]

#define _FCALL

Definition at line 50 of file c_h3d_eroded_oned.cpp.

_FCALL [2/2]

#define _FCALL

Definition at line 50 of file c_h3d_eroded_oned.cpp.

Function Documentation

C_H3D_CREATE_ONED_ERODED()

void _FCALL C_H3D_CREATE_ONED_ERODED	(	int *	cpt_data,
		char *	name,
		int *	size,
		int *	info,
		char *	name1,
		int *	size1 )

Definition at line 287 of file c_h3d_eroded_oned.cpp.

{c_h3d_create_oned_eroded_ (cpt_data, name, size, info, name1, size1);}

c_h3d_create_oned_eroded()

void c_h3d_create_oned_eroded	(	int *	cpt_data,
		char *	name,
		int *	size,
		int *	info,
		char *	name1,
		int *	size1 )

Definition at line 293 of file c_h3d_eroded_oned.cpp.

{c_h3d_create_oned_eroded_ (cpt_data, name, size, info, name1, size1);}

c_h3d_create_oned_eroded_()

void c_h3d_create_oned_eroded_	(	int *	cpt_data,
		char *	name,
		int *	size,
		int *	info,
		char *	name1,
		int *	size1 )

Definition at line 210 of file c_h3d_eroded_oned.cpp.

{
    char *cname,*cname1;
    int cname_len,cname_len1;
    int i;
    float node[3]; 
    H3D_ID node_id;
    unsigned int elem_count = 1;
 
    cname_len = *size + 1;
    cname=(char*) malloc(sizeof(char)*cname_len);
    for(i=0;i<*size;i++)  cname[i] = name[i];
    cname[*size]='\0'; 
 
    cname_len1 = *size1 + 1;
    cname1=(char*) malloc(sizeof(char)*cname_len1);
    for(i=0;i<*size1;i++)  cname1[i] = name1[i];
    cname1[*size1]='\0'; 
 
    char * LAYERPOOL = new char [*size1+11];
    sprintf(LAYERPOOL, "%s %d" ,cname1,*info);
    H3D_ID layer_pool_id = H3D_NULL_ID;
    rc = Hyper3DAddString(h3d_file, LAYERPOOL, &layer_pool_id);
 
    char edata_type[30];
//
 
        //printf( "scalar  %d  info = %d  %s\n", *cpt_data , *info, name);
        //fflush(stdout);
 
    try {
        // create result data types
        dt_count++;
 
        rc = Hyper3DDatatypeBegin(h3d_file, 1);
        if( !rc ) throw rc;
 
        pool_count = 3;
 
        dt_id++; 
        sprintf(edata_type,  cname, H3D_DT_DELIMITER); 
       // snprintf(edata_type, sizeof(edata_type), cname, H3D_DT_DELIMITER); 
        rc = Hyper3DDatatypeWrite(h3d_file, edata_type, *cpt_data , H3D_DS_EROSION, 
                                    H3D_DS_ELEM, pool_count);
        if( !rc ) throw rc;
 
        rc = Hyper3DDatatypeDescriptionWrite(h3d_file,dt_id, "N/A : element not deleted");
 
        rc = Hyper3DDatatypePools(h3d_file, *cpt_data , truss_poolname_id, 0, 
                    layername_ids, has_corners, tensor_type, poisson);
        if( !rc ) throw rc;
 
        rc = Hyper3DDatatypePools(h3d_file, *cpt_data , beam_poolname_id, 0, 
                    layername_ids, has_corners, tensor_type, poisson);
        if( !rc ) throw rc;
 
        rc = Hyper3DDatatypePools(h3d_file, *cpt_data , spring_poolname_id, 0, 
                    layername_ids, has_corners, tensor_type, poisson);
        if( !rc ) throw rc;
 
        rc = Hyper3DDatatypeEnd(h3d_file);
        if( !rc ) throw rc;
 
    } // end of try
 
    catch(...) {
        Hyper3DExportClearError(h3d_file);
    }
    delete [] LAYERPOOL;
    free(cname);
    free(cname1);
 
}

c_h3d_create_oned_eroded__()

void c_h3d_create_oned_eroded__	(	int *	cpt_data,
		char *	name,
		int *	size,
		int *	info,
		char *	name1,
		int *	size1 )

Definition at line 290 of file c_h3d_eroded_oned.cpp.

{c_h3d_create_oned_eroded_ (cpt_data, name, size, info, name1, size1);}

C_H3D_ERODED_ONED()

void _FCALL C_H3D_ERODED_ONED	(	my_real *	TT,
		int *	IH3D,
		int *	ITAB,
		int *	NUMNOD,
		int *	IXT,
		int *	NIXT,
		int *	NUMELT,
		int *	IPARTT,
		int *	IXP,
		int *	NIXP,
		int *	NUMELP,
		int *	IPARTP,
		int *	IXR,
		int *	NIXR,
		int *	NUMELR,
		int *	IPARTR,
		my_real *	FUNC,
		int *	ID_ELEM,
		int *	CPT_DATATYPE,
		int *	ITY_ELEM )

Definition at line 191 of file c_h3d_eroded_oned.cpp.

{c_h3d_eroded_oned_ (TT,IH3D,ITAB,NUMNOD,IXT,NIXT,NUMELT,IPARTT,IXP,NIXP,NUMELP,IPARTP,IXR,NIXR,NUMELR,IPARTR,FUNC,ID_ELEM,CPT_DATATYPE,
                     ITY_ELEM);}

c_h3d_eroded_oned()

void c_h3d_eroded_oned	(	my_real *	TT,
		int *	IH3D,
		int *	ITAB,
		int *	NUMNOD,
		int *	IXT,
		int *	NIXT,
		int *	NUMELT,
		int *	IPARTT,
		int *	IXP,
		int *	NIXP,
		int *	NUMELP,
		int *	IPARTP,
		int *	IXR,
		int *	NIXR,
		int *	NUMELR,
		int *	IPARTR,
		my_real *	FUNC,
		int *	ID_ELEM,
		int *	CPT_DATATYPE,
		int *	ITY_ELEM )

Definition at line 203 of file c_h3d_eroded_oned.cpp.

{c_h3d_eroded_oned_ (TT,IH3D,ITAB,NUMNOD,IXT,NIXT,NUMELT,IPARTT,IXP,NIXP,NUMELP,IPARTP,IXR,NIXR,NUMELR,IPARTR,FUNC,ID_ELEM,CPT_DATATYPE,
                     ITY_ELEM);}

c_h3d_eroded_oned_()

void c_h3d_eroded_oned_	(	my_real *	TT,
		int *	IH3D,
		int *	ITAB,
		int *	NUMNOD,
		int *	IXT,
		int *	NIXT,
		int *	NUMELT,
		int *	IPARTT,
		int *	IXP,
		int *	NIXP,
		int *	NUMELP,
		int *	IPARTP,
		int *	IXR,
		int *	NIXR,
		int *	NUMELR,
		int *	IPARTR,
		my_real *	FUNC,
		int *	ID_ELEM,
		int *	CPT_DATATYPE,
		int *	ITY_ELEM )

Definition at line 78 of file c_h3d_eroded_oned.cpp.

{
    int i;
    int offset;
    H3D_ID elem_id;
    H3D_ID comp_id;
//
    // initialize 
 
    try {
        // create Subcase (Loadcase)
        unsigned int       max_sims = 10;
        unsigned int      sub_count = 1;
        float elem_result[] = { 0.0f, 0.0f, 0.0f };
 
        // create Result Data sets
        unsigned int num_corners = 0;
        unsigned int   num_modes = 0;
        bool             complex = false;
        float value[1] ;
 
        sim_idx = *IH3D;
 
        if(*NUMELT != 0)
        {
          rc = Hyper3DDatasetBegin(h3d_file, *NUMELT, sim_idx, subcase_id, H3D_DS_ELEM, 
                                        H3D_DS_EROSION, num_corners, num_modes, *CPT_DATATYPE, 
                                        0, truss_poolname_id, complex); 
          if( !rc ) fflush(stdout);
          if( !rc ) throw rc;
 
 
          offset = 0;
 
          for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ ) 
          {
            if( ITY_ELEM[i] == 4 ) 
            { 
              elem_id = ID_ELEM[i];
              elem_result[0] = 0.0f;
              if(  FUNC[i] == 0.0f ) 
              {
                elem_result[0] = 1.0f;
                rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
              }
            }
          }
 
          rc = Hyper3DDatasetEnd(h3d_file);
          if( !rc ) throw rc;
        }
 
        offset = *NUMELT;
 
        if(*NUMELP != 0)
        {
          rc = Hyper3DDatasetBegin(h3d_file, *NUMELP, sim_idx, subcase_id, H3D_DS_ELEM, 
                                        H3D_DS_EROSION, num_corners, num_modes, *CPT_DATATYPE, 
                                        0, beam_poolname_id, complex); 
          if( !rc ) fflush(stdout);
          if( !rc ) throw rc;
 
          for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ ) 
          {
            if( ITY_ELEM[i] == 5) 
            { 
              elem_id = ID_ELEM[i];
              elem_result[0] = 0.0f;
              if(  FUNC[i] == 0.0f ) 
              {
                elem_result[0] = 1.0f;
                rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
              }
            }
          }
          rc = Hyper3DDatasetEnd(h3d_file);
          if( !rc ) throw rc;
        }
        offset = *NUMELT + *NUMELP;
 
        if(*NUMELR != 0)
        {
          rc = Hyper3DDatasetBegin(h3d_file, *NUMELR, sim_idx, subcase_id, H3D_DS_ELEM, 
                                        H3D_DS_EROSION, num_corners, num_modes, *CPT_DATATYPE, 
                                        0, spring_poolname_id, complex); 
          if( !rc ) fflush(stdout);
          if( !rc ) throw rc;
 
          for( i = 0; i < *NUMELT + *NUMELP + *NUMELR; i++ ) 
          {
            if( ITY_ELEM[i] == 6) 
            { 
              elem_id = ID_ELEM[i];
              elem_result[0] = 0.0f;
              if(  FUNC[i] == 0.0f ) 
              {
                elem_result[0] = 1.0f;
                rc = Hyper3DDatasetWrite(h3d_file, elem_id, &elem_result[0]);
              }
            }
          }
          rc = Hyper3DDatasetEnd(h3d_file);
          if( !rc ) throw rc;
        }
    } // end of try
 
    catch(...)    {
        Hyper3DExportClearError(h3d_file);
    }
}

c_h3d_eroded_oned__()

void c_h3d_eroded_oned__	(	my_real *	TT,
		int *	IH3D,
		int *	ITAB,
		int *	NUMNOD,
		int *	IXT,
		int *	NIXT,
		int *	NUMELT,
		int *	IPARTT,
		int *	IXP,
		int *	NIXP,
		int *	NUMELP,
		int *	IPARTP,
		int *	IXR,
		int *	NIXR,
		int *	NUMELR,
		int *	IPARTR,
		my_real *	FUNC,
		int *	ID_ELEM,
		int *	CPT_DATATYPE,
		int *	ITY_ELEM )

Definition at line 197 of file c_h3d_eroded_oned.cpp.

{c_h3d_eroded_oned_ (TT,IH3D,ITAB,NUMNOD,IXT,NIXT,NUMELT,IPARTT,IXP,NIXP,NUMELP,IPARTP,IXR,NIXR,NUMELR,IPARTR,FUNC,ID_ELEM,CPT_DATATYPE,
                     ITY_ELEM);}