medfilter.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2015  EDF R&D, CEA/DEN
00004 C*  MED is free software: you can redistribute it and/or modify
00005 C*  it under the terms of the GNU Lesser General Public License as published by
00006 C*  the Free Software Foundation, either version 3 of the License, or
00007 C*  (at your option) any later version.
00008 C*
00009 C*  MED is distributed in the hope that it will be useful,
00010 C*  but WITHOUT ANY WARRANTY; without even the implied warranty of
00011 C*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00012 C*  GNU Lesser General Public License for more details.
00013 C*
00014 C*  You should have received a copy of the GNU Lesser General Public License
00015 C*  along with MED.  If not, see <http://www.gnu.org/licenses/>.
00016 C*
00017 c
00018 c
00019 c
00020       subroutine mfrcre(fid,nent,nvent,ncent,cs,swm,
00021      &                  stm,pname,fltas,flta,flt,cret)
00022 c     DEC$ ATTRIBUTES DLLEXPORT :: mfrcre
00023 c
00024       implicit none
00025       save
00026       character*(*) pname 
00027       integer flta(*)
00028       integer fid,nent,nvent,ncent
00029       integer stm,fltas
00030       integer*8 flt
00031       integer cret,cs,swm
00032       integer mfrfcre
00033 c
00034       cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
00035      &               pname,len(pname),fltas,flta,flt)
00036 c      
00037       return
00038       end
00039 c
00040 c
00041 c
00042       subroutine mfrall(nflt,flt,cret)
00043 c     DEC$ ATTRIBUTES DLLEXPORT :: mfrall
00044 c
00045       implicit none
00046       save 
00047       integer*8 flt(*)
00048       integer nflt,cret
00049       integer mfrfall
00050 c
00051       cret = mfrfall(nflt,flt)
00052 c      
00053       return
00054       end     
00055 c
00056 c
00057 c
00058       subroutine mfrdea(nflt,flt,cret)
00059 c     DEC$ ATTRIBUTES DLLEXPORT :: mfrdea
00060 c
00061       implicit none
00062       save 
00063       integer*8 flt(*)
00064       integer nflt,cret
00065       integer mfrfdea
00066 c
00067       cret = mfrfdea(nflt,flt)
00068 c      
00069       return
00070       end     
00071 c
00072 c
00073 c
00074       subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
00075      &                  stm,pname,start,stride,count,bsize,
00076      &                  lbsize,flt,cret)
00077 c     DEC$ ATTRIBUTES DLLEXPORT :: mfrblc
00078 c
00079       implicit none
00080       save
00081       character*(*) pname 
00082       integer fid,nent,nvent,ncent
00083       integer start,stride,count,bsize,lbsize
00084       integer stm
00085       integer*8 flt
00086       integer cret,cs,swm
00087       integer mfrfblc
00088 c
00089       cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
00090      &               pname,len(pname),start,stride,count,bsize,
00091      &               lbsize,flt)
00092 c      
00093       return
00094       end
00095 
00096 

Généré le Thu Oct 8 14:26:16 2015 pour MED fichier par  doxygen 1.6.1