MED fichier
medfilter.f
Aller à la documentation de ce fichier.
1C* This file is part of MED.
2C*
3C* COPYRIGHT (C) 1999 - 2020 EDF R&D, CEA/DEN
4C* MED is free software: you can redistribute it and/or modify
5C* it under the terms of the GNU Lesser General Public License as published by
6C* the Free Software Foundation, either version 3 of the License, or
7C* (at your option) any later version.
8C*
9C* MED is distributed in the hope that it will be useful,
10C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12C* GNU Lesser General Public License for more details.
13C*
14C* You should have received a copy of the GNU Lesser General Public License
15C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16C*
17c
18c
19c
20 subroutine mfrcre(fid,nent,nvent,ncent,cs,swm,
21 & stm,pname,fltas,flta,flt,cret)
22c DEC$ ATTRIBUTES DLLEXPORT :: mfrcre
23c
24 implicit none
25 save
26 character*(*) pname
27 integer flta(*)
28 integer*8 fid
29 integer nent,nvent,ncent
30 integer stm,fltas
31 integer*8 flt
32 integer cret,cs,swm
33 integer mfrfcre
34c
35 cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
36 & pname,len(pname),fltas,flta,flt)
37c
38 return
39 end
40c
41c
42c
43 subroutine mfrall(nflt,flt,cret)
44c DEC$ ATTRIBUTES DLLEXPORT :: mfrall
45c
46 implicit none
47 save
48 integer*8 flt(*)
49 integer nflt,cret
50 integer mfrfall
51c
52 cret = mfrfall(nflt,flt)
53c
54 return
55 end
56c
57c
58c
59 subroutine mfrdea(nflt,flt,cret)
60c DEC$ ATTRIBUTES DLLEXPORT :: mfrdea
61c
62 implicit none
63 save
64 integer*8 flt(*)
65 integer nflt,cret
66 integer mfrfdea
67c
68 cret = mfrfdea(nflt,flt)
69c
70 return
71 end
72c
73c
74c
75 subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
76 & stm,pname,start,stride,count,bsize,
77 & lbsize,flt,cret)
78c DEC$ ATTRIBUTES DLLEXPORT :: mfrblc
79c
80 implicit none
81 save
82 character*(*) pname
83 integer*8 fid
84 integer nent,nvent,ncent
85 integer start,stride,count,bsize,lbsize
86 integer stm
87 integer*8 flt
88 integer cret,cs,swm
89 integer mfrfblc
90c
91 cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
92 & pname,len(pname),start,stride,count,bsize,
93 & lbsize,flt)
94c
95 return
96 end
97
98
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
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
Definition: medfilter.f:22
subroutine mfrall(nflt, flt, cret)
Definition: medfilter.f:44
subroutine mfrdea(nflt, flt, cret)
Definition: medfilter.f:60