36 character*16 nomcoo(2)
37 character*16 unicoo(2)
38 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
42 call mfiexi(
'test1.med', med_acc_rdonly, fexist, accok, cret)
43 print *,
"fexistf :",fexist,
" ; accok :", accok
46 call mficom(
'test1.med',hdfok,medok,cret)
47 print *,hdfok, medok, cret
48 if (cret .ne. 0 )
then 49 print *,
'Erreur à la vérification du format' 54 call mfiope(fid,
'test1.med',med_acc_rdonly, cret)
56 if (cret .ne. 0 )
then 57 print *,
'Erreur ouverture du fichier en lecture' 64 if (cret .ne. 0 )
then 65 print *,
'Erreur lecture en-tete du fichier' 68 print *,
"DESCRIPTEUR DE FICHIER : ",des
74 if (cret .ne. 0 )
then 75 print *,
'Erreur fermeture du fichier' 80 call mfiexi(
'test2.med', med_acc_rdwr, fexist, accok, cret)
81 print *,
"fexistf :",fexist,
" ; accok :", accok
84 call mfiope(fid,
'test2.med',med_acc_rdwr, cret)
86 if (cret .ne. 0 )
then 87 print *,
'Erreur creation du fichier' 93 call mmhcre(fid,
'maa1',2,2,
94 & med_unstructured_mesh,
'un premier maillage',
95 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
99 call mmhunw(fid,
'maa1',ret)
102 if (cret .ne. 0 )
then 103 print *,
'Erreur creation du maillage' 108 call mmhcre(fid,
'maa2',2,2,
109 & med_unstructured_mesh,
'un second maillage',
110 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
112 if (cret .ne. 0 )
then 113 print *,
'Erreur creation du maillage' 119 call mmhcre(fid,
'maa3',2,2,
120 & med_structured_mesh,
'un troisieme maillage',
121 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
124 if (cret .ne. 0 )
then 125 print *,
'Erreur creation du maillage' 132 if (cret .ne. 0 )
then 133 print *,
'Erreur fermeture du fichier'