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 }