31 parameter(fname =
"Unittest_MEDfilter_2.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)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mfiope(fid, name, access, cret)