MEDunvLire.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
00023 #include <string.h>
00024 #include <stdlib.h>
00025
00026 #include <stdio.h>
00027
00028 #ifdef PPRO_NT
00029
00030 #include <sys/timeb.h>
00031 #else
00032
00033 #if TIME_WITH_SYS_TIME
00034 # include <sys/time.h>
00035 # include <time.h>
00036 #else
00037 # if HAVE_SYS_TIME_H
00038 # include <sys/time.h>
00039 # else
00040 # include <time.h>
00041 # endif
00042 #endif
00043
00044 #endif
00045
00046 med_err
00047 MEDunvLire(med_idt fid, char *maa,char *nomu)
00048 {
00049 med_idt maaid=0;
00050 char chemin [MED_TAILLE_MAA+MED_TAILLE_NOM+1];
00051 med_err ret=-1;
00052
00053
00054
00055
00056 _MEDmodeErreurVerrouiller();
00057 if (MEDcheckVersion(fid) < 0) return -1;
00058
00059
00060
00061
00062
00063 strcpy(chemin,MED_MAA);
00064 strcat(chemin,maa);
00065 if ((maaid = _MEDdatagroupOuvrir(fid,chemin)) < 0)
00066 goto ERROR;
00067
00068
00069
00070
00071 if ((ret = _MEDattrStringLire(maaid,MED_NOM_UNV,MED_TAILLE_LNOM,
00072 nomu )) < 0)
00073 goto ERROR;
00074
00075
00076
00077
00078
00079 ret=0;
00080 ERROR:
00081
00082 if ( maaid> 0 ) if ( _MEDdatagroupFermer(maaid) < 0) {
00083 MESSAGE("Impossible de fermer le datagroup : ");
00084 ISCRUTE_id(maaid);ret = -1;
00085 }
00086
00087 return ret;
00088 }
00089
00090
00091