33 parameter(des =
"Ceci est un courte description"
34 1 //
" du fichier test1.med")
37 call mfiope(fid,
'test1.med',med_acc_rdwr, cret)
39 if (cret .ne. 0 )
then
40 print *,
'Erreur à la création du fichier'
47 if (cret .ne. 0 )
then
48 print *,
'Erreur à ecriture en-tete'
55 if (cret .le. 0 )
then
56 print *,
'Erreur à la lecture de la taille du nom de fichier'
61 call mfinam(fid,fname, cret)
63 if (cret .le. 0 )
then
64 print *,
'Erreur à la lecture du nom de fichier'
72 if (cret .ne. 0 )
then
73 print *,
'Erreur à la fermeture du fichier'
78 call mfiope(fid,
'test1.med',med_acc_rdonly, cret)
80 if (cret .ne. 0 )
then
81 print *,
'Erreur ouverture du fichier en lecture'
88 if (cret .ne. 0 )
then
89 print *,
'Erreur à la fermeture du fichier'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfinam(fid, name, cret)
Renvoi le nom de fichier MED à partir d'un med_idt.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficow(fid, cmt, cret)
Ecriture d'un descripteur dans un fichier MED.