Aller à la documentation de ce fichier.
38 call mfiope(fid,
'test18.med',med_acc_rdwr, cret)
40 if (cret .ne. 0 )
then
41 print *,
'Erreur creation du fichier'
44 print *,
'- Creation du fichier'
49 if (cret .ne. 0 )
then
50 print *,
'Erreur fermeture du fichier'
53 print *,
'- Fermeture du fichier'
56 call mlbnuv(maj,min,rel,cret)
58 if (cret .ne. 0 )
then
59 print *,
'Erreur lecture version med'
62 print *,
'- Version MED utilisee : ',maj,
'.',min,
'.',rel
65 call mficom(
'test18.med',hdfok, medok,cret)
67 if (hdfok .eq. 1)
then
68 print *,
'- Format HDF conforme'
70 print *,
'- Format HDF non conforme'
73 if (medok .eq. 1)
then
74 print *,
'- Version MED du fichier conforme'
76 print *,
'- Version MED du fichier non conforme'
81 call mfiope(fid,
'test18.med',med_acc_rdonly, cret)
82 if (cret .ne. 0 )
then
83 print *,
'Erreur ouverture du fichier'
86 print *,
'- Ouverture du fichier'
89 call mfinvr(fid,maj,min,rel,cret)
90 if (cret .ne. 0 )
then
91 print *,
'Erreur lecture version med du fichier'
95 print *,
'- Fichier cree avec MED V',maj,
'.',min,
'.',rel
100 if (cret .ne. 0 )
then
101 print *,
'Erreur fermeture du fichier'
104 print *,
'- Fermeture du fichier'
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.
subroutine mlbnuv(major, minor, rel, cret)
Renvoie les 3 numéros de version de la librairie MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier 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 mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.