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'
subroutine mfiexi(fname, access, fexist, accok, cret)
Interroge l'existence d'un fichier de nom filename et la possibilité de l'ouvrir selon le mode d'accè...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
subroutine mficor(fid, cmt, cret)
Lecture d'un descripteur dans un fichier MED.
subroutine mmhunw(fid, name, cret)
Cette routine permet l'écriture du nom universel d'un maillage.
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.