MED fichier: Fichier source de medlocalization.f

MED fichier

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

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
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:102
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:40
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:82
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
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:62