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 mfiope(fid, name, access, cret)
subroutine mfinvr(fid, major, minor, rel, cret)
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)