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 mficlo(fid, cret)
subroutine mfinvr(fid, major, minor, rel, cret)
subroutine mlbnuv(major, minor, rel, cret)
Renvoie les 3 numéros de version de la librairie MED.
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.