MEDprofilInfo.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
00023 #include <string.h>
00024 #include <stdlib.h>
00025
00026 med_err
00027 MEDprofilInfo(med_idt fid, int indice, char *profilname, med_int *n)
00028 {
00029 int numero=0;
00030 med_idt proid=0;
00031 med_err ret=-1;
00032 char chemin[MED_TAILLE_PROFILS+MED_TAILLE_NOM+1]="";
00033
00034
00035
00036
00037 _MEDmodeErreurVerrouiller();
00038 if (MEDcheckVersion(fid) < 0) return -1;
00039
00040
00041
00042
00043
00044 numero = indice-1;
00045 if ( _MEDobjetIdentifier(fid,MED_PROFILS,numero,profilname) < 0)
00046 goto ERROR;
00047
00048
00049
00050
00051 strcpy(chemin,MED_PROFILS);
00052 strcat(chemin,profilname);
00053 if ((proid = _MEDdatagroupOuvrir(fid,chemin)) < 0)
00054 goto ERROR;
00055 if (_MEDattrEntierLire(proid,MED_NOM_NBR,n) < 0)
00056 goto ERROR;
00057
00058 ret = 0;
00059
00060 ERROR:
00061 if ( proid > 0 ) if (_MEDdatagroupFermer(proid) < 0)
00062 goto ERROR;
00063
00064 return 0;
00065 }
00066
00067