Aller à la documentation de ce fichier.
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 mficow(fid, cmt, cret)
Ecriture d'un descripteur dans un fichier MED.
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.