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 - 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 
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
subroutine mseipw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine mserpw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine msecre(fid, mname, mdim, smname, setype, sgtype, etype, cret)
subroutine msevni(fid, mname, aname, atype, anc, cret)
subroutine msense(fid, n, cret)
subroutine msesei(fid, it, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine mseiaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine msevai(fid, mname, it, aname, atype, anc, cret)
subroutine msesaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msecni(fid, mname, aname, atype, anc, setype, pname, psize, cret)
subroutine msespw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine mserar(fid, mname, aname, val, cret)
subroutine mseraw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msesar(fid, mname, aname, val, cret)
subroutine msesgt(fid, mname, gtype, cret)
subroutine msesen(fid, mgtype, mname, cret)
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
subroutine mseiar(fid, mname, aname, val, cret)
subroutine msevac(fid, mname, aname, atype, anc, cret)
subroutine mseasz(atype, size, cret)
Cette routine renvoie la taille en octets du type élémentaire atttype.