MEDfieldInfo.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_config.h"
00020 #include <med.h>
00021 #include "med_outils.h"
00022 #include <string.h>
00023
00041 med_err
00042 MEDfieldInfo(const med_idt fid,
00043 const int ind,
00044 char * const fieldname,
00045 char * const meshname,
00046 med_bool * const localmesh,
00047 med_field_type * const fieldtype,
00048 char * const componentname,
00049 char * const componentunit,
00050 char * const dtunit,
00051 med_int *const ncstp)
00052 {
00053 med_err _ret=-1;
00054 char _fieldpath[MED_TAILLE_CHA+MED_NAME_SIZE+1]=MED_CHA;
00055 int _num = ind -1;
00056
00057
00058
00059
00060 _MEDmodeErreurVerrouiller();
00061
00062
00063
00064
00065 if ( _MEDobjectGetName(fid, _fieldpath ,_num, fieldname) < 0 ) {
00066 MED_ERR_(_ret,MED_ERR_ACCESS,MED_ERR_DATAGROUP,_fieldpath);ISCRUTE_int(ind);
00067 goto ERROR;
00068 }
00069 strcat(_fieldpath,fieldname);
00070
00071 if ( MEDfieldInfoByName(fid, fieldname, meshname,localmesh,
00072 fieldtype, componentname, componentunit, dtunit, ncstp) < 0) {
00073 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,MED_ERR_FIELD_MSG);
00074 SSCRUTE(fieldname);SSCRUTE(_fieldpath);SSCRUTE("MEDfieldInfoByName");
00075 goto ERROR;
00076 }
00077
00078 _ret = 0;
00079
00080 ERROR:
00081
00082 return _ret;
00083 }