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