35 character*16 nomcoo(2)
36 character*16 unicoo(2)
37 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
41 call mfiexi(
'test1.med', med_acc_rdonly, fexist, accok, cret)
42 print *,
"fexistf :",fexist,
" ; accok :", accok
45 call mficom(
'test1.med',hdfok,medok,cret)
46 print *,hdfok, medok, cret
47 if (cret .ne. 0 )
then 48 print *,
'Erreur à la vérification du format' 53 call mfiope(fid,
'test1.med',med_acc_rdonly, cret)
55 if (cret .ne. 0 )
then 56 print *,
'Erreur ouverture du fichier en lecture' 63 if (cret .ne. 0 )
then 64 print *,
'Erreur lecture en-tete du fichier' 67 print *,
"DESCRIPTEUR DE FICHIER : ",des
73 if (cret .ne. 0 )
then 74 print *,
'Erreur fermeture du fichier' 79 call mfiexi(
'test2.med', med_acc_rdwr, fexist, accok, cret)
80 print *,
"fexistf :",fexist,
" ; accok :", accok
83 call mfiope(fid,
'test2.med',med_acc_rdwr, cret)
85 if (cret .ne. 0 )
then 86 print *,
'Erreur creation du fichier' 92 call mmhcre(fid,
'maa1',2,2,
93 & med_unstructured_mesh,
'un premier maillage',
94 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
97 call mmhunw(fid,
'maa1',ret)
100 if (cret .ne. 0 )
then 101 print *,
'Erreur creation du maillage' 106 call mmhcre(fid,
'maa2',2,2,
107 & med_unstructured_mesh,
'un second maillage',
108 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
110 if (cret .ne. 0 )
then 111 print *,
'Erreur creation du maillage' 117 call mmhcre(fid,
'maa3',2,2,
118 & med_structured_mesh,
'un troisieme maillage',
119 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
122 if (cret .ne. 0 )
then 123 print *,
'Erreur creation du maillage' 130 if (cret .ne. 0 )
then 131 print *,
'Erreur fermeture du fichier'