MED fichier
medlocalization.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 c
18 c
19 c
20  subroutine mlclow(fid,lname,gtype,sdim,ecoo,swm,nip,
21  & ipcoo, wght, giname, isname, cret)
22 c DEC$ ATTRIBUTES DLLEXPORT :: mlclow
23 c
24  implicit none
25  save
26  character*(*) lname,giname, isname
27  real*8 ecoo(*), ipcoo(*), wght(*)
28  integer*8 fid
29  integer cret,gtype,sdim,swm,nip
30  integer mlcflow
31 c
32  cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
33  & ipcoo, wght,giname,len(giname), isname, len(isname) )
34 c
35  return
36  end
37 c
38 c
39 c
40  subroutine mlcnlc(fid,n,cret)
41 c DEC$ ATTRIBUTES DLLEXPORT :: mlcnlc
42 c
43  implicit none
44  save
45  integer*8 fid
46  integer n,cret
47  integer mlcfnlc
48 c
49  n = mlcfnlc(fid)
50 c
51  if (n.lt.0) then
52  cret = -1
53  else
54  cret = 0
55  endif
56 c
57  return
58  end
59 c
60 c
61 c
62  subroutine mlclci(fid, it, lname, gtype, sdim, nip,
63  & giname, isname, nsmc, sgtype, cret)
64 c DEC$ ATTRIBUTES DLLEXPORT :: mlclci
65 c
66  implicit none
67  save
68 c
69  character*(*) lname,giname, isname
70  integer*8 fid
71  integer gtype, it, cret, sdim, nip
72  integer nsmc, sgtype
73  integer mlcflci
74 c
75  cret = mlcflci(fid, it, lname, gtype, sdim, nip,
76  & giname, isname,nsmc,sgtype)
77 c
78  return
79  end
80 c
81 c
82 c
83  subroutine mlclni(fid, lname, gtype, sdim, nip,
84  & giname, isname, nsmc, sgtype, cret)
85 c DEC$ ATTRIBUTES DLLEXPORT :: mlclni
86 c
87  implicit none
88  save
89 c
90  character*(*) lname,giname, isname
91  integer*8 fid
92  integer gtype, cret, sdim, nip
93  integer nsmc, sgtype
94  integer mlcflni
95 c
96  cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip,
97  & giname, isname, nsmc, sgtype)
98 c
99  return
100  end
101 c
102 c
103 c
104 
105  subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret)
106 c DEC$ ATTRIBUTES DLLEXPORT :: mlclor
107 c
108  implicit none
109  save
110  character*(*) lname
111  real*8 ecoo(*), ipcoo(*), wght(*)
112  integer*8 fid
113  integer cret,swm
114  integer mlcflor
115 c
116  cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
117 c
118  return
119  end
120 
121 
mlclci
subroutine mlclci(fid, it, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Cette routine permet d'obtenir la description de la localisation de points d'intégration n° localizat...
Definition: medlocalization.f:64
mlclow
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
Cette routine permet l'écriture d'une localisation localizationname de points d'intégration dans/auto...
Definition: medlocalization.f:22
mlcnlc
subroutine mlcnlc(fid, n, cret)
Cette routine permet de lire le nombre de localisations de points d'intégration contenues dans un fic...
Definition: medlocalization.f:41
mlclor
subroutine mlclor(fid, lname, swm, ecoo, ipcoo, wght, cret)
Cette routine permet la lecture d'une localisation localizationname de points d'intégration dans/auto...
Definition: medlocalization.f:106
mlclni
subroutine mlclni(fid, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Cette routine permet d'obtenir la description d'une localisation de points d'intégration nommée local...
Definition: medlocalization.f:85