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 mfinvr(fid, major, minor, rel, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mficom(fname, hdfok, medok, cret)
subroutine mlbnuv(major, minor, rel, cret)