# MEDstructElementVarAttInfo.c

Aller à la documentation de ce fichier.

    00001 /*  This file is part of MED.
    00002  *
    00003  *  COPYRIGHT (C) 1999 - 2012  EDF R&D, CEA/DEN
    00004  *  MED is free software: you can redistribute it and/or modify
    00005  *  it under the terms of the GNU Lesser General Public License as published by
    00006  *  the Free Software Foundation, either version 3 of the License, or
    00007  *  (at your option) any later version.
    00008  *
    00009  *  MED is distributed in the hope that it will be useful,
    00010  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
    00011  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    00012  *  GNU Lesser General Public License for more details.
    00013  *
    00014  *  You should have received a copy of the GNU Lesser General Public License
    00015  *  along with MED.  If not, see <http://www.gnu.org/licenses/>.
    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
    00040 med_err
    00041 MEDstructElementVarAttInfo(const med_idt                   fid,
    00042                            const char*               const modelname,
    00043                            const int                       attit,
    00044                                  char*               const varattname,
    00045                                  med_attribute_type* const varatttype,
    00046                                  med_int*            const ncomponent
    00047                            )
    00048
    00049 {
    00050
    00051   med_err  _ret=-1;
    00052   char     _path[MED_TAILLE_STRCT+MED_NAME_SIZE+1+MED_TAILLE_VARATR+MED_NAME_SIZE+1]=MED_STRCT;
    00053   int      _num = attit -1;
    00054
    00055   /*
    00056    * On inhibe le gestionnaire d'erreur HDF 5
    00057    */
    00058   _MEDmodeErreurVerrouiller();
    00059
    00060   strcat(_path,modelname);
    00061   strcat(_path,MED_VARATR);
    00062
    00063   /*
    00064    * On recupere le nom de l'attribut
    00065    */
    00066   if ( _MEDobjectGetName(fid, _path ,_num, varattname) < 0 ) {
    00067     MED_ERR_(_ret,MED_ERR_ACCESS,MED_ERR_DATAGROUP,_path);ISCRUTE_int(attit);
    00068     goto ERROR;
    00069   }
    00070   strcat(_path,varattname);
    00071
    00072   if ( MEDstructElementVarAttInfoByName(fid,
    00073                                         modelname,
    00074                                         varattname,
    00075                                         varatttype,
    00076                                         ncomponent
    00077                                         ) < 0 ) {
    00078     MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,MED_ERR_STRUCT_MSG);
    00079     SSCRUTE(modelname);SSCRUTE(_path);SSCRUTE("MEDstructElementVarAttInfoByName");
    00080     goto ERROR;
    00081   }
    00082
    00083   _ret = 0;
    00084
    00085  ERROR:
    00086
    00087   return _ret;
    00088 }