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'