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