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