MED fichier

medlocalization.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2021 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 c
18 c
19 c
20 subroutine mlclow(fid,lname,gtype,sdim,ecoo,swm,nip,
21 & ipcoo, wght, giname, isname, cret)
22 c DEC$ ATTRIBUTES DLLEXPORT :: mlclow
23 c
24 implicit none
25 save
26 character*(*) lname,giname, isname
27 real*8 ecoo(*), ipcoo(*), wght(*)
28 integer*8 fid
29 integer cret,gtype,sdim,swm,nip
30 integer mlcflow
31 c
32 cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
33 & ipcoo, wght,giname,len(giname), isname, len(isname) )
34 c
35 return
36 end
37 c
38 c
39 c
40 subroutine mlcnlc(fid,n,cret)
41 c DEC$ ATTRIBUTES DLLEXPORT :: mlcnlc
42 c
43 implicit none
44 save
45 integer*8 fid
46 integer n,cret
47 integer mlcfnlc
48 c
49 n = mlcfnlc(fid)
50 c
51 if (n.lt.0) then
52 cret = -1
53 else
54 cret = 0
55 endif
56 c
57 return
58 end
59 c
60 c
61 c
62 subroutine mlclci(fid, it, lname, gtype, sdim, nip,
63 & giname, isname, nsmc, sgtype, cret)
64 c DEC$ ATTRIBUTES DLLEXPORT :: mlclci
65 c
66 implicit none
67 save
68 c
69 character*(*) lname,giname, isname
70 integer*8 fid
71 integer gtype, it, cret, sdim, nip
72 integer nsmc, sgtype
73 integer mlcflci
74 c
75 cret = mlcflci(fid, it, lname, gtype, sdim, nip,
76 & giname, isname,nsmc,sgtype)
77 c
78 return
79 end
80 c
81 c
82 c
83 subroutine mlclni(fid, lname, gtype, sdim, nip,
84 & giname, isname, nsmc, sgtype, cret)
85 c DEC$ ATTRIBUTES DLLEXPORT :: mlclni
86 c
87 implicit none
88 save
89 c
90 character*(*) lname,giname, isname
91 integer*8 fid
92 integer gtype, cret, sdim, nip
93 integer nsmc, sgtype
94 integer mlcflni
95 c
96 cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip,
97 & giname, isname, nsmc, sgtype)
98 c
99 return
100 end
101 c
102 c
103 c
104
105 subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret)
106 c DEC$ ATTRIBUTES DLLEXPORT :: mlclor
107 c
108 implicit none
109 save
110 character*(*) lname
111 real*8 ecoo(*), ipcoo(*), wght(*)
112 integer*8 fid
113 integer cret,swm
114 integer mlcflor
115 c
116 cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
117 c
118 return
119 end
120
121
mlclci
subroutine mlclci(fid, it, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Cette routine permet d'obtenir la description de la localisation de points d'intégration n° localizat...
Definition: medlocalization.f:64
mlclow
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
Cette routine permet l'écriture d'une localisation localizationname de points d'intégration dans/auto...
Definition: medlocalization.f:22
mlcnlc
subroutine mlcnlc(fid, n, cret)
Cette routine permet de lire le nombre de localisations de points d'intégration contenues dans un fic...
Definition: medlocalization.f:41
mlclor
subroutine mlclor(fid, lname, swm, ecoo, ipcoo, wght, cret)
Cette routine permet la lecture d'une localisation localizationname de points d'intégration dans/auto...
Definition: medlocalization.f:106
mlclni
subroutine mlclni(fid, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Cette routine permet d'obtenir la description d'une localisation de points d'intégration nommée local...
Definition: medlocalization.f:85