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