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