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 program test3
00026
00027 implicit none
00028 include 'med.hf'
00029
00030
00031 integer cret,fid,cres,type,cnu
00032 character*32 maa
00033 character*80 nomu
00034 character*200 desc
00035 integer nmaa,i,mdim,edim
00036
00037
00038 call efouvr(fid,'test2.med',MED_LECTURE, cret)
00039 print *,cret
00040 if (cret .ne. 0 ) then
00041 print *,'Erreur ouverture du fichier en lecture'
00042 call efexit(-1)
00043 endif
00044
00045
00046 call efnmaa(fid,nmaa,cret)
00047 print *,cret
00048 if (cret .ne. 0 ) then
00049 print *,'Erreur lecture du nombre de maillage'
00050 call efexit(-1)
00051 endif
00052 print *,'Nombre de maillages = ',nmaa
00053
00054
00055
00056
00057 do i=1,nmaa
00058 call efmaai(fid,i,maa,mdim,type,desc,cret)
00059 edim = -1
00060 call efespl(fid,maa,edim,cres)
00061 call efunvl(fid,maa,nomu,cnu)
00062 print *,cret
00063 if (cret .ne. 0 ) then
00064 print *,'Erreur acces au maillage'
00065 call efexit(-1)
00066 endif
00067 print '(A,I1,A,A4,A,I1,A,A65,A65)','maillage '
00068 & ,i,' de nom ',maa,' et de dimension ',mdim,
00069 & ' de description ',desc
00070 if (type.eq.MED_NON_STRUCTURE) then
00071 print *,'Maillage non structure'
00072 else
00073 print *,'Maillage structure'
00074 endif
00075 if (cres.eq.0) then
00076 print *,'Dimension espace ', edim
00077 else
00078 print *,'Dimension espace ', mdim
00079 endif
00080 if (cnu.eq.0) then
00081 print *,'Nom universel : ',nomu
00082 else
00083 print *,'Pas de nom universel'
00084 endif
00085 enddo
00086
00087
00088 call efferm (fid,cret)
00089 print *,cret
00090 if (cret .ne. 0 ) then
00091 print *,'Erreur fermeture du fichier'
00092 call efexit(-1)
00093 endif
00094
00095 end
00096