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