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' subroutine mficlo(fid, cret)
subroutine mficow(fid, cmt, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mfinam(fid, name, cret)
Renvoi le nom de fichier MED à partir d'un med_idt.