2.3.6/test22.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 
00021 
00022 
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   
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   
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   
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     
00083 
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       
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         
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   
00131   if (MEDfermer(fid) < 0) {
00132     MESSAGE("Erreur a la fermeture du fichier ");
00133     return -1;
00134   }
00135 
00136   return 0;
00137 }