MED fichier
medparameter.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
17
18 subroutine mprcre(fid , name , type , des , dtunit, cret)
19c DEC$ ATTRIBUTES DLLEXPORT :: mprcre
20c
21 implicit none
22 save
23c
24 character *(*) name, des, dtunit
25 integer*8 fid
26 integer cret, type
27 integer mprfcre
28c
29 cret = mprfcre(fid,name,len(name),type,des,len(des),
30 & dtunit,len(dtunit))
31c
32 return
33 end
34c
35c
36c
37 subroutine mprrvw(fid,name,numdt,numit,dt,val,cret)
38c DEC$ ATTRIBUTES DLLEXPORT :: mprrvw
39c
40 implicit none
41 save
42 character*(*) name
43 integer*8 fid
44 integer numdt,numit,cret
45 real*8 dt,val
46 integer mprfrvw
47c
48 cret = mprfrvw(fid,name,len(name),numdt,numit,dt,val)
49c
50 return
51 end
52c
53c
54c
55 subroutine mprivw(fid,name,numdt,numit,dt,val,cret)
56c DEC$ ATTRIBUTES DLLEXPORT :: mprivw
57c
58 implicit none
59 save
60 character*(*) name
61 integer*8 fid
62 integer numdt,numit,cret
63 real*8 dt
64 integer val
65 integer mprfivw
66c
67 cret = mprfivw(fid,name,len(name),numdt,numit,dt,val)
68c
69 return
70 end
71c
72c
73c
74 subroutine mprrvr(fid,name,numdt,numit,val,cret)
75c DEC$ ATTRIBUTES DLLEXPORT :: mprrvr
76c
77 implicit none
78 save
79 character*(*) name
80 integer*8 fid
81 integer numdt,numit,cret
82 real*8 val
83 integer mprfrvr
84c
85 cret = mprfrvr(fid,name,len(name),numdt,numit,val)
86c
87 return
88 end
89c
90c
91c
92 subroutine mprivr(fid,name,numdt,numit,val,cret)
93c DEC$ ATTRIBUTES DLLEXPORT :: mprivr
94c
95 implicit none
96 save
97 character*(*) name
98 integer*8 fid
99 integer numdt,numit,cret
100 integer val
101 integer mprfivr
102c
103 cret = mprfivr(fid,name,len(name),numdt,numit,val)
104c
105 return
106 end
107c
108c
109c
110 subroutine mprnpr(fid,n,cret)
111c DEC$ ATTRIBUTES DLLEXPORT :: mprnpr
112c
113 implicit none
114 save
115 integer*8 fid
116 integer n,cret
117 integer mprfnpr
118c
119 n = mprfnpr(fid)
120c
121 if (n.lt.0) then
122 cret = -1
123 else
124 cret = 0
125 endif
126c
127 return
128 end
129c
130c
131c
132 subroutine mprpri(fid, it, name, type, desc,
133 & dtunit, nstep, cret)
134c DEC$ ATTRIBUTES DLLEXPORT :: mprpri
135c
136 implicit none
137 save
138c
139 character *(*) name, dtunit, desc
140 integer*8 fid
141 integer it, cret, type, nstep
142 integer mprfpri
143c
144 cret = mprfpri(fid, it, name, type,
145 & desc, dtunit, nstep)
146c
147 return
148 end
149c
150c
151c
152 subroutine mprpin(fid, name, type, desc,
153 & dtunit, nstep, cret)
154c DEC$ ATTRIBUTES DLLEXPORT :: mprpin
155c
156 implicit none
157 save
158c
159 character *(*) name, dtunit, desc
160 integer*8 fid
161 integer cret, type, nstep
162 integer mprfpin
163c
164 cret = mprfpin(fid, name, len(name), type,
165 & desc, dtunit, nstep)
166c
167 return
168 end
169c
170c
171c
172 subroutine mprcsi(fid, name, it, numdt, numit,
173 & dt, cret)
174c DEC$ ATTRIBUTES DLLEXPORT :: mprcsi
175c
176 implicit none
177 save
178c
179 character *(*) name
180 integer*8 fid
181 integer it, cret, numdt, numit
182 real*8 dt
183 integer mprfcsi
184c
185 cret = mprfcsi(fid, name, len(name), it,
186 & numdt,numit,dt)
187c
188 return
189 end
subroutine mprpri(fid, it, name, type, desc, dtunit, nstep, cret)
subroutine mprivr(fid, name, numdt, numit, val, cret)
subroutine mprrvr(fid, name, numdt, numit, val, cret)
subroutine mprrvw(fid, name, numdt, numit, dt, val, cret)
subroutine mprcsi(fid, name, it, numdt, numit, dt, cret)
subroutine mprcre(fid, name, type, des, dtunit, cret)
subroutine mprivw(fid, name, numdt, numit, dt, val, cret)
subroutine mprnpr(fid, n, cret)
subroutine mprpin(fid, name, type, desc, dtunit, nstep, cret)