medfilter.f
Aller à la documentation de ce fichier.
C* This file is part of MED.
C*
C* COPYRIGHT (C) 1999 - 2020 EDF R&D, CEA/DEN
C* MED is free software: you can redistribute it and/or modify
C* it under the terms of the GNU Lesser General Public License as published by
C* the Free Software Foundation, either version 3 of the License, or
C* (at your option) any later version.
C*
C* MED is distributed in the hope that it will be useful,
C* but WITHOUT ANY WARRANTY; without even the implied warranty of
C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
C* GNU Lesser General Public License for more details.
C*
C* You should have received a copy of the GNU Lesser General Public License
C* along with MED. If not, see <http://www.gnu.org/licenses/>.
C*
c
c
c
subroutine mfrcre(fid,nent,nvent,ncent,cs,swm,
& stm,pname,fltas,flta,flt,cret)
c DEC$ ATTRIBUTES DLLEXPORT :: mfrcre
c
implicit none
save
character*(*) pname
integer flta(*)
integer*8 fid
integer nent,nvent,ncent
integer stm,fltas
integer*8 flt
integer cret,cs,swm
integer mfrfcre
c
cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
& pname,len(pname),fltas,flta,flt)
c
return
end
c
c
c
subroutine mfrall(nflt,flt,cret)
c DEC$ ATTRIBUTES DLLEXPORT :: mfrall
c
implicit none
save
integer*8 flt(*)
integer nflt,cret
integer mfrfall
c
cret = mfrfall(nflt,flt)
c
return
end
c
c
c
subroutine mfrdea(nflt,flt,cret)
c DEC$ ATTRIBUTES DLLEXPORT :: mfrdea
c
implicit none
save
integer*8 flt(*)
integer nflt,cret
integer mfrfdea
c
cret = mfrfdea(nflt,flt)
c
return
end
c
c
c
subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
& stm,pname,start,stride,count,bsize,
& lbsize,flt,cret)
c DEC$ ATTRIBUTES DLLEXPORT :: mfrblc
c
implicit none
save
character*(*) pname
integer*8 fid
integer nent,nvent,ncent
integer start,stride,count,bsize,lbsize
integer stm
integer*8 flt
integer cret,cs,swm
integer mfrfblc
c
cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
& pname,len(pname),start,stride,count,bsize,
& lbsize,flt)
c
return
end
mfrblc
subroutine mfrblc(fid, nent, nvent, ncent, cs, swm, stm, pname, start, stride, count, bsize, lbsize, flt, cret)
Crée un filtre en selectionnant par blocs les entités pour lesquelles on veut lire/écrire des valeurs...
Definition medfilter.f:78
mfrcre
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
Definition medfilter.f:22
mfrall
subroutine mfrall(nflt, flt, cret)
Definition medfilter.f:44
mfrdea
subroutine mfrdea(nflt, flt, cret)
Definition medfilter.f:60