MED fichier: Fichier source de medequivalence.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

medequivalence.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2017 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
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:124
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
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 séquence de c...
Definition: medequivalence.f:99
meqneq
subroutine meqneq(fid, maa, n, cret)
Cette routine permet de lire le nombre d'équivalence dans un fichier.
Definition: medequivalence.f:58
meqcsi
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...
Definition: medequivalence.f:162
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:37
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:80
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:144