Unittest_MEDfilter_2.f
Aller à la documentation de ce fichier.00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022       program MEDfilter2
00023 
00024       implicit none
00025       include 'med.hf'
00026 
00027 
00028       integer cret
00029       integer fid
00030       character*64 fname
00031       parameter (fname = "Unittest_MEDfilter_2.med")
00032       integer nflt
00033       parameter (nflt=1)
00034       integer flta(1)
00035       integer*8 flt(1)
00036       integer nent,nvale,scent
00037       parameter (nent=10,nvale=1,scent=2)
00038 
00039 
00040 
00041       call mfiope(fid,fname,MED_ACC_CREAT,cret)
00042       print *,'Open file',cret
00043       if (cret .ne. 0 ) then
00044          print *,'ERROR : open file'
00045          call efexit(-1)
00046       endif
00047 
00048 
00049 
00050       call mfrall(nflt,flt,cret)
00051       print *,'Filter array allocation',cret
00052       if (cret .ne. 0 ) then
00053          print *,'ERROR : filter array allocation'
00054          call efexit(-1)
00055       endif
00056 
00057       call mfrcre(fid,nent,nvale,scent,MED_ALL_CONSTITUENT,
00058      &            MED_FULL_INTERLACE,MED_GLOBAL_PFLMODE, 
00059      &            MED_NO_PROFILE,MED_UNDEF_SIZE,flta,flt(1),
00060      &            cret)
00061       print *,'Filter creation',cret
00062       if (cret .ne. 0 ) then
00063          print *,'ERROR : filter creation'
00064          call efexit(-1)
00065       endif
00066 
00067 
00068 
00069       call mfrdea(nflt,flt,cret)
00070       print *,'Filter array deallocation',cret
00071       if (cret .ne. 0 ) then
00072          print *,'ERROR : filter dearray allocation'
00073          call efexit(-1)
00074       endif
00075 
00076 
00077 
00078       call mficlo(fid,cret)
00079       print *,'Close file',cret
00080       if (cret .ne. 0 ) then
00081          print *,'ERROR :  close file'
00082          call efexit(-1)
00083       endif  
00084 
00085 
00086 
00087       end
00088