MEDstructElementInfo.c
Aller à la documentation de ce fichier.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019 #include <med.h>
00020 #include <med_config.h>
00021 #include <med_outils.h>
00022
00023 #include <stdlib.h>
00024 #include <string.h>
00025
00049 med_err
00050 MEDstructElementInfo(const med_idt fid,
00051 const int mit,
00052 char * const modelname,
00053 med_geometry_type * const mgeotype,
00054 med_int* const modeldim,
00055 char* const supportmeshname,
00056 med_entity_type* const sentitytype,
00057 med_int* const snnode,
00058 med_int* const sncell,
00059 med_geometry_type* const sgeotype,
00060 med_int* const nconstantattribute,
00061 med_bool* const anyprofile,
00062 med_int* const nvariableattribute
00063 )
00064 {
00065
00066 med_err _ret=-1;
00067 char _path[MED_TAILLE_STRCT+MED_NAME_SIZE+1]=MED_STRCT;
00068 int _num = mit -1;
00069
00070
00071
00072
00073 _MEDmodeErreurVerrouiller();
00074
00075
00076
00077
00078 if ( _MEDobjectGetName(fid, _path ,_num, modelname) < 0 ) {
00079 MED_ERR_(_ret,MED_ERR_ACCESS,MED_ERR_DATAGROUP,_path);ISCRUTE_int(mit);
00080 goto ERROR;
00081 }
00082 strcat(_path,modelname);
00083
00084 if (
00085 MEDstructElementInfoByName(fid,
00086 modelname,
00087 mgeotype,
00088 modeldim,
00089 supportmeshname,
00090 sentitytype,
00091 snnode,
00092 sncell,
00093 sgeotype,
00094 nconstantattribute,
00095 anyprofile,
00096 nvariableattribute
00097 ) < 0 ) {
00098 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,MED_ERR_STRUCT_MSG);
00099 SSCRUTE(modelname);SSCRUTE(_path);SSCRUTE("MEDstructElementInfoByName");
00100 goto ERROR;
00101 }
00102
00103 _ret = 0;
00104
00105 ERROR:
00106
00107 return _ret;
00108 }