MED fichier: Fichier source de medjoint.f

MED fichier

medjoint.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
18 subroutine msdjcr(fid,lmname,jname,des,dom,
19 & rmname,cret)
20 c DEC$ ATTRIBUTES DLLEXPORT :: MSDJCR
21 c
22 implicit none
23 save
24 c
25 character*(*) jname
26 character*(*) lmname
27 character*(*) des
28 character*(*) rmname
29 integer*8 fid
30 integer dom, cret
31 integer msdfjcr
32 c
33 c print *,lmname
34 c print *,jname
35 c print *,des
36 c print *,dom
37 c print *,rmname
38 cret = msdfjcr(fid,lmname,len(lmname),
39 & jname,len(jname),
40 & des, len(des),
41 & dom, rmname, len(rmname))
42 c
43 return
44 end
45 c
46 c
47 c
48 subroutine msdcrw(fid,lmname,jname,numdt,numit,
49 & entlcl,geolcl,entdst,geodst,
50 & n,corrtab,cret)
51 c DEC$ ATTRIBUTES DLLEXPORT :: msdcrw
52 c
53 implicit none
54 save
55 c
56 character *(*) lmname, jname
57 integer*8 fid
58 integer n, cret, corrtab(*)
59 integer entlcl, entdst, geolcl, geodst, numdt,numit
60 integer msdfcrw
61 c
62 cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
63 & numdt, numit, entlcl, geolcl, entdst, geodst,
64 & n,corrtab)
65 c
66 return
67 end
68 c
69 c
70 c
71 subroutine msdnjn(fid,maa,n,cret)
72 c DEC$ ATTRIBUTES DLLEXPORT :: msdnjn
73 c
74 implicit none
75 save
76 c
77 character *(*) maa
78 integer*8 fid
79 integer n, cret
80 integer msdfnjn
81 c
82 n = msdfnjn(fid,maa,len(maa))
83 c
84 if (n.lt.0) then
85 cret = -1
86 else
87 cret = 0
88 endif
89 c
90 return
91 end
92 c
93 c
94 c
95 subroutine msdjni(fid,lmname,ind,jname,des,dom,
96 & rmname,nstep,ncor,cret)
97 c DEC$ ATTRIBUTES DLLEXPORT :: msdjni
98 c
99 implicit none
100 save
101 c
102 character *(*) lmname,jname,des,rmname
103 integer*8 fid
104 integer ind,dom,cret,nstep,ncor
105 integer msdfjni
106 c
107 cret = msdfjni(fid,lmname,len(lmname),ind,
108 & jname,des,dom,rmname,nstep,ncor)
109 c
110 return
111 end
112 c
113 c
114 c
115 subroutine msdszi(fid,mname,jname,
116 & numdt,numit,
117 & it,letype,lgtype,
118 & retype,rgtype,
119 & ncor,cret)
120 c DEC$ ATTRIBUTES DLLEXPORT :: msdszi
121 c
122 implicit none
123 save
124 c
125 character*(*) mname,jname
126 integer*8 fid
127 integer cret,numdt,numit
128 integer it,letype,lgtype,retype,rgtype,ncor
129 integer msdfszi
130 c
131 cret = msdfszi(fid,mname,len(mname),
132 & jname,len(jname),
133 & numdt,numit,it,
134 & letype,lgtype,
135 & retype,rgtype,ncor)
136 c
137 return
138 end
139 c
140 c
141 c
142 subroutine msdcsz(fid,mname,jname,
143 & numdt,numit,
144 & letype,lgtype,
145 & retype,rgtype,
146 & ncor,cret)
147 c DEC$ ATTRIBUTES DLLEXPORT :: msdcsz
148 c
149 implicit none
150 save
151 c
152 character*(*) mname,jname
153 integer*8 fid
154 integer cret,numdt,numit
155 integer letype,lgtype,retype,rgtype,ncor
156 integer msdfcsz
157 c
158 cret = msdfcsz(fid,mname,len(mname),
159 & jname,len(jname),
160 & numdt,numit,
161 & letype,lgtype,
162 & retype,rgtype,
163 & ncor)
164 c
165 return
166 end
167 c
168 c
169 c
170 subroutine msdcrr(fid,lmname,jname,numdt,numit,
171 & entlcl,geolcl,entdst,geodst,
172 & corrtab,cret)
173 c DEC$ ATTRIBUTES DLLEXPORT :: msdcrr
174 c
175 implicit none
176 save
177 c
178 character *(*) lmname, jname
179 integer*8 fid
180 integer cret, corrtab(*)
181 integer entlcl, entdst, geolcl, geodst, numdt,numit
182 integer msdfcrr
183 c
184 cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
185 & numdt, numit, entlcl, geolcl, entdst, geodst,
186 & corrtab)
187 c
188 return
189 end
190 c
191 c
192 c
193 subroutine msdcsi(fid,mname,jname,ind,
194 & numdt,numit,ncor,cret)
195 c DEC$ ATTRIBUTES DLLEXPORT :: msdcsi
196 c
197 implicit none
198 save
199 c
200 character *(*) mname,jname
201 integer*8 fid
202 integer ind,ncor,numdt,numit,cret
203 integer msdfcsi
204 c
205 cret = msdfcsi(fid,mname,len(mname),
206 & jname,len(jname),ind,
207 & numdt,numit,ncor)
208 c
209 return
210 end
msdszi
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
msdjcr
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
Cette routine permet de créer un joint dans un maillage.
Definition: medjoint.f:20
msdjni
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
msdcsz
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
msdcsi
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
msdcrr
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)
Cette routine permet la lecture d'une correspondance dans un joint pour un type de couple d'entité en...
Definition: medjoint.f:173
msdnjn
subroutine msdnjn(fid, maa, n, cret)
Cette routine permet la lecture du nombre de joint dans un maillage.
Definition: medjoint.f:72
msdcrw
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
Cette routine permet l'écriture d'une correspondance dans un joint pour un type de couple d'entité en...
Definition: medjoint.f:51