MED fichier: Fichier source de medjoint.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

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
msdjcr
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
Definition: medjoint.f:20
msdcsz
subroutine msdcsz(fid, mname, jname, numdt, numit, letype, lgtype, retype, rgtype, ncor, cret)
Definition: medjoint.f:145
msdjni
subroutine msdjni(fid, lmname, ind, jname, des, dom, rmname, nstep, ncor, cret)
Definition: medjoint.f:95
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
msdszi
subroutine msdszi(fid, mname, jname, numdt, numit, it, letype, lgtype, retype, rgtype, ncor, cret)
Definition: medjoint.f:118
msdcsi
subroutine msdcsi(fid, mname, jname, ind, numdt, numit, ncor, cret)
Definition: medjoint.f:193
msdcrr
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)
Definition: medjoint.f:171
msdnjn
subroutine msdnjn(fid, maa, n, cret)
Cette routine permet la lecture du nombre de joint dans un maillage.
Definition: medjoint.f:71