32 parameter(fname =
"Unittest_MEDfilter_2.med")
37 integer nent,nvale,scent
38 parameter(nent=10,nvale=1,scent=2)
42 call mfiope(fid,fname,med_acc_creat,cret)
43 print *,
'Open file',cret
44 if (cret .ne. 0 )
then
45 print *,
'ERROR : open file'
52 print *,
'Filter array allocation',cret
53 if (cret .ne. 0 )
then
54 print *,
'ERROR : filter array allocation'
58 call mfrcre(fid,nent,nvale,scent,med_all_constituent,
59 & med_full_interlace,med_global_stmode,
60 & med_no_profile,med_undef_size,flta,flt(1),
62 print *,
'Filter creation',cret
63 if (cret .ne. 0 )
then
64 print *,
'ERROR : filter creation'
71 print *,
'Filter array deallocation',cret
72 if (cret .ne. 0 )
then
73 print *,
'ERROR : filter dearray allocation'
80 print *,
'Close file',cret
81 if (cret .ne. 0 )
then
82 print *,
'ERROR : close file'
subroutine mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mfrall(nflt, flt, cret)
Alloue un tableau de filtres de taille nfilter.
subroutine mficlo(fid, cret)