# 2.3.6/test22.c

Aller à la documentation de ce fichier.

    00001 /*  This file is part of MED.
    00002  *
    00003  *  COPYRIGHT (C) 1999 - 2011  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 /******************************************************************************
    00020  * - Nom du fichier : test22.c
    00021  *
    00022  * - Description : lecture de valeurs scalaires numeriques crees dans test21.
    00023  *
    00024  *****************************************************************************/
    00025
    00026 #include <med.h>
    00027 #define MESGERR 1
    00028 #include <med_utils.h>
    00029
    00030 #ifdef DEF_LECT_ECR
    00031 #define MODE_ACCES MED_LECTURE_ECRITURE
    00032 #elif DEF_LECT_AJOUT
    00033 #define MODE_ACCES MED_LECTURE_AJOUT
    00034 #else
    00035 #define MODE_ACCES MED_CREATION
    00036 #endif
    00037
    00038 int main (int argc, char **argv)
    00039
    00040
    00041 {
    00042   med_idt fid;
    00043   char nom_scalaire[MED_TAILLE_NOM+1];
    00044   char description[MED_TAILLE_DESC+1];
    00045   med_int vali;
    00046   med_float valr;
    00047   med_int i,n,npdt,j;
    00048   med_type_champ type;
    00049   med_int numdt,numo;
    00050   med_float dt;
    00051   char dt_unit[MED_TAILLE_PNOM+1];
    00052
    00053   /* Ouverture du fichier test21.med en lecture seule */
    00054   if ((fid = MEDouvrir("test21.med",MED_LECTURE)) < 0) {
    00055     MESSAGE("Erreur a l'ouverture du fichier test21.med");
    00056     return -1;
    00057   }
    00058
    00059   /* Lecture du nombre de variable scalaire */
    00060   n = MEDnScalaire(fid);
    00061   if (n < 0) {
    00062     MESSAGE("Erreur a la lecture du nombre de variable scalaire");
    00063     return -1;
    00064   }
    00065   printf("Nombre de variables scalaires dans tes21.med = %d\n",n);
    00066
    00067   /* Lecture des infos sur les variables (type,description) */
    00068   for (i=1;i<=n;i++) {
    00069
    00070     if (MEDscalaireInfo(fid,i,nom_scalaire,&type,description) < 0) {
    00071       MESSAGE("Erreur a la lecture des infos sur la variable d'indice : ");
    00072       ISCRUTE(i);
    00073       return -1;
    00074     }
    00075     printf("- Scalaire n°"IFORMAT" de nom %s \n",i,nom_scalaire);
    00076     if (type == MED_FLOAT64)
    00077       printf("  Type flottant. \n");
    00078     else
    00079       printf("  Type entier. \n");
    00080     printf("  Description associee : [%s] \n",description);
    00081
    00082     /* Pour chaque scalaire on regarde les valeurs associees
    00083        eventuellement a des pas de temps et des numeros d'ordre */
    00084     npdt = MEDnScalairePasdetemps(fid,nom_scalaire);
    00085     if (npdt < 0) {
    00086       MESSAGE("Erreur a la lecture du nombre de pas de temps");
    00087       return -1;
    00088     }
    00089     printf("   Nombre de valeurs stockees : "IFORMAT" \n",npdt);
    00090
    00091     for (j=1;j<=npdt;j++) {
    00092
    00093       if (MEDscalairePasdetempsInfo(fid,nom_scalaire,j,&numdt,dt_unit,&dt,&numo) < 0) {
    00094         MESSAGE("Erreur a la lecture des informations sur le pas de temps d'indice :");
    00095         ISCRUTE(j);
    00096         return -1;
    00097       }
    00098
    00099       printf("   Valeur n°"IFORMAT" : \n",j);
    00100       if (numdt == MED_NOPDT)
    00101         printf("   - Aucun de pas de temps \n");
    00102       else
    00103         printf("   - Pas de de temps de numero "IFORMAT" de valeur %f [%s] \n",numdt,dt,dt_unit);
    00104       if (numo == MED_NONOR)
    00105         printf("   - Aucun numero d'ordre \n");
    00106       else
    00107         printf("   - Numero d'ordre : "IFORMAT" \n",numo);
    00108
    00109       /* Lecture de la valeur flottante associee au pas de temps */
    00110       if (type == MED_FLOAT64) {
    00111         if (MEDscalaireFlottantLire(fid,nom_scalaire,&valr,numdt,numo) < 0) {
    00112           MESSAGE("Erreur a la lecture de la valeur flottante : ");
    00113           SSCRUTE(nom_scalaire); ISCRUTE(numdt);ISCRUTE(numo);
    00114           return -1;
    00115         }
    00116         printf("    - Valeur : %f \n",valr);
    00117       } else {
    00118         /* Lecture de la valeur scalaire associee au pas de temps */
    00119         if (MEDscalaireEntierLire(fid,nom_scalaire,&vali,numdt,numo) < 0) {
    00120           MESSAGE("Erreur a la lecture de la valeur entiere : ");
    00121           SSCRUTE(nom_scalaire); ISCRUTE(numdt);ISCRUTE(numo);
    00122           return -1;
    00123         }
    00124         printf("    - Valeur : "IFORMAT" \n",vali);
    00125       }
    00126     }
    00127
    00128   }
    00129
    00130   /* Fermeture du fichier */
    00131   if (MEDfermer(fid) < 0) {
    00132     MESSAGE("Erreur a la fermeture du fichier ");
    00133     return -1;
    00134   }
    00135
    00136   return 0;
    00137 }