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 mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mfiope(fid, name, access, cret)
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)
subroutine mficor(fid, cmt, cret)
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.
subroutine mmhunw(fid, name, cret)