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