31 parameter(fname =
"Unittest_MEDfilter_1.med")
36 integer nent,nvale,scent
37 parameter(nent=10,nvale=1,scent=2)
41 call mfiope(fid,fname,med_acc_creat,cret)
42 print *,
'Open file',cret
43 if (cret .ne. 0 )
then
44 print *,
'ERROR : open file'
51 print *,
'Filter array allocation',cret
52 if (cret .ne. 0 )
then
53 print *,
'ERROR : filter array allocation'
57 call mfrcre(fid,nent,nvale,scent,med_all_constituent,
58 & med_full_interlace,med_global_stmode,
59 & med_no_profile,med_undef_size,flta,flt(1),
61 print *,
'Filter creation',cret
62 if (cret .ne. 0 )
then
63 print *,
'ERROR : filter creation'
70 print *,
'Filter array deallocation',cret
71 if (cret .ne. 0 )
then
72 print *,
'ERROR : filter dearray allocation'
79 print *,
'Close file',cret
80 if (cret .ne. 0 )
then
81 print *,
'ERROR : close file'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
Crée une selection d'entités grâce a un tableau d'index filterarray de taille filterarraysize. Initialisé en sortie de fonction, le filtre filter sera utilisé pour lire/écrire des valeurs associées à ces entités. Ces valeurs peuvent être des coordonnées, des connectivités des valeurs de champs résultats mais aussi des numéros de familles, des noms ou numéros optionnels.
subroutine mfrall(nflt, flt, cret)
Alloue un tableau de filtres de taille nfilter.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.