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