MAJ_21_22_profils.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 #ifndef MESGERR
00020 #define MESGERR 1
00021 #endif
00022
00023
00024 #include "med_config.h"
00025 #include "med_outils.h"
00026 #include <string.h>
00027
00028
00029
00030
00031
00032 #include <hdf5.h>
00033 #include "med21.h"
00034 #include "med_hdfi21.h"
00035 #include "MAJ_21_22.h"
00036
00037 void MAJ_21_22_profils(med_idt fid,med_int nprofil)
00038 {
00039 med_err ret;
00040 med_int i;
00041 char nom[MED_TAILLE_NOM+1];
00042 char chemin[MED_TAILLE_DESC+1];
00043 med_idt gid;
00044 med_int att;
00045
00046 for (i=0;i<nprofil;i++)
00047 {
00048
00049 ret = _MEDobjetIdentifier(fid,(char *) MED_PROFILS,i,nom);
00050 EXIT_IF(ret < 0,"Identification d'un profil",NULL);
00051 fprintf(stdout," >>> Normalisation du profil [%s] \n",nom);
00052
00053
00054 strcpy(chemin,MED_PROFILS);
00055 strcat(chemin,nom);
00056 gid = _MEDdatagroupOuvrir(fid,chemin);
00057 EXIT_IF(gid < 0,"Accès au profil",nom);
00058
00059
00060 ret = _MEDattrEntierLire(gid,(char *) "N",&att);
00061 EXIT_IF(ret < 0,"Lecture de l'attribut MED_NOM_N",NULL);
00062 ret = H5Adelete(gid,"N");
00063 EXIT_IF(ret < 0,"Destruction de l'attribut MED_NOM_N",NULL);
00064 ret = _MEDattrEntierEcrire(gid,(char *)(MED_NOM_NBR),&att);
00065 EXIT_IF(ret < 0,"Ecriture de l'attribut MED_NOM_NBR dans le profil ",nom);
00066
00067
00068 ret = _MEDdatagroupFermer(gid);
00069 EXIT_IF(ret < 0,"Fermeture de l'acces au profil",nom);
00070
00071 fprintf(stdout," >>> Normalisation du profil [%s] effectuée \n",nom);
00072 }
00073 }
00074
00075