MED fichier
medequivalence.f
Aller à la documentation de ce fichier.
1C* This file is part of MED.
2C*
3C* COPYRIGHT (C) 1999 - 2020 EDF R&D, CEA/DEN
4C* MED is free software: you can redistribute it and/or modify
5C* it under the terms of the GNU Lesser General Public License as published by
6C* the Free Software Foundation, either version 3 of the License, or
7C* (at your option) any later version.
8C*
9C* MED is distributed in the hope that it will be useful,
10C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12C* GNU Lesser General Public License for more details.
13C*
14C* You should have received a copy of the GNU Lesser General Public License
15C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16C
17
18 subroutine meqcre(fid , maa , eq , des , cret)
19c DEC$ ATTRIBUTES DLLEXPORT :: meqcre
20c
21 implicit none
22 save
23c
24 character *(*) maa, des, eq
25 integer*8 fid
26 integer cret
27 integer meqfcre
28c
29 cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
30c
31 return
32 end
33c
34c
35c
36 subroutine meqcow(fid,maa,eq,numdt,numit,typent,typgeo,
37 & n,corr,cret)
38c DEC$ ATTRIBUTES DLLEXPORT :: meqcow
39c
40 implicit none
41 save
42c
43 character *(*) maa, eq
44 integer numit, numdt
45 integer*8 fid
46 integer cret, n, typent, typgeo
47 integer corr(*)
48 integer meqfcow
49c
50 cret = meqfcow(fid,maa,len(maa),eq,len(eq),
51 & numdt,numit,typent,typgeo,
52 & n,corr)
53c
54 return
55 end
56c
57c
58c
59 subroutine meqneq(fid,maa,n,cret)
60c DEC$ ATTRIBUTES DLLEXPORT :: meqneq
61c
62 implicit none
63 save
64c
65 character *(*) maa
66 integer*8 fid
67 integer cret, n
68 integer meqfneq
69c
70 n = meqfneq(fid, maa, len(maa))
71 if (n.lt.0) then
72 cret = -1
73 else
74 cret =0
75 endif
76c
77 return
78 end
79c
80c
81c
82 subroutine meqeqi(fid,maa,ind,eq,des,nstep,nctcor,cret)
83c DEC$ ATTRIBUTES DLLEXPORT :: meqeqi
84c
85 implicit none
86 save
87c
88 character *(*) maa,eq,des
89 integer*8 fid
90 integer cret,ind,nstep,nctcor
91 integer meqfeqi
92c
93 cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
94 & nstep,nctcor)
95c
96 return
97 end
98c
99c
100c
101 subroutine meqcsz(fid,maa,eq,numdt,numit,
102 & typent,typgeo,n,cret)
103c DEC$ ATTRIBUTES DLLEXPORT :: meqcsz
104c
105 implicit none
106 save
107c
108 character *(*) maa, eq
109 integer*8 fid
110 integer cret,n,typent,typgeo,numit,numdt
111 integer meqfcsz
112c
113 n = meqfcsz(fid,maa,len(maa),eq,len(eq),
114 & numdt,numit,typent,typgeo)
115c
116 if (n.lt.0) then
117 cret = -1
118 else
119 cret =0
120 endif
121c
122 return
123 end
124c
125c
126c
127 subroutine meqszi(fid,maa,eq,numdt,numit,
128 & corit,typent,typgeo,n,cret)
129c DEC$ ATTRIBUTES DLLEXPORT :: meqszi
130c
131 implicit none
132 save
133c
134 character *(*) maa, eq
135 integer*8 fid
136 integer cret,n,typent,typgeo,numit,numdt
137 integer corit
138 integer meqfszi
139c
140 cret = meqfszi(fid,maa,len(maa),eq,len(eq),
141 & numdt,numit,corit,typent,typgeo,n)
142c
143 return
144 end
145c
146c
147c
148 subroutine meqcor(fid,maa,eq,numdt,mumit,typent,typgeo,
149 & corr,cret)
150c DEC$ ATTRIBUTES DLLEXPORT :: meqcor
151c
152 implicit none
153 save
154c
155 character *(*) maa, eq
156 integer*8 fid
157 integer cret, corr(*), typent, typgeo,numdt,mumit
158 integer meqfcor
159c
160 cret = meqfcor(fid, maa, len(maa), eq, len(eq),
161 & numdt,mumit,typent,typgeo,corr)
162c
163 return
164 end
165c
166c
167c
168 subroutine meqcsi(fid,maa,eq,ind,numdt,numit,ncor,cret)
169c DEC$ ATTRIBUTES DLLEXPORT :: meqcsi
170c
171 implicit none
172 save
173c
174 character *(*) maa,eq
175 integer*8 fid
176 integer cret,ind,numdt,numit,ncor
177 integer meqfcsi
178c
179 cret = meqfcsi(fid,maa,len(maa),eq,len(eq),
180 & numdt,numit,ncor)
181c
182 return
183 end
subroutine meqneq(fid, maa, n, cret)
subroutine meqcsi(fid, maa, eq, ind, numdt, numit, ncor, cret)
subroutine meqcre(fid, maa, eq, des, cret)
subroutine meqcow(fid, maa, eq, numdt, numit, typent, typgeo, n, corr, cret)
subroutine meqcor(fid, maa, eq, numdt, mumit, typent, typgeo, corr, cret)
subroutine meqeqi(fid, maa, ind, eq, des, nstep, nctcor, cret)
subroutine meqcsz(fid, maa, eq, numdt, numit, typent, typgeo, n, cret)
subroutine meqszi(fid, maa, eq, numdt, numit, corit, typent, typgeo, n, cret)