MED fichier: Fichier source de medstructelement.f

MED fichier

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

medstructelement.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
18 subroutine msecre(fid,mname,mdim,smname,setype,
19 & sgtype, etype, cret)
20 c DEC$ ATTRIBUTES DLLEXPORT :: msecre
21 c
22 implicit none
23 save
24 character*(*) mname,smname
25 integer fid,cret,mdim,setype,sgtype,etype
26 integer msefcre
27 c
28 etype = msefcre(fid,mname,len(mname),mdim,
29 & smname,len(smname),setype,sgtype)
30 c
31 if (etype.lt.0) then
32 cret = -1
33 else
34 cret = 0
35 endif
36 c
37 return
38 end
39 c
40 c
41 c
42 subroutine msense(fid,n,cret)
43 c DEC$ ATTRIBUTES DLLEXPORT :: msense
44 c
45 implicit none
46 save
47 integer fid,n,cret
48 integer msefnse
49 c
50 n = msefnse(fid)
51 c
52 if (n.lt.0) then
53 cret = -1
54 else
55 cret = 0
56 endif
57 c
58 return
59 end
60 c
61 c
62 c
63 subroutine msesei(fid,it,mname,mgtype,mdim,smname,
64 & setype,snnode,sncell,sgtype,
65 & ncatt,ap,nvatt,cret)
66 c DEC$ ATTRIBUTES DLLEXPORT :: msesei
67 c
68 implicit none
69 save
70 character*(*) mname,smname
71 integer fid,cret,mdim,setype,sgtype,it
72 integer snnode,sncell,ncatt,ap,nvatt,mgtype
73 integer msefsei
74 c
75 cret = msefsei(fid,it,mname,mgtype,mdim,smname,
76 & setype,snnode,sncell,sgtype,
77 & ncatt,ap,nvatt)
78 c
79 return
80 end
81 c
82 c
83 c
84 subroutine msesin(fid,mname,mgtype,mdim,smname,
85 & setype,snnode,sncell,sgtype,
86 & ncatt,ap,nvatt,cret)
87 c DEC$ ATTRIBUTES DLLEXPORT :: msesin
88 c
89 implicit none
90 save
91 character*(*) mname,smname
92 integer fid,cret,mdim,setype,sgtype
93 integer snnode,sncell,ncatt,ap,nvatt,mgtype
94 integer msefsin
95 c
96 cret = msefsin(fid,mname,len(mname),mgtype,
97 & mdim,smname,setype,snnode,
98 & sncell,sgtype,ncatt,ap,nvatt)
99 c
100 return
101 end
102 c
103 c
104 c
105 subroutine msesen(fid,mgtype,mname,cret)
106 c DEC$ ATTRIBUTES DLLEXPORT :: msesen
107 c
108 implicit none
109 save
110 character*(*) mname
111 integer fid,cret,mgtype
112 integer msefsen
113 c
114 cret = msefsen(fid,mgtype,mname)
115 c
116 return
117 end
118 c
119 c
120 c
121 subroutine msesgt(fid,mname,gtype,cret)
122 c DEC$ ATTRIBUTES DLLEXPORT :: msesgt
123 c
124 implicit none
125 save
126 character*(*) mname
127 integer fid,gtype,cret
128 integer msefsgt
129 c
130 gtype = msefsgt(fid,mname,len(mname))
131 c
132 if (gtype.lt.0) then
133 cret = -1
134 else
135 cret = 0
136 endif
137 c
138 return
139 end
140 c
141 c
142 c
143 subroutine msevac(fid,mname,aname,atype,anc,cret)
144 c DEC$ ATTRIBUTES DLLEXPORT :: msevac
145 c
146 implicit none
147 save
148 character*(*) mname,aname
149 integer fid,cret,atype,anc
150 integer msefvac
151 c
152 cret = msefvac(fid,mname,len(mname),
153 & aname,len(aname),atype,
154 & anc)
155 c
156 return
157 end
158 c
159 c
160 c
161 subroutine msevni(fid,mname,aname,atype,anc,cret)
162 c DEC$ ATTRIBUTES DLLEXPORT :: msevni
163 c
164 implicit none
165 save
166 character*(*) mname,aname
167 integer fid,cret,atype,anc
168 integer msefvni
169 c
170 cret = msefvni(fid,mname,len(mname),
171 & aname,len(aname),
172 & atype,anc)
173 c
174 return
175 end
176 c
177 c
178 c
179 subroutine msevai(fid,mname,it,aname,atype,anc,cret)
180 c DEC$ ATTRIBUTES DLLEXPORT :: msevai
181 c
182 implicit none
183 save
184 character*(*) mname,aname
185 integer fid,cret,atype,anc,it
186 integer msefvai
187 c
188 cret = msefvai(fid,mname,len(mname),it,
189 & aname,atype,anc)
190 c
191 return
192 end
193 c
194 c
195 c
196 subroutine mseasz(atype,size,cret)
197 c DEC$ ATTRIBUTES DLLEXPORT :: mseasz
198 c
199 implicit none
200 save
201 integer size,atype,cret
202 integer msefasz
203 c
204 size = msefasz(atype)
205 c
206 if (size.lt.0) then
207 cret = -1
208 else
209 cret = 0
210 endif
211 c
212 return
213 end
214 c
215 c
216 c
217 subroutine mseraw(fid,mname,aname,atype,anc,
218 & setype,val,cret)
219 c DEC$ ATTRIBUTES DLLEXPORT :: mseraw
220 c
221 implicit none
222 save
223 character*(*) mname,aname
224 integer fid,cret,atype,anc,setype
225 real*8 val(*)
226 integer msefraw
227 c
228 cret = msefraw(fid,mname,len(mname),
229 & aname,len(aname),atype,
230 & anc,setype,val)
231 c
232 return
233 end
234 c
235 c
236 c
237 subroutine mseiaw(fid,mname,aname,atype,anc,
238 & setype,val,cret)
239 c DEC$ ATTRIBUTES DLLEXPORT :: mseiaw
240 c
241 implicit none
242 save
243 character*(*) mname,aname
244 integer fid,cret,atype,anc,setype
245 integer val(*)
246 integer msefiaw
247 c
248 cret = msefiaw(fid,mname,len(mname),
249 & aname,len(aname),atype,
250 & anc,setype,val)
251 c
252 return
253 end
254 c
255 c
256 c
257 subroutine msesaw(fid,mname,aname,atype,anc,
258 & setype,val,cret)
259 c DEC$ ATTRIBUTES DLLEXPORT :: msesaw
260 c
261 implicit none
262 save
263 character*(*) mname,aname
264 integer fid,cret,atype,anc,setype
265 character *(*) val
266 integer msefsaw
267 c
268 cret = msefsaw(fid,mname,len(mname),
269 & aname,len(aname),atype,
270 & anc,setype,val,anc*64)
271 c
272 return
273 end
274 c
275 c
276 c
277 subroutine mserpw(fid,mname,aname,atype,anc,
278 & setype,pname,val,cret)
279 c DEC$ ATTRIBUTES DLLEXPORT :: mserpw
280 c
281 implicit none
282 save
283 character*(*) mname,aname,pname
284 integer fid,cret,atype,anc,setype
285 real*8 val(*)
286 integer msefrpw
287 c
288 cret = msefrpw(fid,mname,len(mname),
289 & aname,len(aname),atype,
290 & anc,setype,pname,len(pname),
291 & val)
292 c
293 return
294 end
295 c
296 c
297 c
298 subroutine mseipw(fid,mname,aname,atype,anc,
299 & setype,pname,val,cret)
300 c DEC$ ATTRIBUTES DLLEXPORT :: mseipw
301 c
302 implicit none
303 save
304 character*(*) mname,aname,pname
305 integer fid,cret,atype,anc,setype
306 integer val(*)
307 integer msefipw
308 c
309 cret = msefipw(fid,mname,len(mname),
310 & aname,len(aname),atype,
311 & anc,setype,pname,len(pname),
312 & val)
313 c
314 return
315 end
316 c
317 c
318 c
319 subroutine msespw(fid,mname,aname,atype,anc,
320 & setype,pname,val,cret)
321 c DEC$ ATTRIBUTES DLLEXPORT :: msespw
322 c
323 implicit none
324 save
325 character*(*) mname,aname,pname
326 integer fid,cret,atype,anc,setype
327 character *(*) val
328 integer msefspw
329 c
330 cret = msefspw(fid,mname,len(mname),
331 & aname,len(aname),atype,
332 & anc,setype,pname,len(pname),
333 & val,64*anc)
334 c
335 return
336 end
337 c
338 c
339 c
340 subroutine msecni(fid,mname,aname,atype,anc,
341 & setype,pname,psize,cret)
342 c DEC$ ATTRIBUTES DLLEXPORT :: msecni
343 c
344 implicit none
345 save
346 character*(*) mname,aname,pname
347 integer fid,cret,atype,anc,setype,psize
348 integer msefcni
349 c
350 cret = msefcni(fid,mname,len(mname),
351 & aname,len(aname),atype,
352 & anc,setype,pname,psize)
353 c
354 return
355 end
356 c
357 c
358 c
359 subroutine msecai(fid,mname,it,aname,atype,anc,
360 & setype,pname,psize,cret)
361 c DEC$ ATTRIBUTES DLLEXPORT :: msecai
362 c
363 implicit none
364 save
365 character*(*) mname,aname,pname
366 integer fid,cret,atype,anc,setype,psize,it
367 integer msefcai
368 c
369 cret = msefcai(fid,mname,len(mname),it,
370 & aname,atype,
371 & anc,setype,pname,psize)
372 c
373 return
374 end
375 c
376 c
377 c
378 subroutine mserar(fid,mname,aname,val,cret)
379 c DEC$ ATTRIBUTES DLLEXPORT :: mserar
380 c
381 implicit none
382 save
383 character*(*) mname,aname
384 integer fid,cret
385 real*8 val(*)
386 integer msefrar
387 c
388 cret = msefrar(fid,mname,len(mname),
389 & aname,len(aname),val)
390 c
391 return
392 end
393 c
394 c
395 c
396 subroutine mseiar(fid,mname,aname,val,cret)
397 c DEC$ ATTRIBUTES DLLEXPORT :: mseiar
398 c
399 implicit none
400 save
401 character*(*) mname,aname
402 integer fid,cret
403 integer val(*)
404 integer msefiar
405 c
406 cret = msefiar(fid,mname,len(mname),
407 & aname,len(aname),val)
408 c
409 return
410 end
411 c
412 c
413 c
414 subroutine msesar(fid,mname,aname,val,cret)
415 c DEC$ ATTRIBUTES DLLEXPORT :: msesar
416 c
417 implicit none
418 save
419 character*(*) mname,aname
420 integer fid,cret
421 character *(*) val
422 integer msefsar
423 c
424 cret = msefsar(fid,mname,len(mname),
425 & aname,len(aname),
426 & val)
427 c
428 return
429 end
msense
subroutine msense(fid, n, cret)
Cette routine renvoie le nombre de modèles d'éléments de structure.
Definition: medstructelement.f:43
msesin
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
Cette routine décrit les caractéristiques d'un modèle d'élément de structure à partir de son nom...
Definition: medstructelement.f:87
mseasz
subroutine mseasz(atype, size, cret)
Cette routine renvoie la taille en octets du type élémentaire atttype.
Definition: medstructelement.f:197
mserar
subroutine mserar(fid, mname, aname, val, cret)
Cette routine lit la valeur d'un attribut caractéristique constant d'un modèle d'éléments de structur...
Definition: medstructelement.f:379
msecre
subroutine msecre(fid, mname, mdim, smname, setype, sgtype, etype, cret)
Cette routine permet de créer un nouveau modèle d'éléments de structure dans un fichier MED...
Definition: medstructelement.f:20
msespw
subroutine msespw(fid, mname, aname, atype, anc, setype, pname, val, cret)
Cette routine définit un attribut caractéristique constant d'un modèle d'éléments de structure...
Definition: medstructelement.f:321
mseipw
subroutine mseipw(fid, mname, aname, atype, anc, setype, pname, val, cret)
Cette routine définit un attribut caractéristique constant d'un modèle d'éléments de structure...
Definition: medstructelement.f:300
msesgt
subroutine msesgt(fid, mname, gtype, cret)
Cette routine renvoie le type géométrique mgeotype associé au modèle d'éléments de structure de nom m...
Definition: medstructelement.f:122
msesen
subroutine msesen(fid, mgtype, mname, cret)
Cette routine renvoie le nom du modèle d'éléments de structure associé au type mgeotype.
Definition: medstructelement.f:106
mseiaw
subroutine mseiaw(fid, mname, aname, atype, anc, setype, val, cret)
Cette routine définit un attribut caractéristique constant d'un modèle d'éléments de structure...
Definition: medstructelement.f:239
mserpw
subroutine mserpw(fid, mname, aname, atype, anc, setype, pname, val, cret)
Cette routine définit un attribut caractéristique constant d'un modèle d'éléments de structure...
Definition: medstructelement.f:279
msevai
subroutine msevai(fid, mname, it, aname, atype, anc, cret)
Cette routine décrit les caractéristiques d'un attribut variable de modèle d'élément de structure par...
Definition: medstructelement.f:180
msevni
subroutine msevni(fid, mname, aname, atype, anc, cret)
Cette routine décrit les caractéristiques d'un attribut variable de modèle d'élément de structure à p...
Definition: medstructelement.f:162
msesei
subroutine msesei(fid, it, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
Cette routine décrit les caractéristiques d'un modèle d'élément de structure par itération.
Definition: medstructelement.f:66
msesar
subroutine msesar(fid, mname, aname, val, cret)
Cette routine lit la valeur d'un attribut caractéristique constant d'un modèle d'éléments de structur...
Definition: medstructelement.f:415
msecai
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
Cette routine décrit les caractéristiques d'un attribut constant de modèle d'élément de structure par...
Definition: medstructelement.f:361
msecni
subroutine msecni(fid, mname, aname, atype, anc, setype, pname, psize, cret)
Cette routine décrit les caractéristiques d'un attribut constant de modèle d'élément de structure à p...
Definition: medstructelement.f:342
mseraw
subroutine mseraw(fid, mname, aname, atype, anc, setype, val, cret)
Cette routine définit un attribut caractéristique constant d'un modèle d'éléments de structure...
Definition: medstructelement.f:219
mseiar
subroutine mseiar(fid, mname, aname, val, cret)
Cette routine lit la valeur d'un attribut caractéristique constant d'un modèle d'éléments de structur...
Definition: medstructelement.f:397
msevac
subroutine msevac(fid, mname, aname, atype, anc, cret)
Cette routine déclare la présence d'un attribut caractéristique variable attaché aux éléments de type...
Definition: medstructelement.f:144
msesaw
subroutine msesaw(fid, mname, aname, atype, anc, setype, val, cret)
Cette routine définit un attribut caractéristique constant d'un modèle d'éléments de structure...
Definition: medstructelement.f:259