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*64 maa 
00034         character*200 desc
00035         integer nmaa,mdim,type,narr,chgt,tsf
00036         integer numglb(100)
00037 
00038 
00039 
00040 
00041 
00042         call mfiope(fid,'test31.med',MED_ACC_RDONLY, 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         call mmhnme(fid,'maa1',MED_NO_DT,MED_NO_IT,
00052      &              MED_DESCENDING_EDGE,MED_SEG2,
00053      &              MED_CONNECTIVITY,MED_DESCENDING,
00054      &              chgt,tsf,narr,cret)   
00055         if (cret .ne. 0 ) then
00056            print *,'Erreur acces au nombre d''arretes',
00057      &             ' du premier maillage'
00058            call efexit(-1)
00059         endif      
00060 
00061 
00062          print '(A,I1,A,A4,A,I1,A,I4)','maillage '
00063      &        ,0,' de nom ','maa1',' et de dimension ',mdim,
00064      &        ' comportant le nombre d''arretes ',narr
00065 
00066 
00067 
00068          call  mmhgnr(fid,'maa1',MED_NO_DT,MED_NO_IT,MED_DESCENDING_EDGE,
00069      &                MED_SEG2,numglb,cret)
00070 
00071         if (cret .ge. 0 ) then
00072            print '(A)','Erreur lecture numerotation globale ARRETE'
00073            print '(A)','cette numerotation devait etre inexistante '
00074            call efexit(-1)
00075         endif      
00076         print *,"Ce test doit générer une erreur."
00077 
00078 
00079         call mficlo(fid,cret)
00080         print '(I1)',cret
00081         if (cret .ne. 0 ) then
00082            print *,'Erreur fermeture du fichier'
00083            call efexit(-1)
00084         endif      
00085 
00086         end