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 test33
00026 
00027 
00028         implicit none
00029         include 'med.hf'
00030 
00031 
00032         integer cret,fid
00033         character*32 maa 
00034         character*200 desc
00035         integer nmaa,mdim,type,narr
00036         integer numglb(100)
00037 
00038 
00039 
00040 
00041 
00042         call efouvr(fid,'test31.med',MED_LECTURE, cret)
00043         print '(I1)',cret
00044         if (cret .ne. 0 ) then
00045            print *,'Erreur ouverture du fichier test31.med'
00046            call efexit(-1)
00047         endif      
00048 
00049   
00050 
00051         
00052         call efnmaa(fid,nmaa,cret)
00053         print '(I1)',cret
00054         if (cret .ne. 0 ) then
00055            print *,'Erreur lecture du nombre de maillage'
00056            call efexit(-1)
00057         endif      
00058         print '(A,I2)','Nombre de maillages = ',nmaa
00059 
00060 
00061 
00062 
00063         call efmaai(fid,1,maa,mdim,type,desc,cret)
00064         print '(I1)',cret
00065         if (cret .ne. 0 ) then
00066            print *,'Erreur acces au premier maillage'
00067            call efexit(-1)
00068         endif      
00069 
00070         call efnema(fid,maa,MED_CONN,MED_ARETE,MED_SEG2,MED_DESC
00071      1    ,narr,cret)   
00072         if (cret .ne. 0 ) then
00073            print *,'Erreur acces au nombre d''arretes',
00074      &             ' du premier maillage'
00075            call efexit(-1)
00076         endif      
00077 
00078 
00079          print '(A,I1,A,A4,A,I1,A,I4)','maillage '
00080      &        ,0,' de nom ',maa,' et de dimension ',mdim,
00081      &        ' comportant le nombre d''arretes ',narr
00082 
00083 
00084 
00085 
00086          call efgnml(fid,maa,numglb,max(narr,100),
00087      &     MED_ARETE,MED_TRIA3,cret)
00088 
00089         if (cret .ge. 0 ) then
00090            print '(A)','Erreur lecture numerotation globale ARRETE'
00091            print '(A)','cette numerotation devait etre inexistante '
00092            call efexit(-1)
00093         endif      
00094 
00095 
00096 
00097         call efferm (fid,cret)
00098         print '(I1)',cret
00099         if (cret .ne. 0 ) then
00100            print *,'Erreur fermeture du fichier'
00101            call efexit(-1)
00102         endif      
00103 
00104         end