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 - 2016 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
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...
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...
subroutine msense(fid, n, cret)
Cette routine renvoie le nombre de modèles d'éléments de structure.
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...
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...
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...
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...
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...
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...
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...
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...
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...
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...
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...
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...
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...
subroutine msesen(fid, mgtype, mname, cret)
Cette routine renvoie le nom du modèle d'éléments de structure associé au type mgeotype.
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.
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...
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...
subroutine mseasz(atype, size, cret)
Cette routine renvoie la taille en octets du type élémentaire atttype.