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)
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)
subroutine mfiope(fid, name, access, cret)
subroutine mlbnuv(major, minor, rel, cret)
Renvoie les 3 numéros de version de la librairie MED.