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