MEDinterpInfo.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 #include <hdf5.h>
00023 #include <string.h>
00024
00042 med_err
00043 MEDinterpInfo(const med_idt fid,
00044 const int interpit,
00045 char* const interpname,
00046 med_geometry_type* const geotype,
00047 med_bool* const cellnode,
00048 med_int* const nbasisfunc,
00049 med_int* const nvariable,
00050 med_int* const maxdegree,
00051 med_int* const nmaxcoef
00052 )
00053 {
00054 med_err _ret=-1;
00055 char _interppath[MED_TAILLE_INTERP+MED_NAME_SIZE+1]=MED_INTERP;
00056 int _num = interpit -1;
00057
00058
00059
00060
00061 _MEDmodeErreurVerrouiller();
00062
00063
00064
00065
00066 if ( _MEDobjectGetName(fid, _interppath ,_num, interpname) < 0 ) {
00067 MED_ERR_(_ret,MED_ERR_ACCESS,MED_ERR_DATAGROUP,_interppath);ISCRUTE_int(interpit);
00068 goto ERROR;
00069 }
00070 strcat(_interppath,interpname);
00071
00072 if ( MEDinterpInfoByName(fid,
00073 interpname,
00074 geotype,
00075 cellnode,
00076 nbasisfunc,
00077 nvariable,
00078 maxdegree,
00079 nmaxcoef
00080 ) < 0 ) {
00081 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,MED_ERR_INTERP_MSG);
00082 SSCRUTE(interpname);SSCRUTE(_interppath);SSCRUTE("MEDinterpInfoByName");
00083 goto ERROR;
00084 }
00085
00086 _ret = 0;
00087
00088 ERROR:
00089
00090 return _ret;
00091 }