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 - 2021 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
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
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
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
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
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
meqneq
subroutine meqneq(fid, maa, n, cret)
Cette routine permet de lire le nombre d'équivalence dans un fichier.
Definition: medequivalence.f:60
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
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