MED fichier: Fichier source de medequivalence.f

MED fichier

medequivalence.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2023 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 meqcre(fid , maa , eq , des , cret)
19 c DEC$ ATTRIBUTES DLLEXPORT :: meqcre
20 c
21 implicit none
22 save
23 c
24 character *(*) maa, des, eq
25 integer*8 fid
26 integer cret
27 integer meqfcre
28 c
29 cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
30 c
31 return
32 end
33 c
34 c
35 c
36 subroutine meqcow(fid,maa,eq,numdt,numit,typent,typgeo,
37 & n,corr,cret)
38 c DEC$ ATTRIBUTES DLLEXPORT :: meqcow
39 c
40 implicit none
41 save
42 c
43 character *(*) maa, eq
44 integer numit, numdt
45 integer*8 fid
46 integer cret, n, typent, typgeo
47 integer corr(*)
48 integer meqfcow
49 c
50 cret = meqfcow(fid,maa,len(maa),eq,len(eq),
51 & numdt,numit,typent,typgeo,
52 & n,corr)
53 c
54 return
55 end
56 c
57 c
58 c
59 subroutine meqneq(fid,maa,n,cret)
60 c DEC$ ATTRIBUTES DLLEXPORT :: meqneq
61 c
62 implicit none
63 save
64 c
65 character *(*) maa
66 integer*8 fid
67 integer cret, n
68 integer meqfneq
69 c
70 n = meqfneq(fid, maa, len(maa))
71 if (n.lt.0) then
72 cret = -1
73 else
74 cret =0
75 endif
76 c
77 return
78 end
79 c
80 c
81 c
82 subroutine meqeqi(fid,maa,ind,eq,des,nstep,nctcor,cret)
83 c DEC$ ATTRIBUTES DLLEXPORT :: meqeqi
84 c
85 implicit none
86 save
87 c
88 character *(*) maa,eq,des
89 integer*8 fid
90 integer cret,ind,nstep,nctcor
91 integer meqfeqi
92 c
93 cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
94 & nstep,nctcor)
95 c
96 return
97 end
98 c
99 c
100 c
101 subroutine meqcsz(fid,maa,eq,numdt,numit,
102 & typent,typgeo,n,cret)
103 c DEC$ ATTRIBUTES DLLEXPORT :: meqcsz
104 c
105 implicit none
106 save
107 c
108 character *(*) maa, eq
109 integer*8 fid
110 integer cret,n,typent,typgeo,numit,numdt
111 integer meqfcsz
112 c
113 n = meqfcsz(fid,maa,len(maa),eq,len(eq),
114 & numdt,numit,typent,typgeo)
115 c
116 if (n.lt.0) then
117 cret = -1
118 else
119 cret =0
120 endif
121 c
122 return
123 end
124 c
125 c
126 c
127 subroutine meqszi(fid,maa,eq,numdt,numit,
128 & corit,typent,typgeo,n,cret)
129 c DEC$ ATTRIBUTES DLLEXPORT :: meqszi
130 c
131 implicit none
132 save
133 c
134 character *(*) maa, eq
135 integer*8 fid
136 integer cret,n,typent,typgeo,numit,numdt
137 integer corit
138 integer meqfszi
139 c
140 cret = meqfszi(fid,maa,len(maa),eq,len(eq),
141 & numdt,numit,corit,typent,typgeo,n)
142 c
143 return
144 end
145 c
146 c
147 c
148 subroutine meqcor(fid,maa,eq,numdt,mumit,typent,typgeo,
149 & corr,cret)
150 c DEC$ ATTRIBUTES DLLEXPORT :: meqcor
151 c
152 implicit none
153 save
154 c
155 character *(*) maa, eq
156 integer*8 fid
157 integer cret, corr(*), typent, typgeo,numdt,mumit
158 integer meqfcor
159 c
160 cret = meqfcor(fid, maa, len(maa), eq, len(eq),
161 & numdt,mumit,typent,typgeo,corr)
162 c
163 return
164 end
165 c
166 c
167 c
168 subroutine meqcsi(fid,maa,eq,ind,numdt,numit,ncor,cret)
169 c DEC$ ATTRIBUTES DLLEXPORT :: meqcsi
170 c
171 implicit none
172 save
173 c
174 character *(*) maa,eq
175 integer*8 fid
176 integer cret,ind,numdt,numit,ncor
177 integer meqfcsi
178 c
179 cret = meqfcsi(fid,maa,len(maa),eq,len(eq),
180 & numdt,numit,ncor)
181 c
182 return
183 end
meqeqi
subroutine meqeqi(fid, maa, ind, eq, des, nstep, nctcor, cret)
Cette routine permet lire les informations d'une équivalence portant sur les entités d'un maillage.
Definition: medequivalence.f:83
meqcsz
subroutine meqcsz(fid, maa, eq, numdt, numit, typent, typgeo, n, cret)
Cette routine permet de lire le nombre de correspondances dans une équivalence pour une étape de calc...
Definition: medequivalence.f:103
meqcor
subroutine meqcor(fid, maa, eq, numdt, mumit, typent, typgeo, corr, cret)
Cette routine permet de lire un tableau de correspondances entre les entités d'un maillage dans une é...
Definition: medequivalence.f:150
meqneq
subroutine meqneq(fid, maa, n, cret)
Cette routine permet de lire le nombre d'équivalence dans un fichier.
Definition: medequivalence.f:60
meqcsi
subroutine meqcsi(fid, maa, eq, ind, numdt, numit, ncor, cret)
Cette routine permet de lire les informations relatives à une équivalence pour une étape de calcul do...
Definition: medequivalence.f:169
meqszi
subroutine meqszi(fid, maa, eq, numdt, numit, corit, typent, typgeo, n, cret)
Cette routine permet de lire les informations relatives à un tableau de correspondances dans une équi...
Definition: medequivalence.f:129
meqcre
subroutine meqcre(fid, maa, eq, des, cret)
Cette routine permet la création d'une équivalence portant sur les entités d'un maillage.
Definition: medequivalence.f:19
meqcow
subroutine meqcow(fid, maa, eq, numdt, numit, typent, typgeo, n, corr, cret)
Cette routine permet d'écrire un tableau de correspondances entre les entités d'un maillage dans une ...
Definition: medequivalence.f:38