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