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