MED fichier
medlocalization.f
Aller à la documentation de ce fichier.
1C* This file is part of MED.
2C*
3C* COPYRIGHT (C) 1999 - 2020 EDF R&D, CEA/DEN
4C* MED is free software: you can redistribute it and/or modify
5C* it under the terms of the GNU Lesser General Public License as published by
6C* the Free Software Foundation, either version 3 of the License, or
7C* (at your option) any later version.
8C*
9C* MED is distributed in the hope that it will be useful,
10C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12C* GNU Lesser General Public License for more details.
13C*
14C* You should have received a copy of the GNU Lesser General Public License
15C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16C*
17c
18c
19c
20 subroutine mlclow(fid,lname,gtype,sdim,ecoo,swm,nip,
21 & ipcoo, wght, giname, isname, cret)
22c DEC$ ATTRIBUTES DLLEXPORT :: mlclow
23c
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
31c
32 cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
33 & ipcoo, wght,giname,len(giname), isname, len(isname) )
34c
35 return
36 end
37c
38c
39c
40 subroutine mlcnlc(fid,n,cret)
41c DEC$ ATTRIBUTES DLLEXPORT :: mlcnlc
42c
43 implicit none
44 save
45 integer*8 fid
46 integer n,cret
47 integer mlcfnlc
48c
49 n = mlcfnlc(fid)
50c
51 if (n.lt.0) then
52 cret = -1
53 else
54 cret = 0
55 endif
56c
57 return
58 end
59c
60c
61c
62 subroutine mlclci(fid, it, lname, gtype, sdim, nip,
63 & giname, isname, nsmc, sgtype, cret)
64c DEC$ ATTRIBUTES DLLEXPORT :: mlclci
65c
66 implicit none
67 save
68c
69 character*(*) lname,giname, isname
70 integer*8 fid
71 integer gtype, it, cret, sdim, nip
72 integer nsmc, sgtype
73 integer mlcflci
74c
75 cret = mlcflci(fid, it, lname, gtype, sdim, nip,
76 & giname, isname,nsmc,sgtype)
77c
78 return
79 end
80c
81c
82c
83 subroutine mlclni(fid, lname, gtype, sdim, nip,
84 & giname, isname, nsmc, sgtype, cret)
85c DEC$ ATTRIBUTES DLLEXPORT :: mlclni
86c
87 implicit none
88 save
89c
90 character*(*) lname,giname, isname
91 integer*8 fid
92 integer gtype, cret, sdim, nip
93 integer nsmc, sgtype
94 integer mlcflni
95c
96 cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip,
97 & giname, isname, nsmc, sgtype)
98c
99 return
100 end
101c
102c
103c
104
105 subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret)
106c DEC$ ATTRIBUTES DLLEXPORT :: mlclor
107c
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
115c
116 cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
117c
118 return
119 end
120
121
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 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...
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
subroutine mlclor(fid, lname, swm, ecoo, ipcoo, wght, cret)