MED fichier: Fichier source de medfilter.f

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