MEDscalairePasdetempsInfo.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 #include <med.h>
00020 #include <med_config.h>
00021 #include <med_outils.h>
00022 #include <string.h>
00023
00024 med_err
00025 MEDscalairePasdetempsInfo(med_idt fid,char *scalaire,int indice,
00026 med_int * numdt, char * dt_unit, med_float * dt,med_int * numo)
00027 {
00028 med_err ret=0;
00029 med_idt gid;
00030 char chemin[MED_TAILLE_NUM_DATA+MED_TAILLE_NOM+1+2*MED_MAX_PARA+1];
00031 int num;
00032 char nomdatagroup[2*MED_MAX_PARA+1];
00033
00034
00035
00036
00037 _MEDmodeErreurVerrouiller();
00038 if (MEDcheckVersion(fid) < 0) return -1;
00039
00040
00041
00042
00043
00044 strcpy(chemin,MED_NUM_DATA);
00045 strcat(chemin,scalaire);
00046 strcat(chemin,"/");
00047 num = indice - 1;
00048 if ((ret = _MEDobjetIdentifier(fid,chemin,num,nomdatagroup)) < 0)
00049 return -1;
00050 strcat(chemin,nomdatagroup);
00051 if ((gid = _MEDdatagroupOuvrir(fid,chemin)) < 0)
00052 return -1;
00053
00054
00055
00056
00057 if ((ret = _MEDattrEntierLire(gid,MED_NOM_NDT,(med_int*) numdt)) < 0)
00058 return -1;
00059
00060 if ((ret = _MEDattrFloatLire(gid,MED_NOM_PDT,(med_float*) dt)) < 0)
00061 return -1;
00062
00063 if ((ret = _MEDattrStringLire(gid,MED_NOM_UNI,MED_TAILLE_PNOM,dt_unit)) < 0)
00064 return -1;
00065
00066 if ((ret = _MEDattrEntierLire(gid,MED_NOM_NOR,(med_int*) numo)) < 0)
00067 return -1;
00068
00069
00070
00071
00072 if ((ret = _MEDdatagroupFermer(gid)) < 0)
00073 return -1;
00074
00075 return ret;
00076 }