Aller à la documentation de ce fichier.
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'
subroutine mficor(fid, cmt, cret)
Lecture d'un descripteur dans un fichier MED.
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 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.
subroutine mmhunw(fid, name, cret)
Cette routine permet l'écriture du nom universel d'un maillage.
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è...