medfilter.f

Aller à la documentation de ce fichier.
00001 C*  This file is part of MED.
00002 C*
00003 C*  COPYRIGHT (C) 1999 - 2011  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
00023       implicit none
00024       save
00025       character*(*) pname 
00026       integer flta(*)
00027       integer fid,nent,nvent,ncent
00028       integer stm,fltas
00029       integer*8 flt
00030       integer cret,cs,swm
00031       integer mfrfcre
00032 c
00033       cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
00034      &               pname,len(pname),fltas,flta,flt)
00035 c      
00036       return
00037       end
00038 c
00039 c
00040 c
00041       subroutine mfrall(nflt,flt,cret)
00042 c
00043       implicit none
00044       save 
00045       integer*8 flt(*)
00046       integer nflt,cret
00047       integer mfrfall
00048 c
00049       cret = mfrfall(nflt,flt)
00050 c      
00051       return
00052       end     
00053 c
00054 c
00055 c
00056       subroutine mfrdea(nflt,flt,cret)
00057 c
00058       implicit none
00059       save 
00060       integer*8 flt(*)
00061       integer nflt,cret
00062       integer mfrfdea
00063 c
00064       cret = mfrfdea(nflt,flt)
00065 c      
00066       return
00067       end     
00068 c
00069 c
00070 c
00071       subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
00072      &                  stm,pname,start,stride,count,bsize,
00073      &                  lbsize,flt,cret)
00074 c
00075       implicit none
00076       save
00077       character*(*) pname 
00078       integer fid,nent,nvent,ncent
00079       integer start,stride,count,bsize,lbsize
00080       integer stm
00081       integer*8 flt
00082       integer cret,cs,swm
00083       integer mfrfblc
00084 c
00085       cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
00086      &               pname,len(pname),start,stride,count,bsize,
00087      &               lbsize,flt)
00088 c      
00089       return
00090       end
00091 
00092 

Généré le Mon May 16 17:10:23 2011 pour MED fichier par  doxygen 1.6.1