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'