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 - 2016 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 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
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 mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
Definition: medfilter.f:59