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 mfiope(fid, name, access, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mficlo(fid, cret)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mfrall(nflt, flt, cret)