MED fichier: Fichier source de medfilter.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

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