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 - 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
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:116
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:94
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
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:188
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:167
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:142
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:50
msdnjn
subroutine msdnjn(fid, maa, n, cret)
Cette routine permet la lecture du nombre de joint dans un maillage.
Definition: medjoint.f:70