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