MEDfieldnComponent.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 <string.h>
00022 #include <stdlib.h>
00023 #include <med_outils.h>
00024
00033 med_int
00034 MEDfieldnComponent(const med_idt fid,
00035 const int ind)
00036 {
00037 med_err _ret = -1;
00038 char _fieldname[MED_NAME_SIZE+1]="";
00039 int _num = ind-1;
00040 char _path [MED_TAILLE_CHA+MED_NAME_SIZE+1]=MED_CHA;
00041
00042
00043
00044 _MEDmodeErreurVerrouiller();
00045
00046
00047
00048
00049
00050 if ( _MEDobjectGetName(fid, _path ,_num, _fieldname) < 0 ) {
00051 MED_ERR_(_ret,MED_ERR_ACCESS,MED_ERR_DATAGROUP,_path);ISCRUTE_int(_num);
00052 goto ERROR;
00053 }
00054
00055 if ( (_ret=MEDfieldnComponentByName( fid, _fieldname )) < 0) {
00056 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,MED_ERR_FIELD_MSG);
00057 SSCRUTE(_fieldname);SSCRUTE(_path);SSCRUTE("MEDfieldnComponentbyName");
00058 goto ERROR;
00059 }
00060
00061 ERROR:
00062 return _ret;
00063 }
00064