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 - 2017 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 fid,nent,nvent,ncent
29  integer stm,fltas
30  integer*8 flt
31  integer cret,cs,swm
32  integer mfrfcre
33 c
34  cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
35  & pname,len(pname),fltas,flta,flt)
36 c
37  return
38  end
39 c
40 c
41 c
42  subroutine mfrall(nflt,flt,cret)
43 c DEC$ ATTRIBUTES DLLEXPORT :: mfrall
44 c
45  implicit none
46  save
47  integer*8 flt(*)
48  integer nflt,cret
49  integer mfrfall
50 c
51  cret = mfrfall(nflt,flt)
52 c
53  return
54  end
55 c
56 c
57 c
58  subroutine mfrdea(nflt,flt,cret)
59 c DEC$ ATTRIBUTES DLLEXPORT :: mfrdea
60 c
61  implicit none
62  save
63  integer*8 flt(*)
64  integer nflt,cret
65  integer mfrfdea
66 c
67  cret = mfrfdea(nflt,flt)
68 c
69  return
70  end
71 c
72 c
73 c
74  subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
75  & stm,pname,start,stride,count,bsize,
76  & lbsize,flt,cret)
77 c DEC$ ATTRIBUTES DLLEXPORT :: mfrblc
78 c
79  implicit none
80  save
81  character*(*) pname
82  integer fid,nent,nvent,ncent
83  integer start,stride,count,bsize,lbsize
84  integer stm
85  integer*8 flt
86  integer cret,cs,swm
87  integer mfrfblc
88 c
89  cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
90  & pname,len(pname),start,stride,count,bsize,
91  & lbsize,flt)
92 c
93  return
94  end
95 
96 
subroutine mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
Definition: medfilter.f:59
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. Initialisé en sortie de fonction, le filtre filter sera utilisé pour lire/écrire des valeurs associées à ces entités. Ces valeurs peuvent être des coordonnées, des connectivités des valeurs de champs résultats mais aussi des numéros de familles, des noms ou numéros optionnels.
Definition: medfilter.f:22
subroutine mfrall(nflt, flt, cret)
Alloue un tableau de filtres de taille nfilter.
Definition: medfilter.f:43
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:77