32 parameter(fname =
"Unittest_MEDfilter_1.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'