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 - 2019 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 
mfrall
subroutine mfrall(nflt, flt, cret)
Definition: medfilter.f:44
mfrdea
subroutine mfrdea(nflt, flt, cret)
Definition: medfilter.f:60
mfrcre
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
Definition: medfilter.f:22
mfrblc
subroutine mfrblc(fid, nent, nvent, ncent, cs, swm, stm, pname, start, stride, count, bsize, lbsize, flt, cret)
Definition: medfilter.f:78