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 - 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 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 
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
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
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