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