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'