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 }