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 - 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
msesen
subroutine msesen(fid, mgtype, mname, cret)
Definition: medstructelement.f:110
mserar
subroutine mserar(fid, mname, aname, val, cret)
Definition: medstructelement.f:396
mseipw
subroutine mseipw(fid, mname, aname, atype, anc, setype, pname, val, cret)
Definition: medstructelement.f:313
msecai
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
Definition: medstructelement.f:377
mseiar
subroutine mseiar(fid, mname, aname, val, cret)
Definition: medstructelement.f:415
mserpw
subroutine mserpw(fid, mname, aname, atype, anc, setype, pname, val, cret)
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
msesin
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
Definition: medstructelement.f:90
msevni
subroutine msevni(fid, mname, aname, atype, anc, cret)
Definition: medstructelement.f:169
msesaw
subroutine msesaw(fid, mname, aname, atype, anc, setype, val, cret)
Definition: medstructelement.f:270
mseraw
subroutine mseraw(fid, mname, aname, atype, anc, setype, val, cret)
Definition: medstructelement.f:228
msecre
subroutine msecre(fid, mname, mdim, smname, setype, sgtype, etype, cret)
Definition: medstructelement.f:20
msecni
subroutine msecni(fid, mname, aname, atype, anc, setype, pname, psize, cret)
Definition: medstructelement.f:357
msesgt
subroutine msesgt(fid, mname, gtype, cret)
Definition: medstructelement.f:127
msense
subroutine msense(fid, n, cret)
Definition: medstructelement.f:44
msevai
subroutine msevai(fid, mname, it, aname, atype, anc, cret)
Definition: medstructelement.f:188
mseiaw
subroutine mseiaw(fid, mname, aname, atype, anc, setype, val, cret)
Definition: medstructelement.f:249
msesei
subroutine msesei(fid, it, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
Definition: medstructelement.f:68
msesar
subroutine msesar(fid, mname, aname, val, cret)
Definition: medstructelement.f:434
msevac
subroutine msevac(fid, mname, aname, atype, anc, cret)
Definition: medstructelement.f:150
msespw
subroutine msespw(fid, mname, aname, atype, anc, setype, pname, val, cret)
Definition: medstructelement.f:335