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