MED fichier: Fichier source de medinterp.f

MED fichier

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

medinterp.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 subroutine mipcre(fid,name,gtype,cnode,nvar,
18 & maxd,nmaxc,cret)
19 c DEC$ ATTRIBUTES DLLEXPORT :: mipcre
20 c
21 implicit none
22 save
23 c
24 character*(*) name
25 integer fid, gtype,cnode,nvar,maxd,nmaxc,cret
26 integer mipfcre
27 c
28 cret = mipfcre(fid,name,len(name),gtype,cnode,
29 & nvar,maxd,nmaxc)
30 c
31 return
32 end
33 c
34 c
35 c
36 subroutine mipbfw(fid,name,it,nc,pw,co,cret)
37 c DEC$ ATTRIBUTES DLLEXPORT :: mipbfw
38 c
39 implicit none
40 save
41 c
42 character*(*) name
43 integer fid,it,nc,cret
44 integer pw(*)
45 real*8 co(*)
46 integer mipfbfw
47 c
48 cret = mipfbfw(fid,name,len(name),it,nc,pw,co)
49 c
50 return
51 end
52 c
53 c
54 c
55 subroutine mipbfr(fid,name,it,nc,pw,co,cret)
56 c DEC$ ATTRIBUTES DLLEXPORT :: mipbfr
57 c
58 implicit none
59 save
60 c
61 character*(*) name
62 integer fid,it,nc,cret
63 integer pw(*)
64 real*8 co(*)
65 integer mipfbfr
66 c
67 cret = mipfbfr(fid,name,len(name),it,nc,pw,co)
68 c
69 return
70 end
71
72 c
73 c
74 c
75 subroutine mipnip(fid,n,cret)
76 c DEC$ ATTRIBUTES DLLEXPORT :: mipnip
77 c
78 implicit none
79 save
80 c
81 integer n, fid, cret
82 integer mipfnip
83 c
84 n = mipfnip(fid)
85 c
86 if (n.lt.0) then
87 cret = -1
88 else
89 cret = 0
90 endif
91 c
92 return
93 end
94 c
95 c
96 c
97 subroutine mipiin(fid,name,gtype,cnode,nbf,nvar,
98 & maxd,nmaxc,cret)
99 c DEC$ ATTRIBUTES DLLEXPORT :: mipiin
100 c
101 implicit none
102 save
103 c
104 character*(*) name
105 integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf
106 integer mipfiin
107 c
108 cret = mipfiin(fid,name,len(name),gtype,cnode,nbf,
109 & nvar,maxd,nmaxc)
110 c
111 return
112 end
113 c
114 c
115 c
116 subroutine mipipi(fid,it,name,gtype,cnode,nbf,nvar,
117 & maxd,nmaxc,cret)
118 c DEC$ ATTRIBUTES DLLEXPORT :: mipipi
119 c
120 implicit none
121 save
122 c
123 character*(*) name
124 integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf
125 integer it
126 integer mipfipi
127 c
128 cret = mipfipi(fid,it,name,gtype,cnode,
129 & nbf,nvar,maxd,nmaxc)
130 c
131 return
132 end
133 c
134 c
135 c
136 subroutine mipcsz(fid,name,it,n,cret)
137 c DEC$ ATTRIBUTES DLLEXPORT :: mipcsz
138 c
139 implicit none
140 save
141 c
142 character*(*) name
143 integer n, fid, it, cret
144 integer mipfcsz
145 c
146 n = mipfcsz(fid,name,len(name),it)
147 c
148 if (n.lt.0) then
149 cret = -1
150 else
151 cret = 0
152 endif
153 c
154 return
155 end
mipcsz
subroutine mipcsz(fid, name, it, n, cret)
Cette routine retourne ne nombre de coefficients/monômes de la fonction de base/forme n° basisfunctit...
Definition: medinterp.f:137
mipbfw
subroutine mipbfw(fid, name, it, nc, pw, co, cret)
Cette routine permet l'écriture d'une fonction de base/forme de l'interpolation interpname.
Definition: medinterp.f:37
mipbfr
subroutine mipbfr(fid, name, it, nc, pw, co, cret)
Cette routine permet la lecture d'une fonction de base/forme de l'interpolation interpname.
Definition: medinterp.f:56
mipcre
subroutine mipcre(fid, name, gtype, cnode, nvar, maxd, nmaxc, cret)
Cette routine permet de créer une nouvelle fonction d'interpolation polynômiale nommée interpname...
Definition: medinterp.f:19
mipnip
subroutine mipnip(fid, n, cret)
Cette routine renvoie le nombre d'interpolations disponibles dans le fichier.
Definition: medinterp.f:76
mipipi
subroutine mipipi(fid, it, name, gtype, cnode, nbf, nvar, maxd, nmaxc, cret)
Cette fonction informe des caractéristiques de la fonction d'interpolation n° interpit.
Definition: medinterp.f:118
mipiin
subroutine mipiin(fid, name, gtype, cnode, nbf, nvar, maxd, nmaxc, cret)
Cette fonction informe des caractéristiques de la fonction d'interpolation nommée interpname...
Definition: medinterp.f:99