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