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