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