37 call mfiope(fid,
'test18.med',med_acc_rdwr, cret)
39 if (cret .ne. 0 )
then
40 print *,
'Erreur creation du fichier'
43 print *,
'- Creation du fichier'
48 if (cret .ne. 0 )
then
49 print *,
'Erreur fermeture du fichier'
52 print *,
'- Fermeture du fichier'
55 call mlbnuv(maj,min,rel,cret)
57 if (cret .ne. 0 )
then
58 print *,
'Erreur lecture version med'
61 print *,
'- Version MED utilisee : ',maj,
'.',min,
'.',rel
64 call mficom(
'test18.med',hdfok, medok,cret)
66 if (hdfok .eq. 1)
then
67 print *,
'- Format HDF conforme'
69 print *,
'- Format HDF non conforme'
72 if (medok .eq. 1)
then
73 print *,
'- Version MED du fichier conforme'
75 print *,
'- Version MED du fichier non conforme'
80 call mfiope(fid,
'test18.med',med_acc_rdonly, cret)
81 if (cret .ne. 0 )
then
82 print *,
'Erreur ouverture du fichier'
85 print *,
'- Ouverture du fichier'
88 call mfinvr(fid,maj,min,rel,cret)
89 if (cret .ne. 0 )
then
90 print *,
'Erreur lecture version med du fichier'
94 print *,
'- Fichier cree avec MED V',maj,
'.',min,
'.',rel
99 if (cret .ne. 0 )
then
100 print *,
'Erreur fermeture du fichier'
103 print *,
'- Fermeture du fichier'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.
subroutine mfinvr(fid, major, minor, rel, cret)
Lecture du numéro de version de la bibliothèque MED utilisée pour créer le fichier.
subroutine mlbnuv(major, minor, rel, cret)
Renvoie les 3 numéros de version de la librairie MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.