32 parameter(des =
"Ceci est un courte description"
33 1 //
" du fichier test1.med")
36 call mfiope(fid,
'test1.med',med_acc_rdwr, cret)
38 if (cret .ne. 0 )
then
39 print *,
'Erreur à la création du fichier'
46 if (cret .ne. 0 )
then
47 print *,
'Erreur à ecriture en-tete'
54 if (cret .le. 0 )
then
55 print *,
'Erreur à la lecture de la taille du nom de fichier'
60 call mfinam(fid,fname, cret)
62 if (cret .le. 0 )
then
63 print *,
'Erreur à la lecture du nom de fichier'
71 if (cret .ne. 0 )
then
72 print *,
'Erreur à la fermeture du fichier'
77 call mfiope(fid,
'test1.med',med_acc_rdonly, cret)
79 if (cret .ne. 0 )
then
80 print *,
'Erreur ouverture du fichier en lecture'
87 if (cret .ne. 0 )
then
88 print *,
'Erreur à la fermeture du fichier'