MED fichier
medjoint.f
Aller à la documentation de ce fichier.
1C* This file is part of MED.
2C*
3C* COPYRIGHT (C) 1999 - 2020 EDF R&D, CEA/DEN
4C* MED is free software: you can redistribute it and/or modify
5C* it under the terms of the GNU Lesser General Public License as published by
6C* the Free Software Foundation, either version 3 of the License, or
7C* (at your option) any later version.
8C*
9C* MED is distributed in the hope that it will be useful,
10C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12C* GNU Lesser General Public License for more details.
13C*
14C* You should have received a copy of the GNU Lesser General Public License
15C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16C
17
18 subroutine msdjcr(fid,lmname,jname,des,dom,
19 & rmname,cret)
20c DEC$ ATTRIBUTES DLLEXPORT :: MSDJCR
21c
22 implicit none
23 save
24c
25 character*(*) jname
26 character*(*) lmname
27 character*(*) des
28 character*(*) rmname
29 integer*8 fid
30 integer dom, cret
31 integer msdfjcr
32c
33 print *,lmname
34 print *,jname
35 print *,des
36 print *,dom
37 print *,rmname
38 cret = msdfjcr(fid,lmname,len(lmname),
39 & jname,len(jname),
40 & des, len(des),
41 & dom, rmname, len(rmname))
42c
43 return
44 end
45c
46c
47c
48 subroutine msdcrw(fid,lmname,jname,numdt,numit,
49 & entlcl,geolcl,entdst,geodst,
50 & n,corrtab,cret)
51c DEC$ ATTRIBUTES DLLEXPORT :: msdcrw
52c
53 implicit none
54 save
55c
56 character *(*) lmname, jname
57 integer*8 fid
58 integer n, cret, corrtab(*)
59 integer entlcl, entdst, geolcl, geodst, numdt,numit
60 integer msdfcrw
61c
62 cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
63 & numdt, numit, entlcl, geolcl, entdst, geodst,
64 & n,corrtab)
65c
66 return
67 end
68c
69c
70c
71 subroutine msdnjn(fid,maa,n,cret)
72c DEC$ ATTRIBUTES DLLEXPORT :: msdnjn
73c
74 implicit none
75 save
76c
77 character *(*) maa
78 integer*8 fid
79 integer n, cret
80 integer msdfnjn
81c
82 n = msdfnjn(fid,maa,len(maa))
83c
84 if (n.lt.0) then
85 cret = -1
86 else
87 cret = 0
88 endif
89c
90 return
91 end
92c
93c
94c
95 subroutine msdjni(fid,lmname,ind,jname,des,dom,
96 & rmname,nstep,ncor,cret)
97c DEC$ ATTRIBUTES DLLEXPORT :: msdjni
98c
99 implicit none
100 save
101c
102 character *(*) lmname,jname,des,rmname
103 integer*8 fid
104 integer ind,dom,cret,nstep,ncor
105 integer msdfjni
106c
107 cret = msdfjni(fid,lmname,len(lmname),ind,
108 & jname,des,dom,rmname,nstep,ncor)
109c
110 return
111 end
112c
113c
114c
115 subroutine msdszi(fid,mname,jname,
116 & numdt,numit,
117 & it,letype,lgtype,
118 & retype,rgtype,
119 & ncor,cret)
120c DEC$ ATTRIBUTES DLLEXPORT :: msdszi
121c
122 implicit none
123 save
124c
125 character*(*) mname,jname
126 integer*8 fid
127 integer cret,numdt,numit
128 integer it,letype,lgtype,retype,rgtype,ncor
129 integer msdfszi
130c
131 cret = msdfszi(fid,mname,len(mname),
132 & jname,len(jname),
133 & numdt,numit,it,
134 & letype,lgtype,
135 & retype,rgtype,ncor)
136c
137 return
138 end
139c
140c
141c
142 subroutine msdcsz(fid,mname,jname,
143 & numdt,numit,
144 & letype,lgtype,
145 & retype,rgtype,
146 & ncor,cret)
147c DEC$ ATTRIBUTES DLLEXPORT :: msdcsz
148c
149 implicit none
150 save
151c
152 character*(*) mname,jname
153 integer*8 fid
154 integer cret,numdt,numit
155 integer letype,lgtype,retype,rgtype,ncor
156 integer msdfcsz
157c
158 cret = msdfcsz(fid,mname,len(mname),
159 & jname,len(jname),
160 & numdt,numit,
161 & letype,lgtype,
162 & retype,rgtype,
163 & ncor)
164c
165 return
166 end
167c
168c
169c
170 subroutine msdcrr(fid,lmname,jname,numdt,numit,
171 & entlcl,geolcl,entdst,geodst,
172 & corrtab,cret)
173c DEC$ ATTRIBUTES DLLEXPORT :: msdcrr
174c
175 implicit none
176 save
177c
178 character *(*) lmname, jname
179 integer*8 fid
180 integer cret, corrtab(*)
181 integer entlcl, entdst, geolcl, geodst, numdt,numit
182 integer msdfcrr
183c
184 cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
185 & numdt, numit, entlcl, geolcl, entdst, geodst,
186 & corrtab)
187c
188 return
189 end
190c
191c
192c
193 subroutine msdcsi(fid,mname,jname,ind,
194 & numdt,numit,ncor,cret)
195c DEC$ ATTRIBUTES DLLEXPORT :: msdcsi
196c
197 implicit none
198 save
199c
200 character *(*) mname,jname
201 integer*8 fid
202 integer ind,ncor,numdt,numit,cret
203 integer msdfcsi
204c
205 cret = msdfcsi(fid,mname,len(mname),
206 & jname,len(jname),ind,
207 & numdt,numit,ncor)
208c
209 return
210 end
subroutine msdjni(fid, lmname, ind, jname, des, dom, rmname, nstep, ncor, cret)
Cette routine permet de lire les informations sur un joint dans un maillage.
Definition: medjoint.f:97
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
Cette routine permet de créer un joint dans un maillage.
Definition: medjoint.f:20
subroutine msdcsz(fid, mname, jname, numdt, numit, letype, lgtype, retype, rgtype, ncor, cret)
Cette routine permet la lecture du nombre d'entités en correspondance dans un joint pour un couple d'...
Definition: medjoint.f:147
subroutine msdcsi(fid, mname, jname, ind, numdt, numit, ncor, cret)
Cette routine permet de lire les informations sur les correspondances entre types d'entités dans un m...
Definition: medjoint.f:195
subroutine msdnjn(fid, maa, n, cret)
Cette routine permet la lecture du nombre de joint dans un maillage.
Definition: medjoint.f:72
subroutine msdszi(fid, mname, jname, numdt, numit, it, letype, lgtype, retype, rgtype, ncor, cret)
Cette routine permet de lire les informations sur les couples d'entités en correspondance dans un joi...
Definition: medjoint.f:120
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
Definition: medjoint.f:51
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)
Definition: medjoint.f:173