MED fichier: Fichier source de medparameter.f

MED fichier

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

medparameter.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
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
mprpri
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
mprrvw
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
mprpin
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
mprcre
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
mprivw
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
mprivr
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
mprnpr
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
mprrvr
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
mprcsi
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