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 - 2019 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
mlclni
subroutine mlclni(fid, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Definition: medlocalization.f:85
mlclor
subroutine mlclor(fid, lname, swm, ecoo, ipcoo, wght, cret)
Definition: medlocalization.f:106
mlclow
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
Definition: medlocalization.f:22
mlclci
subroutine mlclci(fid, it, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
Definition: medlocalization.f:64
mlcnlc
subroutine mlcnlc(fid, n, cret)
Definition: medlocalization.f:41