Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 597768 | Differences between
and this patch

Collapse All | Expand All

(-)med-3.3.1_SRC/src/fi/medfile.f (-12 / +19 lines)
Lines 22-31 c Link Here
22
      implicit none
22
      implicit none
23
      save
23
      save
24
      character *(*) name
24
      character *(*) name
25
      integer fid
25
      integer*8 fid
26
      integer access,cret
26
      integer access,cret
27
      integer major, minor, rel
27
      integer major, minor, rel
28
      integer mfifvop
28
      integer*8 mfifvop
29
c
29
c
30
      fid = mfifvop(name, access, major, minor, rel, len(name))
30
      fid = mfifvop(name, access, major, minor, rel, len(name))
31
      if (fid.lt.0) then
31
      if (fid.lt.0) then
Lines 43-51 c Link Here
43
      implicit none
43
      implicit none
44
      save
44
      save
45
      character *(*) name
45
      character *(*) name
46
      integer fid
46
      integer*8 fid
47
      integer access,cret
47
      integer access,cret
48
      integer mfifope
48
      integer*8 mfifope
49
c
49
c
50
      fid = mfifope(name, access, len(name))
50
      fid = mfifope(name, access, len(name))
51
      if (fid.lt.0) then
51
      if (fid.lt.0) then
Lines 82-88 c Link Here
82
      implicit none
82
      implicit none
83
      save
83
      save
84
c
84
c
85
      integer fid,cret
85
      integer*8 fid
86
      integer cret
86
      integer mfifclo
87
      integer mfifclo
87
c
88
c
88
      cret = mfifclo(fid)
89
      cret = mfifclo(fid)
Lines 98-104 c Link Here
98
      implicit none
99
      implicit none
99
      save
100
      save
100
c
101
c
101
      integer fid,cret
102
      integer*8 fid
103
      integer cret
102
      character*(*) cmt
104
      character*(*) cmt
103
      integer mfifcow
105
      integer mfifcow
104
c
106
c
Lines 114-120 c Link Here
114
      implicit none
116
      implicit none
115
      save
117
      save
116
c
118
c
117
      integer fid,cret
119
      integer*8 fid
120
      integer cret
118
      character*(*) cmt
121
      character*(*) cmt
119
      integer mfifcor
122
      integer mfifcor
120
c
123
c
Lines 131-137 c Link Here
131
      implicit none
134
      implicit none
132
      save
135
      save
133
c
136
c
134
      integer fid,major, minor,rel
137
      integer*8 fid
138
      integer major, minor,rel
135
      integer cret
139
      integer cret
136
      integer mfifnvr
140
      integer mfifnvr
137
c
141
c
Lines 148-154 c Link Here
148
      save
152
      save
149
c
153
c
150
      character*(*) version
154
      character*(*) version
151
      integer cret,fid
155
      integer*8 fid
156
      integer cret
152
      integer mfifsvr
157
      integer mfifsvr
153
c
158
c
154
      cret =  mfifsvr(fid,version,len(version))
159
      cret =  mfifsvr(fid,version,len(version))
Lines 183-190 c Link Here
183
      save
188
      save
184
c
189
c
185
      character *(*) fname
190
      character *(*) fname
186
      integer class, fid, mid , cret
191
      integer*8 fid, mid
187
      integer mfifomn
192
      integer class, cret
193
      integer*8 mfifomn
188
c
194
c
189
      mid =  mfifomn(fid, fname, len(fname), class)
195
      mid =  mfifomn(fid, fname, len(fname), class)
190
      if (mid .eq.-1) then
196
      if (mid .eq.-1) then
Lines 205-211 c Link Here
205
      implicit none
211
      implicit none
206
      save
212
      save
207
c
213
c
208
      integer mid, fid, class, cret
214
      integer*8 mid, fid
215
      integer class, cret
209
      integer mfifoun
216
      integer mfifoun
210
c
217
c
211
      cret = mfifoun(fid, mid, class)
218
      cret = mfifoun(fid, mid, class)
(-)med-3.3.1_SRC/src/2.3.6/fi/entmaaf.f (-19 / +38 lines)
Lines 23-29 c Link Here
23
      save
23
      save
24
c
24
c
25
      character *(*) maa
25
      character *(*) maa
26
      integer fid, conn(*),typent,typgeo,typcon,cret
26
      integer*8 fid
27
      integer conn(*),typent,typgeo,typcon,cret
27
      integer edfcone,n,mdim, switch
28
      integer edfcone,n,mdim, switch
28
c
29
c
29
      cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n, 
30
      cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n, 
Lines 43-49 c Link Here
43
c
44
c
44
      character *(*) maa
45
      character *(*) maa
45
      integer mdim
46
      integer mdim
46
      integer fid, conn(*),typent,typgeo,typcon,cret
47
      integer*8 fid
48
      integer conn(*),typent,typgeo,typcon,cret
47
      integer pfltab(*), psize
49
      integer pfltab(*), psize
48
      integer edfconl,switch
50
      integer edfconl,switch
49
c
51
c
Lines 64-70 c Link Here
64
c
66
c
65
      character *(*) maa
67
      character *(*) maa
66
      real*8 coo(*)
68
      real*8 coo(*)
67
      integer fid,typrep,mdim
69
      integer*8 fid
70
      integer typrep,mdim
68
      integer edfcooe,n,cret,modcoo
71
      integer edfcooe,n,cret,modcoo
69
      character *(*) nom, unit
72
      character *(*) nom, unit
70
c
73
c
Lines 86-92 c Link Here
86
      character *(*) maa
89
      character *(*) maa
87
      real*8 coo(*)
90
      real*8 coo(*)
88
      integer mdim
91
      integer mdim
89
      integer fid,typrep,cret,modcoo
92
      integer*8 fid
93
      integer typrep,cret,modcoo
90
      integer pfltab(*),psize, numco
94
      integer pfltab(*),psize, numco
91
      integer edfcool
95
      integer edfcool
92
      character *(*) nom, unit
96
      character *(*) nom, unit
Lines 107-113 c Link Here
107
c
111
c
108
      character *(*) maa
112
      character *(*) maa
109
      character*(*) nom
113
      character*(*) nom
110
      integer fid,typent, typgeo,cret
114
      integer*8 fid
115
      integer typent, typgeo,cret
111
      integer edfnome,n
116
      integer edfnome,n
112
c
117
c
113
      cret = edfnome (fid, maa ,len(maa),nom, 16*n, n,
118
      cret = edfnome (fid, maa ,len(maa),nom, 16*n, n,
Lines 125-131 c Link Here
125
c
130
c
126
      character *(*) maa
131
      character *(*) maa
127
      character*(*) nom
132
      character*(*) nom
128
      integer fid,typent, typgeo,cret
133
      integer*8 fid
134
      integer typent, typgeo,cret
129
      integer edfnoml,n
135
      integer edfnoml,n
130
c
136
c
131
      cret = edfnoml (fid, maa ,len(maa),nom,n,
137
      cret = edfnoml (fid, maa ,len(maa),nom,n,
Lines 143-149 c Link Here
143
c
149
c
144
      character *(*) maa
150
      character *(*) maa
145
      integer num(*)
151
      integer num(*)
146
      integer fid,typent, typgeo,cret
152
      integer*8 fid
153
      integer typent, typgeo,cret
147
      integer edfnume, n
154
      integer edfnume, n
148
c
155
c
149
      cret = edfnume (fid, maa ,len(maa),num, n,
156
      cret = edfnume (fid, maa ,len(maa),num, n,
Lines 162-168 c Link Here
162
c
169
c
163
      character *(*) maa
170
      character *(*) maa
164
      integer num(*)
171
      integer num(*)
165
      integer fid,typent, typgeo,cret
172
      integer*8 fid
173
      integer typent, typgeo,cret
166
      integer edfnuml,n
174
      integer edfnuml,n
167
c
175
c
168
      cret = edfnuml (fid, maa ,len(maa),num, n,
176
      cret = edfnuml (fid, maa ,len(maa),num, n,
Lines 179-185 c Link Here
179
      save
187
      save
180
c
188
c
181
      character *(*) maa
189
      character *(*) maa
182
      integer fid,typent, typgeo,cret,typcon,n,quoi
190
      integer*8 fid
191
      integer typent, typgeo,cret,typcon,n,quoi
183
      integer edfnema
192
      integer edfnema
184
c
193
c
185
      n = edfnema(fid, maa ,len(maa),quoi, 
194
      n = edfnema(fid, maa ,len(maa),quoi, 
Lines 203-209 c Link Here
203
      save
212
      save
204
c
213
c
205
      character *32 maa
214
      character *32 maa
206
      integer fid, conn(*),typent,typcon,cret,index(*)
215
      integer*8 fid
216
      integer conn(*),typent,typcon,cret,index(*)
207
      integer edfpgce,ni
217
      integer edfpgce,ni
208
c
218
c
209
      cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon)
219
      cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon)
Lines 220-226 c Link Here
220
      save
230
      save
221
c
231
c
222
      character*32 maa
232
      character*32 maa
223
      integer fid, conn(*),typent,typcon,cret,index(*)
233
      integer*8 fid
234
      integer conn(*),typent,typcon,cret,index(*)
224
      integer edfpgcl,ni
235
      integer edfpgcl,ni
225
c
236
c
226
      cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon)
237
      cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon)
Lines 235-241 c Link Here
235
      save
246
      save
236
c
247
c
237
      character*32  maa
248
      character*32  maa
238
      integer fid,typent,typcon,cret
249
      integer*8 fid
250
      integer typent,typcon,cret
239
      integer edfpygi,consiz
251
      integer edfpygi,consiz
240
c
252
c
241
      cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz)
253
      cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz)
Lines 252-258 c Link Here
252
      save
264
      save
253
c
265
c
254
      character *32 maa
266
      character *32 maa
255
      integer fid, conn(*),typcon,cret,indexp(*),indexf(*)
267
      integer*8 fid
268
      integer conn(*),typcon,cret,indexp(*),indexf(*)
256
      integer edfpece,np,nf
269
      integer edfpece,np,nf
257
c
270
c
258
      cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
271
      cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
Lines 269-275 c Link Here
269
      save
282
      save
270
c
283
c
271
      character*32 maa
284
      character*32 maa
272
      integer fid, conn(*),typcon,cret,indexp(*),indexf(*)
285
      integer*8 fid
286
      integer conn(*),typcon,cret,indexp(*),indexf(*)
273
      integer edfpecl,np,nf
287
      integer edfpecl,np,nf
274
c
288
c
275
      cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
289
      cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
Lines 284-290 c Link Here
284
      save
298
      save
285
c
299
c
286
      character*32 maa
300
      character*32 maa
287
      integer fid,typcon,cret
301
      integer*8 fid
302
      integer typcon,cret
288
      integer edfpyei,consiz,nf
303
      integer edfpyei,consiz,nf
289
c
304
c
290
      cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz)
305
      cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz)
Lines 303-309 c Link Here
303
c
318
c
304
      character*32 maa
319
      character*32 maa
305
      real*8 indices(*)
320
      real*8 indices(*)
306
      integer fid,mdim,axe
321
      integer*8 fid
322
      integer mdim,axe
307
      integer edficoe,n,cret
323
      integer edficoe,n,cret
308
      character*(*) comp, unit
324
      character*(*) comp, unit
309
c
325
c
Lines 324-330 c Link Here
324
c
340
c
325
      character*32 maa
341
      character*32 maa
326
      real*8 indices(*)
342
      real*8 indices(*)
327
      integer fid,mdim,axe
343
      integer*8 fid
344
      integer mdim,axe
328
      integer edficol,n,cret
345
      integer edficol,n,cret
329
      character*16 comp, unit
346
      character*16 comp, unit
330
c
347
c
Lines 344-350 c Link Here
344
c
361
c
345
      character*32  maa
362
      character*32  maa
346
      integer struct(*)
363
      integer struct(*)
347
      integer fid,cret,mdim
364
      integer*8 fid
365
      integer cret,mdim
348
      integer edfscoe
366
      integer edfscoe
349
c
367
c
350
      cret = edfscoe (fid, maa ,len(maa),mdim,struct)
368
      cret = edfscoe (fid, maa ,len(maa),mdim,struct)
Lines 361-367 c Link Here
361
c
379
c
362
      character*32  maa
380
      character*32  maa
363
      integer struct(*)
381
      integer struct(*)
364
      integer fid,cret,mdim
382
      integer*8 fid
383
      integer cret,mdim
365
      integer edfscol
384
      integer edfscol
366
c
385
c
367
      cret = edfscol (fid, maa ,len(maa),mdim,struct)
386
      cret = edfscol (fid, maa ,len(maa),mdim,struct)
(-)med-3.3.1_SRC/src/2.3.6/fi/equf.f (-6 / +12 lines)
Lines 22-28 c Link Here
22
      save
22
      save
23
c     
23
c     
24
      character *(*) maa, des, eq
24
      character *(*) maa, des, eq
25
      integer fid, cret
25
      integer*8 fid
26
      integer cret
26
      integer edfequc
27
      integer edfequc
27
c
28
c
28
      cret = edfequc(fid, maa, len(maa), eq, len(eq), des, len(des))
29
      cret = edfequc(fid, maa, len(maa), eq, len(eq), des, len(des))
Lines 37-43 c Link Here
37
      save
38
      save
38
c
39
c
39
      character *(*) maa, eq
40
      character *(*) maa, eq
40
      integer fid, cret, corr(*), n, typent, typgeo
41
      integer*8 fid
42
      integer cret, corr(*), n, typent, typgeo
41
      integer edfeque
43
      integer edfeque
42
c
44
c
43
      cret = edfeque(fid, maa, len(maa), eq, len(eq), corr, 
45
      cret = edfeque(fid, maa, len(maa), eq, len(eq), corr, 
Lines 53-59 c Link Here
53
      save
55
      save
54
c
56
c
55
      character *(*) maa, eq
57
      character *(*) maa, eq
56
      integer fid, cret, corr(*), n,typent, typgeo
58
      integer*8 fid
59
      integer cret, corr(*), n,typent, typgeo
57
      integer edfequl
60
      integer edfequl
58
c
61
c
59
      cret = edfequl(fid, maa, len(maa), eq, len(eq), corr, 
62
      cret = edfequl(fid, maa, len(maa), eq, len(eq), corr, 
Lines 69-75 c Link Here
69
      save
72
      save
70
c
73
c
71
      character *(*) maa, eq
74
      character *(*) maa, eq
72
      integer fid, cret, n,typent, typgeo
75
      integer*8 fid
76
      integer cret, n,typent, typgeo
73
      integer edfncor
77
      integer edfncor
74
c
78
c
75
      n = edfncor(fid, maa, len(maa), eq, len(eq), typent,typgeo)
79
      n = edfncor(fid, maa, len(maa), eq, len(eq), typent,typgeo)
Lines 89-95 c Link Here
89
      save
93
      save
90
c
94
c
91
      character *(*) maa
95
      character *(*) maa
92
      integer fid, cret, n
96
      integer*8 fid
97
      integer cret, n
93
      integer edfnequ
98
      integer edfnequ
94
c
99
c
95
      n = edfnequ(fid, maa, len(maa))
100
      n = edfnequ(fid, maa, len(maa))
Lines 109-115 c Link Here
109
      save
114
      save
110
c
115
c
111
      character *(*) maa,eq,des
116
      character *(*) maa,eq,des
112
      integer fid, cret,ind
117
      integer*8 fid
118
      integer cret,ind
113
      integer edfequi
119
      integer edfequi
114
c
120
c
115
      cret = edfequi(fid, maa, len(maa),ind,eq,des)
121
      cret = edfequi(fid, maa, len(maa),ind,eq,des)
(-)med-3.3.1_SRC/src/2.3.6/fi/fichf.f (-10 / +18 lines)
Lines 31-38 c Link Here
31
      save
31
      save
32
c
32
c
33
      character *(*) nom
33
      character *(*) nom
34
      integer acces, fid, cret
34
      integer*8 fid
35
      integer edfouvr
35
      integer acces, cret
36
      integer*8 edfouvr
36
c
37
c
37
      fid = edfouvr(nom, acces, len(nom))
38
      fid = edfouvr(nom, acces, len(nom))
38
      if (fid.eq.-1) then
39
      if (fid.eq.-1) then
Lines 50-56 c Link Here
50
      implicit none
51
      implicit none
51
      save
52
      save
52
c
53
c
53
      integer fid,cret
54
      integer*8 fid
55
      integer cret
54
      integer edfferm
56
      integer edfferm
55
c
57
c
56
      cret = edfferm(fid)
58
      cret = edfferm(fid)
Lines 65-71 c Link Here
65
      implicit none
67
      implicit none
66
      save
68
      save
67
c
69
c
68
      integer fid,cret,lon
70
      integer*8 fid
71
      integer cret,lon
69
      integer edflfde
72
      integer edflfde
70
c
73
c
71
      lon = edflfde(fid)
74
      lon = edflfde(fid)
Lines 85-91 c Link Here
85
      implicit none
88
      implicit none
86
      save
89
      save
87
c
90
c
88
      integer fid,quoi,cret
91
      integer*8 fid
92
      integer quoi,cret
89
      integer edffien
93
      integer edffien
90
      character*(*) str
94
      character*(*) str
91
c
95
c
Lines 100-106 c DEC$ ATTRIBUTES DLLEXPORT :: effid Link Here
100
c
104
c
101
      implicit none
105
      implicit none
102
      save
106
      save
103
      integer fid,cret
107
      integer*8 fid
108
      integer cret
104
      character*(*) des
109
      character*(*) des
105
      integer edffide
110
      integer edffide
106
c
111
c
Lines 147-153 c Link Here
147
      implicit none
152
      implicit none
148
      save
153
      save
149
C
154
C
150
      integer fid, maj, min, rel
155
      integer*8 fid
156
      integer maj, min, rel
151
      integer cret
157
      integer cret
152
      integer edfveli
158
      integer edfveli
153
c
159
c
Lines 182-189 c Link Here
182
      save
188
      save
183
c
189
c
184
      character *(*) acces
190
      character *(*) acces
185
      integer mid, fid, type, cret
191
      integer*8 mid, fid
186
      integer edfmont
192
      integer type, cret
193
      integer*8 edfmont
187
c
194
c
188
      mid = edfmont(fid, acces, len(acces), type)
195
      mid = edfmont(fid, acces, len(acces), type)
189
      if (mid .eq.-1) then
196
      if (mid .eq.-1) then
Lines 203-209 c Link Here
203
      implicit none
210
      implicit none
204
      save
211
      save
205
c
212
c
206
      integer mid, fid, type, cret
213
      integer*8 mid, fid
214
      integer type, cret
207
      integer edfdemo
215
      integer edfdemo
208
c
216
c
209
      cret = edfdemo(fid, mid, type)
217
      cret = edfdemo(fid, mid, type)
(-)med-3.3.1_SRC/src/2.3.6/fi/gauss.f (-4 / +8 lines)
Lines 21-27 c Link Here
21
      implicit none
21
      implicit none
22
      save
22
      save
23
c
23
c
24
      integer fid, n, cret
24
      integer*8 fid
25
      integer n, cret
25
      integer edfngau
26
      integer edfngau
26
c
27
c
27
      n = edfngau(fid)
28
      n = edfngau(fid)
Lines 43-49 c Link Here
43
      implicit none
44
      implicit none
44
      save
45
      save
45
c
46
c
46
      integer fid,indice,typgeo,ngauss,cret
47
      integer*8 fid
48
      integer indice,typgeo,ngauss,cret
47
      character *(*) locname
49
      character *(*) locname
48
      integer edfgaui
50
      integer edfgaui
49
c
51
c
Lines 63-69 c Link Here
63
      implicit none
65
      implicit none
64
      save
66
      save
65
c      
67
c      
66
      integer fid,typgeo,mode_coo,ngauss,cret
68
      integer*8 fid
69
      integer typgeo,mode_coo,ngauss,cret
67
      real*8 refcoo(*),gscoo(*),wg(*)
70
      real*8 refcoo(*),gscoo(*),wg(*)
68
      character *(*) locname
71
      character *(*) locname
69
      integer edfgaue
72
      integer edfgaue
Lines 83-89 c Link Here
83
      implicit none
86
      implicit none
84
      save
87
      save
85
c      
88
c      
86
      integer fid,mode_coo,cret
89
      integer*8 fid
90
      integer mode_coo,cret
87
      real*8 refcoo(*),gscoo(*),wg(*)
91
      real*8 refcoo(*),gscoo(*),wg(*)
88
      character *(*) locname
92
      character *(*) locname
89
      integer edfgaul 
93
      integer edfgaul 
(-)med-3.3.1_SRC/src/2.3.6/fi/jntf.f (-9 / +18 lines)
Lines 25-31 c Link Here
25
      save
25
      save
26
c     
26
c     
27
      character *(*) maalcl, jn, des, maadst
27
      character *(*) maalcl, jn, des, maadst
28
      integer fid, dom, cret
28
      integer*8 fid
29
      integer dom, cret
29
      integer edfjntc
30
      integer edfjntc
30
c     
31
c     
31
      cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn),
32
      cret = edfjntc(fid, maalcl, len(maalcl), jn, len(jn),
Lines 45-51 c Link Here
45
      save
46
      save
46
c     
47
c     
47
      character *(*) maalcl
48
      character *(*) maalcl
48
      integer n, fid,  cret
49
      integer*8 fid
50
      integer n, cret
49
      integer edfnjnt
51
      integer edfnjnt
50
c     
52
c     
51
      cret = edfnjnt(fid, maalcl, len(maalcl), n)
53
      cret = edfnjnt(fid, maalcl, len(maalcl), n)
Lines 74-80 c Link Here
74
      save
76
      save
75
c     
77
c     
76
      character *(*) maalcl, jn, des, maadst
78
      character *(*) maalcl, jn, des, maadst
77
      integer fid, ind, dom, cret
79
      integer*8 fid
80
      integer ind, dom, cret
78
      integer edfjnti
81
      integer edfjnti
79
c     
82
c     
80
      cret = edfjnti(fid, maalcl, len(maalcl), ind,
83
      cret = edfjnti(fid, maalcl, len(maalcl), ind,
Lines 99-105 c Link Here
99
      save
102
      save
100
c     
103
c     
101
      character *(*) maalcl, jn
104
      character *(*) maalcl, jn
102
      integer n, fid, cret, corrtab(*)
105
      integer*8 fid
106
      integer n, cret, corrtab(*)
103
      integer entlcl, entdst, geolcl, geodst
107
      integer entlcl, entdst, geolcl, geodst
104
      integer edfjnte
108
      integer edfjnte
105
c     
109
c     
Lines 122-128 c Link Here
122
      save
126
      save
123
c     
127
c     
124
      character *(*) maalcl, jn
128
      character *(*) maalcl, jn
125
      integer n, fid, cret, corrtab(*)
129
      integer*8 fid
130
      integer n, cret, corrtab(*)
126
      integer entlcl, entdst, geolcl, geodst
131
      integer entlcl, entdst, geolcl, geodst
127
      integer edfjntl
132
      integer edfjntl
128
c     
133
c     
Lines 146-152 c Link Here
146
      save
151
      save
147
c     
152
c     
148
      character *(*) maalcl, jn
153
      character *(*) maalcl, jn
149
      integer fid, entlcl, entdst, geolcl, geodst, nent, cret
154
      integer*8 fid
155
      integer entlcl, entdst, geolcl, geodst, nent, cret
150
      integer edfjnco
156
      integer edfjnco
151
c     
157
c     
152
      nent = edfjnco(fid,
158
      nent = edfjnco(fid,
Lines 177-183 c Link Here
177
      save
183
      save
178
c     
184
c     
179
      character *(*) maalcl, jn 
185
      character *(*) maalcl, jn 
180
      integer fid, entlcl, entdst, geolcl, geodst, nent, cret, ind
186
      integer*8 fid
187
      integer entlcl, entdst, geolcl, geodst, nent, cret, ind
181
      integer edfjtco
188
      integer edfjtco
182
c     
189
c     
183
      nent = edfjtco(fid,
190
      nent = edfjtco(fid,
Lines 210-216 c Link Here
210
      save
217
      save
211
c     
218
c     
212
      character *(*) maa
219
      character *(*) maa
213
      integer n, fid,  cret, numtab(*)
220
      integer*8 fid
221
      integer n, cret, numtab(*)
214
      integer ent, geo
222
      integer ent, geo
215
      integer edfgnme
223
      integer edfgnme
216
c     
224
c     
Lines 232-238 c Link Here
232
      save
240
      save
233
c     
241
c     
234
      character *(*) maa
242
      character *(*) maa
235
      integer n, fid, cret, numtab(*)
243
      integer*8 fid
244
      integer n, cret, numtab(*)
236
      integer ent, geo
245
      integer ent, geo
237
      integer edfgnml
246
      integer edfgnml
238
c     
247
c     
(-)med-3.3.1_SRC/src/2.3.6/fi/maaf.f (-16 / +32 lines)
Lines 23-29 c Link Here
23
c
23
c
24
      character *(*) nom
24
      character *(*) nom
25
      character *(*) desc
25
      character *(*) desc
26
      integer fid, dim, type, cret
26
      integer*8 fid
27
      integer dim, type, cret
27
      integer edfmaac
28
      integer edfmaac
28
c
29
c
29
      cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))
30
      cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))
Lines 38-44 c Link Here
38
      implicit none
39
      implicit none
39
      save
40
      save
40
c
41
c
41
      integer fid, n, cret
42
      integer*8 fid
43
      integer n, cret
42
      integer edfnmaa
44
      integer edfnmaa
43
c
45
c
44
      n = edfnmaa(fid)
46
      n = edfnmaa(fid)
Lines 60-66 c Link Here
60
      implicit none
62
      implicit none
61
      save
63
      save
62
c
64
c
63
      integer fid,dim,cret,indice,type
65
      integer*8 fid
66
      integer dim,cret,indice,type
64
      character *(*) maa
67
      character *(*) maa
65
      character *(*) desc
68
      character *(*) desc
66
      integer edfmaai
69
      integer edfmaai
Lines 78-84 c Link Here
78
      implicit none
81
      implicit none
79
      save
82
      save
80
c
83
c
81
      integer fid,dim,cret
84
      integer*8 fid
85
      integer dim,cret
82
      character *(*) maa
86
      character *(*) maa
83
      integer edfdiml
87
      integer edfdiml
84
c
88
c
Lines 99-105 c Link Here
99
      implicit none
103
      implicit none
100
      save
104
      save
101
c
105
c
102
      integer fid,n,cret
106
      integer*8 fid
107
      integer n,cret
103
      character*(*) maa
108
      character*(*) maa
104
      integer edfnnsl
109
      integer edfnnsl
105
c
110
c
Lines 120-126 c Link Here
120
      implicit none
125
      implicit none
121
      save
126
      save
122
c
127
c
123
      integer fid,n,cret
128
      integer*8 fid
129
      integer n,cret
124
      character*(*) maa
130
      character*(*) maa
125
      integer edfnnse
131
      integer edfnnse
126
c
132
c
Lines 135-141 c Link Here
135
      implicit none
141
      implicit none
136
      save
142
      save
137
c
143
c
138
      integer fid,n,cret
144
      integer*8 fid
145
      integer n,cret
139
      character*(*) maa
146
      character*(*) maa
140
      integer edfnnil
147
      integer edfnnil
141
c
148
c
Lines 156-162 c Link Here
156
      implicit none
163
      implicit none
157
      save
164
      save
158
c
165
c
159
      integer fid,n,cret
166
      integer*8 fid
167
      integer n,cret
160
      character*(*) maa
168
      character*(*) maa
161
      integer edfnnie
169
      integer edfnnie
162
c
170
c
Lines 171-177 c Link Here
171
      implicit none
179
      implicit none
172
      save
180
      save
173
c
181
c
174
      integer fid,n,cret
182
      integer*8 fid
183
      integer n,cret
175
      character*(*) maa
184
      character*(*) maa
176
      integer edfnnml
185
      integer edfnnml
177
c
186
c
Lines 192-198 c Link Here
192
      implicit none
201
      implicit none
193
      save
202
      save
194
c
203
c
195
      integer fid,n,cret
204
      integer*8 fid
205
      integer n,cret
196
      character*(*) maa
206
      character*(*) maa
197
      integer edfnnme
207
      integer edfnnme
198
c
208
c
Lines 208-214 c Link Here
208
      save
218
      save
209
c
219
c
210
      character *(*) nom
220
      character *(*) nom
211
      integer fid, cret
221
      integer*8 fid
222
      integer cret
212
      integer edfunvc
223
      integer edfunvc
213
c
224
c
214
      cret = edfunvc (fid, nom , len(nom))
225
      cret = edfunvc (fid, nom , len(nom))
Lines 222-228 c Link Here
222
      implicit none
233
      implicit none
223
      save
234
      save
224
c
235
c
225
      integer fid,cret
236
      integer*8 fid
237
      integer cret
226
      character *(*) nom,nomu
238
      character *(*) nom,nomu
227
      integer edfunvl
239
      integer edfunvl
228
c  
240
c  
Lines 239-245 c Link Here
239
      save
251
      save
240
c
252
c
241
      character *(*) nom
253
      character *(*) nom
242
      integer fid, dim, cret
254
      integer*8 fid
255
      integer dim, cret
243
      integer edfespc
256
      integer edfespc
244
c
257
c
245
      cret = edfespc (fid, nom , len(nom), dim)
258
      cret = edfespc (fid, nom , len(nom), dim)
Lines 254-260 c Link Here
254
      implicit none
267
      implicit none
255
      save
268
      save
256
c
269
c
257
      integer fid,dim,cret
270
      integer*8 fid
271
      integer dim,cret
258
      character *(*) maa
272
      character *(*) maa
259
      integer edfespl
273
      integer edfespl
260
c
274
c
Lines 276-282 c Link Here
276
      implicit none
290
      implicit none
277
      save
291
      save
278
c
292
c
279
      integer fid,typ,cret
293
      integer*8 fid
294
      integer typ,cret
280
      character*(*) maa
295
      character*(*) maa
281
      integer edfnage
296
      integer edfnage
282
c
297
c
Lines 292-298 c Link Here
292
      implicit none
307
      implicit none
293
      save
308
      save
294
c
309
c
295
      integer fid,typ,cret
310
      integer*8 fid
311
      integer typ,cret
296
      character*(*) maa
312
      character*(*) maa
297
      integer edfnagl
313
      integer edfnagl
298
c
314
c
(-)med-3.3.1_SRC/src/2.3.6/fi/prof.f (-5 / +10 lines)
Lines 21-27 c Link Here
21
      implicit none
21
      implicit none
22
      save
22
      save
23
c
23
c
24
      integer fid, n, cret
24
      integer*8 fid
25
      integer n, cret
25
      integer edfnpro
26
      integer edfnpro
26
c
27
c
27
      n = edfnpro(fid)
28
      n = edfnpro(fid)
Lines 43-49 c Link Here
43
      implicit none
44
      implicit none
44
      save
45
      save
45
c
46
c
46
      integer fid,n,cret,indice
47
      integer*8 fid
48
      integer n,cret,indice
47
      character *(*) pro
49
      character *(*) pro
48
      integer edfproi
50
      integer edfproi
49
c
51
c
Lines 61-67 c Link Here
61
      implicit none
63
      implicit none
62
      save
64
      save
63
c      
65
c      
64
      integer fid,n,cret
66
      integer*8 fid
67
      integer n,cret
65
      integer pflval(*)
68
      integer pflval(*)
66
      character *(*) nom
69
      character *(*) nom
67
      integer edfpfle
70
      integer edfpfle
Lines 79-85 c Link Here
79
      implicit none
82
      implicit none
80
      save
83
      save
81
c      
84
c      
82
      integer fid,cret,n
85
      integer*8 fid
86
      integer cret,n
83
      character *(*) nom
87
      character *(*) nom
84
      integer edfnpfl
88
      integer edfnpfl
85
c
89
c
Lines 101-107 c Link Here
101
      implicit none
105
      implicit none
102
      save
106
      save
103
c      
107
c      
104
      integer fid,cret
108
      integer*8 fid
109
      integer cret
105
      integer pflval(*)
110
      integer pflval(*)
106
      character *(*) nom
111
      character *(*) nom
107
      integer edfpfll
112
      integer edfpfll
(-)med-3.3.1_SRC/src/2.3.6/fi/resf_i.f (-17 / +34 lines)
Lines 22-28 c Link Here
22
      save
22
      save
23
c      
23
c      
24
      character *(*) cha,comp,unit
24
      character *(*) cha,comp,unit
25
      integer fid, ncomp, cret, type
25
      integer*8 fid
26
      integer ncomp, cret, type
26
      integer edfchac
27
      integer edfchac
27
c
28
c
28
      cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,
29
      cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,
Lines 42-48 c Link Here
42
c      
43
c      
43
      character *(*) cha,maa,profil,locname
44
      character *(*) cha,maa,profil,locname
44
      character*(*) dtunit
45
      character*(*) dtunit
45
      integer fid,val(*)
46
      integer*8 fid
47
      integer val(*)
46
      integer n,pflmod,typent,typgeo,cret
48
      integer n,pflmod,typent,typgeo,cret
47
      integer interlace,numco,numdt,numo
49
      integer interlace,numco,numdt,numo
48
      real*8 dt
50
      real*8 dt
Lines 69-75 c Link Here
69
c      
71
c      
70
      character *(*) cha,maa,profil,locname
72
      character *(*) cha,maa,profil,locname
71
      character*(*) dtunit
73
      character*(*) dtunit
72
      integer fid,val(*),n,pflmod,typent,typgeo,cret
74
      integer*8 fid
75
      integer val(*),n,pflmod,typent,typgeo,cret
73
      integer interlace,numco,numdt,numo
76
      integer interlace,numco,numdt,numo
74
      real*8 dt
77
      real*8 dt
75
      integer edfchae
78
      integer edfchae
Lines 97-103 c Link Here
97
      save
100
      save
98
c      
101
c      
99
      character *(*) cha,maa,locname,profil
102
      character *(*) cha,maa,locname,profil
100
      integer fid,val(*),pflmod,typent,typgeo,cret
103
      integer*8 fid
104
      integer val(*),pflmod,typent,typgeo,cret
101
      integer interlace,numco,numdt,numo
105
      integer interlace,numco,numdt,numo
102
      integer edfchal
106
      integer edfchal
103
c
107
c
Lines 122-128 c Link Here
122
      save
126
      save
123
c      
127
c      
124
      character *(*) cha,maa,locname,profil
128
      character *(*) cha,maa,locname,profil
125
      integer fid,val(*),typent,typgeo,cret,pflmod
129
      integer*8 fid
130
      integer val(*),typent,typgeo,cret,pflmod
126
      integer interlace,numco,numdt,numo
131
      integer interlace,numco,numdt,numo
127
      integer edfchal
132
      integer edfchal
128
c
133
c
Lines 142-148 c Link Here
142
      save
147
      save
143
c      
148
c      
144
      character *(*) cha,comp,unit
149
      character *(*) cha,comp,unit
145
      integer fid,ind,type,ncomp,cret
150
      integer*8 fid
151
      integer ind,type,ncomp,cret
146
      integer edfchai
152
      integer edfchai
147
c
153
c
148
      cret = edfchai(fid,ind,cha,type,
154
      cret = edfchai(fid,ind,cha,type,
Lines 157-163 c Link Here
157
      implicit none
163
      implicit none
158
      save
164
      save
159
c      
165
c      
160
      integer fid,ind,cret,n
166
      integer*8 fid
167
      integer ind,cret,n
161
      integer edfncha
168
      integer edfncha
162
c
169
c
163
      n = edfncha(fid,ind)
170
      n = edfncha(fid,ind)
Lines 178-184 c Link Here
178
      implicit none
185
      implicit none
179
      save
186
      save
180
c      
187
c      
181
      integer fid,typent,typgeo,n,cret
188
      integer*8 fid
189
      integer typent,typgeo,n,cret
182
      integer numdt, numo, pflmod
190
      integer numdt, numo, pflmod
183
      character *(*) cha, maa
191
      character *(*) cha, maa
184
      integer edfnval
192
      integer edfnval
Lines 204-210 c Link Here
204
      implicit none
212
      implicit none
205
      save
213
      save
206
c      
214
c      
207
      integer fid,type,geo,n,cret
215
      integer*8 fid
216
      integer type,geo,n,cret
208
      character*32 cha
217
      character*32 cha
209
      integer edfnpdt
218
      integer edfnpdt
210
c
219
c
Lines 227-233 c Link Here
227
      implicit none
236
      implicit none
228
      save
237
      save
229
c      
238
c      
230
      integer fid,typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
239
      integer*8 fid
240
      integer typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
231
      character*32 cha,maa
241
      character*32 cha,maa
232
      character*16 dtunit
242
      character*16 dtunit
233
      real*8 dt
243
      real*8 dt
Lines 248-254 c Link Here
248
      implicit none
258
      implicit none
249
      save
259
      save
250
c
260
c
251
      integer fid,typent,typgeo,n,cret
261
      integer*8 fid
262
      integer typent,typgeo,n,cret
252
      integer numdt, numo
263
      integer numdt, numo
253
      character *(*) cha
264
      character *(*) cha
254
      integer edfnref
265
      integer edfnref
Lines 273-279 c Link Here
273
      implicit none
284
      implicit none
274
      save
285
      save
275
c
286
c
276
      integer fid,typent,typgeo,indice,n,cret
287
      integer*8 fid
288
      integer typent,typgeo,indice,n,cret
277
      integer numdt, numo, ngauss
289
      integer numdt, numo, ngauss
278
      character *(*) cha, maa
290
      character *(*) cha, maa
279
      logical local
291
      logical local
Lines 294-300 c Link Here
294
306
295
      subroutine efliee(fid,lienval,maa,cret)
307
      subroutine efliee(fid,lienval,maa,cret)
296
c     DEC$ ATTRIBUTES DLLEXPORT :: efliee
308
c     DEC$ ATTRIBUTES DLLEXPORT :: efliee
297
      integer fid,cret
309
      integer*8 fid
310
      integer cret
298
      character *(*) lienval, maa
311
      character *(*) lienval, maa
299
      integer   edfliee
312
      integer   edfliee
300
313
Lines 312-318 c Link Here
312
      implicit none
325
      implicit none
313
      save
326
      save
314
c      
327
c      
315
      integer fid,cret,n
328
      integer*8 fid
329
      integer cret,n
316
      integer edfnlie
330
      integer edfnlie
317
c
331
c
318
      n = edfnlie(fid)
332
      n = edfnlie(fid)
Lines 332-338 c Link Here
332
      implicit none
346
      implicit none
333
      save
347
      save
334
c
348
c
335
      integer fid,n,cret,indice
349
      integer*8 fid
350
      integer n,cret,indice
336
      character *(*) maa
351
      character *(*) maa
337
      integer edfliei
352
      integer edfliei
338
c
353
c
Lines 349-355 c Link Here
349
      implicit none
364
      implicit none
350
      save
365
      save
351
c      
366
c      
352
      integer fid,cret,n
367
      integer*8 fid
368
      integer cret,n
353
      character *(*) maa
369
      character *(*) maa
354
      integer edfnvli
370
      integer edfnvli
355
c
371
c
Lines 371-377 c Link Here
371
      implicit none
387
      implicit none
372
      save
388
      save
373
c      
389
c      
374
      integer fid,n,cret
390
      integer*8 fid
391
      integer n,cret
375
      character *(*) maa,lienval
392
      character *(*) maa,lienval
376
      integer edfliel
393
      integer edfliel
377
c
394
c
(-)med-3.3.1_SRC/src/2.3.6/fi/scalaire.f (-9 / +18 lines)
Lines 22-28 c Link Here
22
      save
22
      save
23
c      
23
c      
24
      character *(*) sca,desc
24
      character *(*) sca,desc
25
      integer fid, cret, type
25
      integer*8 fid
26
      integer cret, type
26
      integer edfscac
27
      integer edfscac
27
c
28
c
28
      cret = edfscac (fid,sca,len(sca),type,desc,len(desc))
29
      cret = edfscac (fid,sca,len(sca),type,desc,len(desc))
Lines 40-46 c Link Here
40
c      
41
c      
41
      character *32 sca
42
      character *32 sca
42
      character*(*) dtunit
43
      character*(*) dtunit
43
      integer fid,val,cret
44
      integer*8 fid
45
      integer val,cret
44
      integer numdt,numo
46
      integer numdt,numo
45
      real*8 dt
47
      real*8 dt
46
      integer edfscee
48
      integer edfscee
Lines 62-68 c Link Here
62
c      
64
c      
63
      character *(*) sca
65
      character *(*) sca
64
      character*(*) dtunit
66
      character*(*) dtunit
65
      integer fid,cret
67
      integer*8 fid
68
      integer cret
66
      integer numdt,numo
69
      integer numdt,numo
67
      real*8 dt
70
      real*8 dt
68
      real*8 val
71
      real*8 val
Lines 85-91 c Link Here
85
      save
88
      save
86
c      
89
c      
87
      character *(*) sca
90
      character *(*) sca
88
      integer fid,val,cret
91
      integer*8 fid
92
      integer val,cret
89
      integer numdt,numo
93
      integer numdt,numo
90
      integer edfscel
94
      integer edfscel
91
c
95
c
Lines 103-109 c DEC$ ATTRIBUTES DLLEXPORT :: efscf Link Here
103
      save
107
      save
104
c      
108
c      
105
      character *(*) sca
109
      character *(*) sca
106
      integer fid,cret
110
      integer*8 fid
111
      integer cret
107
      integer numdt,numo
112
      integer numdt,numo
108
      integer edfscfl
113
      integer edfscfl
109
      real*8 val(*)
114
      real*8 val(*)
Lines 122-128 c Link Here
122
      save
127
      save
123
c      
128
c      
124
      character *(*) sca,desc
129
      character *(*) sca,desc
125
      integer fid,ind,type,cret
130
      integer*8 fid
131
      integer ind,type,cret
126
      integer edfscai
132
      integer edfscai
127
c
133
c
128
      cret = edfscai(fid,ind,sca,type,desc)
134
      cret = edfscai(fid,ind,sca,type,desc)
Lines 136-142 c Link Here
136
      implicit none
142
      implicit none
137
      save
143
      save
138
c      
144
c      
139
      integer fid,cret,n
145
      integer*8 fid
146
      integer cret,n
140
      integer edfnsca
147
      integer edfnsca
141
c
148
c
142
      n = edfnsca(fid)
149
      n = edfnsca(fid)
Lines 155-161 c Link Here
155
      implicit none
162
      implicit none
156
      save
163
      save
157
c      
164
c      
158
      integer fid,n,cret
165
      integer*8 fid
166
      integer n,cret
159
      character*32 sca
167
      character*32 sca
160
      integer edfnspd
168
      integer edfnspd
161
c
169
c
Lines 178-184 c Link Here
178
      implicit none
186
      implicit none
179
      save
187
      save
180
c      
188
c      
181
      integer fid,indice,numdt,numo,cret
189
      integer*8 fid
190
      integer indice,numdt,numo,cret
182
      character*32 sca
191
      character*32 sca
183
      character*16 dtunit
192
      character*16 dtunit
184
      real*8 dt
193
      real*8 dt
(-)med-3.3.1_SRC/src/fi/medequivalence.f (-8 / +16 lines)
Lines 22-28 c Link Here
22
      save
22
      save
23
c     
23
c     
24
      character *(*) maa, des, eq
24
      character *(*) maa, des, eq
25
      integer fid, cret
25
      integer*8 fid
26
      integer cret
26
      integer meqfcre
27
      integer meqfcre
27
c
28
c
28
      cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
29
      cret = meqfcre(fid, maa, len(maa), eq, len(eq), des, len(des))
Lines 41-47 c Link Here
41
c
42
c
42
      character *(*) maa, eq
43
      character *(*) maa, eq
43
      integer numit, numdt
44
      integer numit, numdt
44
      integer fid, cret, n, typent, typgeo
45
      integer*8 fid
46
      integer cret, n, typent, typgeo
45
      integer corr(*)
47
      integer corr(*)
46
      integer meqfcow
48
      integer meqfcow
47
c
49
c
Lines 61-67 c Link Here
61
      save
63
      save
62
c
64
c
63
      character *(*) maa
65
      character *(*) maa
64
      integer fid, cret, n
66
      integer*8 fid
67
      integer cret, n
65
      integer meqfneq
68
      integer meqfneq
66
c
69
c
67
      n = meqfneq(fid, maa, len(maa))
70
      n = meqfneq(fid, maa, len(maa))
Lines 83-89 c Link Here
83
      save
86
      save
84
c
87
c
85
      character *(*) maa,eq,des
88
      character *(*) maa,eq,des
86
      integer fid, cret,ind,nstep,nctcor
89
      integer*8 fid
90
      integer cret,ind,nstep,nctcor
87
      integer meqfeqi
91
      integer meqfeqi
88
c
92
c
89
      cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
93
      cret = meqfeqi(fid,maa,len(maa),ind,eq,des,
Lines 102-108 c Link Here
102
      save
106
      save
103
c
107
c
104
      character *(*) maa, eq
108
      character *(*) maa, eq
105
      integer fid,cret,n,typent,typgeo,numit,numdt
109
      integer*8 fid
110
      integer cret,n,typent,typgeo,numit,numdt
106
      integer meqfcsz
111
      integer meqfcsz
107
c
112
c
108
      n = meqfcsz(fid,maa,len(maa),eq,len(eq),
113
      n = meqfcsz(fid,maa,len(maa),eq,len(eq),
Lines 127-133 c Link Here
127
      save
132
      save
128
c
133
c
129
      character *(*) maa, eq
134
      character *(*) maa, eq
130
      integer fid,cret,n,typent,typgeo,numit,numdt
135
      integer*8 fid
136
      integer cret,n,typent,typgeo,numit,numdt
131
      integer corit
137
      integer corit
132
      integer meqfszi
138
      integer meqfszi
133
c
139
c
Lines 147-153 c Link Here
147
      save
153
      save
148
c
154
c
149
      character *(*) maa, eq
155
      character *(*) maa, eq
150
      integer fid, cret, corr(*), typent, typgeo,numdt,mumit
156
      integer*8 fid
157
      integer cret, corr(*), typent, typgeo,numdt,mumit
151
      integer meqfcor
158
      integer meqfcor
152
c
159
c
153
      cret = meqfcor(fid, maa, len(maa), eq, len(eq), 
160
      cret = meqfcor(fid, maa, len(maa), eq, len(eq), 
Lines 165-171 c Link Here
165
      save
172
      save
166
c
173
c
167
      character *(*) maa,eq
174
      character *(*) maa,eq
168
      integer fid,cret,ind,numdt,numit,ncor
175
      integer*8 fid
176
      integer cret,ind,numdt,numit,ncor
169
      integer meqfcsi
177
      integer meqfcsi
170
c
178
c
171
      cret = meqfcsi(fid,maa,len(maa),eq,len(eq),
179
      cret = meqfcsi(fid,maa,len(maa),eq,len(eq),
(-)med-3.3.1_SRC/src/fi/medfamily.f (-6 / +12 lines)
Lines 22-28 c Link Here
22
      save
22
      save
23
c
23
c
24
      character *(*) name, fname, gname
24
      character *(*) name, fname, gname
25
      integer fid, fnum, ngro, cret
25
      integer*8 fid
26
      integer fnum, ngro, cret
26
      integer mfafcre
27
      integer mfafcre
27
c
28
c
28
      cret = mfafcre(fid, name, len(name), fname, len(name),
29
      cret = mfafcre(fid, name, len(name), fname, len(name),
Lines 39-45 c Link Here
39
      implicit none
40
      implicit none
40
      save
41
      save
41
c
42
c
42
      integer fid,n,cret
43
      integer*8 fid
44
      integer n,cret
43
      character *(*) maa
45
      character *(*) maa
44
      integer mfafnfa
46
      integer mfafnfa
45
c
47
c
Lines 61-67 c Link Here
61
      implicit none
63
      implicit none
62
      save
64
      save
63
c
65
c
64
      integer fid,n,cret,it
66
      integer*8 fid
67
      integer n,cret,it
65
      character *(*) maa
68
      character *(*) maa
66
      integer mfafnfg
69
      integer mfafnfg
67
c
70
c
Lines 83-89 c Link Here
83
      implicit none
86
      implicit none
84
      save
87
      save
85
c 
88
c 
86
      integer fid,num,cret,ind
89
      integer*8 fid
90
      integer num,cret,ind
87
      character *(*) maa,fam,gro
91
      character *(*) maa,fam,gro
88
      integer mfaffai
92
      integer mfaffai
89
c
93
c
Lines 100-106 c Link Here
100
      implicit none
104
      implicit none
101
      save
105
      save
102
c
106
c
103
      integer fid,it,n,cret
107
      integer*8 fid
108
      integer it,n,cret
104
      character *(*) maa
109
      character *(*) maa
105
      integer mfafona
110
      integer mfafona
106
c
111
c
Lines 123-129 c Link Here
123
      implicit none
128
      implicit none
124
      save
129
      save
125
c 
130
c 
126
      integer fid,num,cret,it
131
      integer*8 fid
132
      integer num,cret,it
127
      integer attnum(*),attval(*)
133
      integer attnum(*),attval(*)
128
      character *(*) maa,fam,gro,attdes
134
      character *(*) maa,fam,gro,attdes
129
      integer mfafofi
135
      integer mfafofi
(-)med-3.3.1_SRC/src/fi/medfield.f (-33 / +66 lines)
Lines 24-30 c Link Here
24
      implicit none
24
      implicit none
25
      save
25
      save
26
      character*(*) fname,cname,cunit,dtunit,mname
26
      character*(*) fname,cname,cunit,dtunit,mname
27
      integer fid,ncomp,cret,ftype
27
      integer*8 fid
28
      integer ncomp,cret,ftype
28
      integer mfdfcre
29
      integer mfdfcre
29
c
30
c
30
      cret = mfdfcre(fid,fname,len(fname),ftype,
31
      cret = mfdfcre(fid,fname,len(fname),ftype,
Lines 45-51 c Link Here
45
      character*(*) fname
46
      character*(*) fname
46
      integer numdt,numit
47
      integer numdt,numit
47
      real*8 dt,val(*)
48
      real*8 dt,val(*)
48
      integer fid,cret,etype,gtype,swm,cs,n
49
      integer*8 fid
50
      integer cret,etype,gtype,swm,cs,n
49
      integer mfdfrvw
51
      integer mfdfrvw
50
c
52
c
51
      cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
53
      cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
Lines 66-72 c Link Here
66
      integer numdt,numit
68
      integer numdt,numit
67
      real*8 dt
69
      real*8 dt
68
      integer val(*)
70
      integer val(*)
69
      integer fid,cret,etype,gtype,swm,cs,n
71
      integer*8 fid
72
      integer cret,etype,gtype,swm,cs,n
70
      integer mfdfivw
73
      integer mfdfivw
71
c
74
c
72
      cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
75
      cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
Lines 88-94 c Link Here
88
      character*(*) fname,pname,lname
91
      character*(*) fname,pname,lname
89
      integer numdt,numit
92
      integer numdt,numit
90
      real*8 dt,val(*)
93
      real*8 dt,val(*)
91
      integer fid,cret,etype,gtype,swm,cs,n,stm
94
      integer*8 fid
95
      integer cret,etype,gtype,swm,cs,n,stm
92
      integer mfdfrpw
96
      integer mfdfrpw
93
c
97
c
94
      cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
98
      cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
Lines 112-118 c Link Here
112
      integer numdt,numit
116
      integer numdt,numit
113
      real*8 dt
117
      real*8 dt
114
      integer val(*)
118
      integer val(*)
115
      integer fid,cret,etype,gtype,swm,cs,n,stm
119
      integer*8 fid
120
      integer cret,etype,gtype,swm,cs,n,stm
116
      integer mfdfipw
121
      integer mfdfipw
117
c
122
c
118
      cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
123
      cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
Lines 135-141 c Link Here
135
      integer numdt,numit
140
      integer numdt,numit
136
      real*8 dt,val(*)
141
      real*8 dt,val(*)
137
      integer*8 flt(*)
142
      integer*8 flt(*)
138
      integer fid,cret,etype,gtype
143
      integer*8 fid
144
      integer cret,etype,gtype
139
      integer mfdfraw
145
      integer mfdfraw
140
c
146
c
141
      cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
147
      cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
Lines 158-164 c Link Here
158
      real*8 dt
164
      real*8 dt
159
      integer val(*)
165
      integer val(*)
160
      integer*8 flt(*)
166
      integer*8 flt(*)
161
      integer fid,cret,etype,gtype
167
      integer*8 fid
168
      integer cret,etype,gtype
162
      integer mfdfiaw
169
      integer mfdfiaw
163
c
170
c
164
      cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
171
      cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
Lines 174-180 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnf Link Here
174
c
181
c
175
      implicit none
182
      implicit none
176
      save
183
      save
177
      integer fid,n,cret
184
      integer*8 fid
185
      integer n,cret
178
      integer mfdfnfd
186
      integer mfdfnfd
179
c
187
c
180
      n = mfdfnfd(fid)
188
      n = mfdfnfd(fid)
Lines 195-201 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnf Link Here
195
c
203
c
196
      implicit none
204
      implicit none
197
      save
205
      save
198
      integer fid,n,cret,ind
206
      integer*8 fid
207
      integer n,cret,ind
199
      integer mfdfnfc
208
      integer mfdfnfc
200
c
209
c
201
      n = mfdfnfc(fid,ind)
210
      n = mfdfnfc(fid,ind)
Lines 216-222 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnc Link Here
216
c
225
c
217
      implicit none
226
      implicit none
218
      save
227
      save
219
      integer fid,n,cret
228
      integer*8 fid
229
      integer n,cret
220
      character *(*) fname
230
      character *(*) fname
221
      integer mfdfncn
231
      integer mfdfncn
222
c
232
c
Lines 242-248 c Link Here
242
c
252
c
243
      character *(*) fname, mname, dtunit, cname, cunit
253
      character *(*) fname, mname, dtunit, cname, cunit
244
      integer lmesh, cret
254
      integer lmesh, cret
245
      integer fid, type, it, nc
255
      integer*8 fid
256
      integer type, it, nc
246
      integer mfdffdi 
257
      integer mfdffdi 
247
c
258
c
248
      cret = mfdffdi(fid, it, fname, mname, lmesh, type,
259
      cret = mfdffdi(fid, it, fname, mname, lmesh, type,
Lines 263-269 c Link Here
263
c
274
c
264
      character *(*) fname, mname, dtunit, cname, cunit
275
      character *(*) fname, mname, dtunit, cname, cunit
265
      integer lmesh, cret
276
      integer lmesh, cret
266
      integer fid, type, nc
277
      integer*8 fid
278
      integer type, nc
267
      integer mfdffin 
279
      integer mfdffin 
268
c
280
c
269
      cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
281
      cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
Lines 282-288 c Link Here
282
c
294
c
283
      character*(*) fname
295
      character*(*) fname
284
      integer cret
296
      integer cret
285
      integer fid, it, numdt, numit
297
      integer*8 fid
298
      integer it, numdt, numit
286
      real*8  dt
299
      real*8  dt
287
      integer mfdfcsi
300
      integer mfdfcsi
288
c
301
c
Lines 302-308 c Link Here
302
c
315
c
303
      character*(*) fname
316
      character*(*) fname
304
      integer cret
317
      integer cret
305
      integer fid, it, numdt, numit, mnumdt, mnumit
318
      integer*8 fid
319
      integer it, numdt, numit, mnumdt, mnumit
306
      real*8  dt
320
      real*8  dt
307
      integer mfdfcmi
321
      integer mfdfcmi
308
c
322
c
Lines 323-329 c Link Here
323
c
337
c
324
      character*(*) fname
338
      character*(*) fname
325
      integer cret
339
      integer cret
326
      integer fid, numdt, numit, mnumdt, mnumit
340
      integer*8 fid
341
      integer numdt, numit, mnumdt, mnumit
327
      integer mfdfcmw
342
      integer mfdfcmw
328
c
343
c
329
      cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
344
      cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
Lines 340-346 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnp Link Here
340
c
355
c
341
      implicit none
356
      implicit none
342
      save
357
      save
343
      integer fid,n,cret
358
      integer*8 fid
359
      integer n,cret
344
      integer numdt,numit,etype,gtype
360
      integer numdt,numit,etype,gtype
345
      character*(*) fname,dpname,dlname
361
      character*(*) fname,dpname,dlname
346
      
362
      
Lines 366-372 c Link Here
366
      implicit none
382
      implicit none
367
      save
383
      save
368
      character*(*) fname
384
      character*(*) fname
369
      integer fid,n,cret,numdt,numit,etype,gtype
385
      integer*8 fid
386
      integer n,cret,numdt,numit,etype,gtype
370
      integer mfdfnva
387
      integer mfdfnva
371
c
388
c
372
      n = mfdfnva(fid,fname,len(fname),numdt,numit,
389
      n = mfdfnva(fid,fname,len(fname),numdt,numit,
Lines 392-398 c Link Here
392
      save
409
      save
393
      character*(*) fname, pname, lname
410
      character*(*) fname, pname, lname
394
      integer pit,stm,psize
411
      integer pit,stm,psize
395
      integer fid,n,cret,numdt,numit,etype,gtype,nip
412
      integer*8 fid
413
      integer n,cret,numdt,numit,etype,gtype,nip
396
      integer mfdfnvp
414
      integer mfdfnvp
397
c
415
c
398
      n = mfdfnvp(fid,fname,len(fname),numdt,numit,
416
      n = mfdfnvp(fid,fname,len(fname),numdt,numit,
Lines 419-425 c Link Here
419
      save
437
      save
420
      character*(*) fname, pname, lname
438
      character*(*) fname, pname, lname
421
      integer stm,psize
439
      integer stm,psize
422
      integer fid,n,cret,numdt,numit,etype,gtype,nip
440
      integer*8 fid
441
      integer n,cret,numdt,numit,etype,gtype,nip
423
      integer mfdfnpn
442
      integer mfdfnpn
424
c
443
c
425
      n = mfdfnpn(fid,fname,len(fname),numdt,numit,
444
      n = mfdfnpn(fid,fname,len(fname),numdt,numit,
Lines 446-452 c Link Here
446
      character*(*) fname
465
      character*(*) fname
447
      integer numdt,numit
466
      integer numdt,numit
448
      real*8 val(*)
467
      real*8 val(*)
449
      integer fid,cret,etype,gtype,swm,cs
468
      integer*8 fid
469
      integer cret,etype,gtype,swm,cs
450
      integer mfdfrvr
470
      integer mfdfrvr
451
c
471
c
452
      cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
472
      cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
Lines 466-472 c Link Here
466
      character*(*) fname
486
      character*(*) fname
467
      integer numdt,numit
487
      integer numdt,numit
468
      integer val(*)
488
      integer val(*)
469
      integer fid,cret,etype,gtype,swm,cs
489
      integer*8 fid
490
      integer cret,etype,gtype,swm,cs
470
      integer mfdfivr
491
      integer mfdfivr
471
c
492
c
472
      cret = mfdfivr(fid,fname,len(fname),numdt,numit,
493
      cret = mfdfivr(fid,fname,len(fname),numdt,numit,
Lines 488-494 c Link Here
488
      character*(*) fname,pname
509
      character*(*) fname,pname
489
      integer numdt,numit
510
      integer numdt,numit
490
      real*8 val(*)
511
      real*8 val(*)
491
      integer fid,cret,etype,gtype,swm,cs,stm
512
      integer*8 fid
513
      integer cret,etype,gtype,swm,cs,stm
492
      integer mfdfrpr
514
      integer mfdfrpr
493
c
515
c
494
      cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
516
      cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
Lines 510-516 c Link Here
510
      character*(*) fname,pname
532
      character*(*) fname,pname
511
      integer numdt,numit
533
      integer numdt,numit
512
      integer val(*)
534
      integer val(*)
513
      integer fid,cret,etype,gtype,swm,cs,n,stm
535
      integer*8 fid
536
      integer cret,etype,gtype,swm,cs,n,stm
514
      integer mfdfipr
537
      integer mfdfipr
515
c
538
c
516
      cret = mfdfipr(fid,fname,len(fname),numdt,numit,
539
      cret = mfdfipr(fid,fname,len(fname),numdt,numit,
Lines 532-538 c Link Here
532
      integer numdt,numit
555
      integer numdt,numit
533
      real*8 val(*)
556
      real*8 val(*)
534
      integer*8 flt(*)
557
      integer*8 flt(*)
535
      integer fid,cret,etype,gtype
558
      integer*8 fid
559
      integer cret,etype,gtype
536
      integer mfdfrar
560
      integer mfdfrar
537
c
561
c
538
      cret = mfdfrar(fid,fname,len(fname),numdt,numit,
562
      cret = mfdfrar(fid,fname,len(fname),numdt,numit,
Lines 554-560 c Link Here
554
      integer numdt,numit
578
      integer numdt,numit
555
      integer val(*)
579
      integer val(*)
556
      integer*8 flt(*)
580
      integer*8 flt(*)
557
      integer fid,cret,etype,gtype
581
      integer*8 fid
582
      integer cret,etype,gtype
558
      integer mfdfiar
583
      integer mfdfiar
559
c
584
c
560
      cret = mfdfiar(fid,fname,len(fname),numdt,numit,
585
      cret = mfdfiar(fid,fname,len(fname),numdt,numit,
Lines 571-577 c Link Here
571
      implicit none
596
      implicit none
572
      save
597
      save
573
      character*(*) fname,iname
598
      character*(*) fname,iname
574
      integer fid,cret
599
      integer*8 fid
600
      integer cret
575
      integer mfdfinw
601
      integer mfdfinw
576
c
602
c
577
      cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
603
      cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
Lines 586-592 c DEC$ ATTRIBUTES DLLEXPORT :: mfdni Link Here
586
c
612
c
587
      implicit none
613
      implicit none
588
      save
614
      save
589
      integer fid,n,cret
615
      integer*8 fid
616
      integer n,cret
590
      character*(*) fname
617
      character*(*) fname
591
      integer mfdfnin
618
      integer mfdfnin
592
c
619
c
Lines 609-615 c Link Here
609
      implicit none
636
      implicit none
610
      save
637
      save
611
      character*(*) fname,iname
638
      character*(*) fname,iname
612
      integer fid,cret,it
639
      integer*8 fid
640
      integer cret,it
613
      integer mfdfini
641
      integer mfdfini
614
c
642
c
615
      cret = mfdfini(fid,fname,len(fname),it,iname,cret)
643
      cret = mfdfini(fid,fname,len(fname),it,iname,cret)
Lines 629-635 c Link Here
629
c
657
c
630
      character*(*) fname,mname
658
      character*(*) fname,mname
631
      integer cret
659
      integer cret
632
      integer fid,it,numdt,numit,nmesh,lmesh
660
      integer*8 fid
661
      integer it,numdt,numit,nmesh,lmesh
633
      integer mnumdt,mnumit
662
      integer mnumdt,mnumit
634
      real*8  dt
663
      real*8  dt
635
      integer mfdfoci
664
      integer mfdfoci
Lines 650-656 c DEC$ ATTRIBUTES DLLEXPORT :: mfdon Link Here
650
c
679
c
651
      implicit none
680
      implicit none
652
      save
681
      save
653
      integer fid,n,cret
682
      integer*8 fid
683
      integer n,cret
654
      integer numdt,numit,etype,gtype,it
684
      integer numdt,numit,etype,gtype,it
655
      character*(*) fname,dpname,dlname,mname
685
      character*(*) fname,dpname,dlname,mname
656
      
686
      
Lines 679-685 c Link Here
679
      save
709
      save
680
      character*(*) fname, pname, lname, mname
710
      character*(*) fname, pname, lname, mname
681
      integer pit,stm,psize
711
      integer pit,stm,psize
682
      integer fid,n,cret,numdt,numit,etype,gtype,nip
712
      integer*8 fid
713
      integer n,cret,numdt,numit,etype,gtype,nip
683
      integer mfdfonv
714
      integer mfdfonv
684
c
715
c
685
      n = mfdfonv(fid,fname,len(fname),numdt,numit,
716
      n = mfdfonv(fid,fname,len(fname),numdt,numit,
Lines 711-717 c Link Here
711
      character*(*) fname,pname,mname
742
      character*(*) fname,pname,mname
712
      integer numdt,numit
743
      integer numdt,numit
713
      real*8 val(*)
744
      real*8 val(*)
714
      integer fid,cret,etype,gtype,swm,cs,stm
745
      integer*8 fid
746
      integer cret,etype,gtype,swm,cs,stm
715
      integer mfdforr
747
      integer mfdforr
716
c
748
c
717
      cret = mfdforr(fid,fname,len(fname),numdt,numit,
749
      cret = mfdforr(fid,fname,len(fname),numdt,numit,
Lines 735-741 c Link Here
735
      character*(*) fname,pname,mname
767
      character*(*) fname,pname,mname
736
      integer numdt,numit
768
      integer numdt,numit
737
      integer val(*)
769
      integer val(*)
738
      integer fid,cret,etype,gtype,swm,cs,n,stm
770
      integer*8 fid
771
      integer cret,etype,gtype,swm,cs,n,stm
739
      integer mfdfoir
772
      integer mfdfoir
740
c
773
c
741
      cret = mfdfoir(fid,fname,len(fname),numdt,numit,
774
      cret = mfdfoir(fid,fname,len(fname),numdt,numit,
(-)med-3.3.1_SRC/src/fi/medinterp.f (-7 / +14 lines)
Lines 22-28 c Link Here
22
      save
22
      save
23
c     
23
c     
24
      character*(*) name
24
      character*(*) name
25
      integer fid, gtype,cnode,nvar,maxd,nmaxc,cret
25
      integer*8 fid
26
      integer gtype,cnode,nvar,maxd,nmaxc,cret
26
      integer mipfcre
27
      integer mipfcre
27
c     
28
c     
28
      cret = mipfcre(fid,name,len(name),gtype,cnode,
29
      cret = mipfcre(fid,name,len(name),gtype,cnode,
Lines 40-46 c Link Here
40
      save
41
      save
41
c     
42
c     
42
      character*(*) name
43
      character*(*) name
43
      integer fid,it,nc,cret
44
      integer*8 fid
45
      integer it,nc,cret
44
      integer pw(*)
46
      integer pw(*)
45
      real*8 co(*)
47
      real*8 co(*)
46
      integer mipfbfw
48
      integer mipfbfw
Lines 59-65 c Link Here
59
      save
61
      save
60
c     
62
c     
61
      character*(*) name
63
      character*(*) name
62
      integer fid,it,nc,cret
64
      integer*8 fid
65
      integer it,nc,cret
63
      integer pw(*)
66
      integer pw(*)
64
      real*8 co(*)
67
      real*8 co(*)
65
      integer mipfbfr
68
      integer mipfbfr
Lines 78-84 c Link Here
78
      implicit none
81
      implicit none
79
      save
82
      save
80
c     
83
c     
81
      integer n, fid,  cret
84
      integer*8 fid
85
      integer n, cret
82
      integer mipfnip
86
      integer mipfnip
83
c     
87
c     
84
      n = mipfnip(fid)
88
      n = mipfnip(fid)
Lines 102-108 c Link Here
102
      save
106
      save
103
c     
107
c     
104
      character*(*) name
108
      character*(*) name
105
      integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf
109
      integer*8 fid
110
      integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf
106
      integer mipfiin
111
      integer mipfiin
107
c     
112
c     
108
      cret = mipfiin(fid,name,len(name),gtype,cnode,nbf,
113
      cret = mipfiin(fid,name,len(name),gtype,cnode,nbf,
Lines 121-127 c Link Here
121
      save
126
      save
122
c     
127
c     
123
      character*(*) name
128
      character*(*) name
124
      integer fid, gtype,cnode,nvar,maxd,nmaxc,cret,nbf
129
      integer*8 fid
130
      integer gtype,cnode,nvar,maxd,nmaxc,cret,nbf
125
      integer it
131
      integer it
126
      integer mipfipi
132
      integer mipfipi
127
c     
133
c     
Lines 140-146 c Link Here
140
      save
146
      save
141
c     
147
c     
142
      character*(*) name
148
      character*(*) name
143
      integer n, fid, it, cret
149
      integer*8 fid
150
      integer n, it, cret
144
      integer mipfcsz
151
      integer mipfcsz
145
c     
152
c     
146
      n = mipfcsz(fid,name,len(name),it)
153
      n = mipfcsz(fid,name,len(name),it)
(-)med-3.3.1_SRC/src/fi/medjoint.f (-8 / +16 lines)
Lines 26-32 c Link Here
26
      character*(*) lmname
26
      character*(*) lmname
27
      character*(*) des
27
      character*(*) des
28
      character*(*) rmname
28
      character*(*) rmname
29
      integer fid, dom, cret
29
      integer*8 fid
30
      integer dom, cret
30
      integer msdfjcr
31
      integer msdfjcr
31
c     
32
c     
32
      print *,lmname
33
      print *,lmname
Lines 53-59 c Link Here
53
      save
54
      save
54
c     
55
c     
55
      character *(*) lmname, jname
56
      character *(*) lmname, jname
56
      integer n, fid, cret, corrtab(*)
57
      integer*8 fid
58
      integer n, cret, corrtab(*)
57
      integer entlcl, entdst, geolcl, geodst, numdt,numit
59
      integer entlcl, entdst, geolcl, geodst, numdt,numit
58
      integer msdfcrw
60
      integer msdfcrw
59
c     
61
c     
Lines 73-79 c Link Here
73
      save
75
      save
74
c     
76
c     
75
      character *(*) maa
77
      character *(*) maa
76
      integer n, fid,  cret
78
      integer*8 fid
79
      integer n, cret
77
      integer msdfnjn
80
      integer msdfnjn
78
c     
81
c     
79
      n = msdfnjn(fid,maa,len(maa))
82
      n = msdfnjn(fid,maa,len(maa))
Lines 97-103 c Link Here
97
      save
100
      save
98
c     
101
c     
99
      character *(*) lmname,jname,des,rmname
102
      character *(*) lmname,jname,des,rmname
100
      integer fid, ind,dom,cret,nstep,ncor
103
      integer*8 fid
104
      integer ind,dom,cret,nstep,ncor
101
      integer msdfjni
105
      integer msdfjni
102
c     
106
c     
103
      cret = msdfjni(fid,lmname,len(lmname),ind,
107
      cret = msdfjni(fid,lmname,len(lmname),ind,
Lines 119-125 c Link Here
119
      save
123
      save
120
c     
124
c     
121
      character*(*) mname,jname
125
      character*(*) mname,jname
122
      integer fid,cret,numdt,numit
126
      integer*8 fid
127
      integer cret,numdt,numit
123
      integer it,letype,lgtype,retype,rgtype,ncor
128
      integer it,letype,lgtype,retype,rgtype,ncor
124
      integer msdfszi
129
      integer msdfszi
125
c     
130
c     
Lines 145-151 c Link Here
145
      save
150
      save
146
c     
151
c     
147
      character*(*) mname,jname
152
      character*(*) mname,jname
148
      integer fid,cret,numdt,numit
153
      integer*8 fid
154
      integer cret,numdt,numit
149
      integer letype,lgtype,retype,rgtype,ncor
155
      integer letype,lgtype,retype,rgtype,ncor
150
      integer msdfcsz
156
      integer msdfcsz
151
c     
157
c     
Lines 170-176 c Link Here
170
      save
176
      save
171
c     
177
c     
172
      character *(*) lmname, jname
178
      character *(*) lmname, jname
173
      integer fid, cret, corrtab(*)
179
      integer*8 fid
180
      integer cret, corrtab(*)
174
      integer entlcl, entdst, geolcl, geodst, numdt,numit
181
      integer entlcl, entdst, geolcl, geodst, numdt,numit
175
      integer msdfcrr
182
      integer msdfcrr
176
c     
183
c     
Lines 191-197 c Link Here
191
      save
198
      save
192
c     
199
c     
193
      character *(*) mname,jname
200
      character *(*) mname,jname
194
      integer fid, ind,ncor,numdt,numit,cret
201
      integer*8 fid
202
      integer ind,ncor,numdt,numit,cret
195
      integer msdfcsi
203
      integer msdfcsi
196
c     
204
c     
197
      cret = msdfcsi(fid,mname,len(mname),
205
      cret = msdfcsi(fid,mname,len(mname),
(-)med-3.3.1_SRC/src/fi/medlink.f (-5 / +10 lines)
Lines 23-29 c Link Here
23
      implicit none
23
      implicit none
24
      save
24
      save
25
      character*(*) mname,lname
25
      character*(*) mname,lname
26
      integer fid,cret
26
      integer*8 fid
27
      integer cret
27
      integer mlnfliw
28
      integer mlnfliw
28
c
29
c
29
      cret = mlnfliw(fid,mname,len(mname),lname,len(lname))
30
      cret = mlnfliw(fid,mname,len(mname),lname,len(lname))
Lines 38-44 c DEC$ ATTRIBUTES DLLEXPORT :: mlnnl Link Here
38
c
39
c
39
      implicit none
40
      implicit none
40
      save
41
      save
41
      integer fid,n,cret
42
      integer*8 fid
43
      integer n,cret
42
      integer mlnfnln
44
      integer mlnfnln
43
c
45
c
44
      n = mlnfnln(fid)
46
      n = mlnfnln(fid)
Lines 61-67 c Link Here
61
      save
63
      save
62
c
64
c
63
      character *(*) mname
65
      character *(*) mname
64
      integer fid, lsize, it, cret
66
      integer*8 fid
67
      integer lsize, it, cret
65
      integer mlnflni
68
      integer mlnflni
66
c
69
c
67
      cret = mlnflni(fid, it, mname, lsize)
70
      cret = mlnflni(fid, it, mname, lsize)
Lines 78-84 c Link Here
78
      save
81
      save
79
c
82
c
80
      character *(*) mname
83
      character *(*) mname
81
      integer fid, lsize, cret,n
84
      integer*8 fid
85
      integer lsize, cret,n
82
      integer mlnflai
86
      integer mlnflai
83
c
87
c
84
      n = mlnflai(fid, mname, len(mname), lsize)
88
      n = mlnflai(fid, mname, len(mname), lsize)
Lines 100-106 c Link Here
100
      implicit none
104
      implicit none
101
      save
105
      save
102
      character*(*) mname,lname
106
      character*(*) mname,lname
103
      integer fid,cret
107
      integer*8 fid
108
      integer cret
104
      integer mlnflir
109
      integer mlnflir
105
c
110
c
106
      cret = mlnflir(fid,mname,len(mname),lname,len(lname))
111
      cret = mlnflir(fid,mname,len(mname),lname,len(lname))
(-)med-3.3.1_SRC/src/fi/medlocalization.f (-5 / +10 lines)
Lines 25-31 c Link Here
25
      save
25
      save
26
      character*(*) lname,giname, isname
26
      character*(*) lname,giname, isname
27
      real*8 ecoo(*), ipcoo(*), wght(*)
27
      real*8 ecoo(*), ipcoo(*), wght(*)
28
      integer fid,cret,gtype,sdim,swm,nip
28
      integer*8 fid
29
      integer cret,gtype,sdim,swm,nip
29
      integer mlcflow
30
      integer mlcflow
30
c
31
c
31
      cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
32
      cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
Lines 41-47 c DEC$ ATTRIBUTES DLLEXPORT :: mlcnl Link Here
41
c
42
c
42
      implicit none
43
      implicit none
43
      save
44
      save
44
      integer fid,n,cret
45
      integer*8 fid
46
      integer n,cret
45
      integer mlcfnlc
47
      integer mlcfnlc
46
c
48
c
47
      n = mlcfnlc(fid)
49
      n = mlcfnlc(fid)
Lines 65-71 c Link Here
65
      save
67
      save
66
c
68
c
67
      character*(*) lname,giname, isname
69
      character*(*) lname,giname, isname
68
      integer fid, gtype, it, cret, sdim, nip
70
      integer*8 fid
71
      integer gtype, it, cret, sdim, nip
69
      integer nsmc, sgtype
72
      integer nsmc, sgtype
70
      integer mlcflci
73
      integer mlcflci
71
c
74
c
Lines 85-91 c Link Here
85
      save
88
      save
86
c
89
c
87
      character*(*) lname,giname, isname
90
      character*(*) lname,giname, isname
88
      integer fid, gtype, cret, sdim, nip
91
      integer*8 fid
92
      integer gtype, cret, sdim, nip
89
      integer nsmc, sgtype
93
      integer nsmc, sgtype
90
      integer mlcflni
94
      integer mlcflni
91
c
95
c
Lines 105-111 c Link Here
105
      save
109
      save
106
      character*(*) lname
110
      character*(*) lname
107
      real*8 ecoo(*), ipcoo(*), wght(*)
111
      real*8 ecoo(*), ipcoo(*), wght(*)
108
      integer fid,cret,swm
112
      integer*8 fid
113
      integer cret,swm
109
      integer mlcflor
114
      integer mlcflor
110
c
115
c
111
      cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
116
      cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
(-)med-3.3.1_SRC/src/fi/medmesh.f (-63 / +126 lines)
Lines 23-29 c Link Here
23
      save
23
      save
24
c
24
c
25
      character *(*) name, desc, dtunit, aname, aunit
25
      character *(*) name, desc, dtunit, aname, aunit
26
      integer fid, sdim, mdim, mtype, stype, atype, cret
26
      integer*8 fid
27
      integer sdim, mdim, mtype, stype, atype, cret
27
      integer mmhfcre
28
      integer mmhfcre
28
c
29
c
29
      cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype, 
30
      cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype, 
Lines 42-48 c Link Here
42
      implicit none
43
      implicit none
43
      save
44
      save
44
c
45
c
45
      integer fid, n, cret
46
      integer*8 fid
47
      integer n, cret
46
      integer mmhfnmh 
48
      integer mmhfnmh 
47
c
49
c
48
      n = mmhfnmh(fid)
50
      n = mmhfnmh(fid)
Lines 64-70 c Link Here
64
      implicit none
66
      implicit none
65
      save
67
      save
66
c
68
c
67
      integer fid,it,naxis,cret
69
      integer*8 fid
70
      integer it,naxis,cret
68
      integer mmhfnax
71
      integer mmhfnax
69
c
72
c
70
      naxis =  mmhfnax(fid,it)
73
      naxis =  mmhfnax(fid,it)
Lines 85-91 c Link Here
85
      implicit none
88
      implicit none
86
      save
89
      save
87
c
90
c
88
      integer fid,naxis,cret
91
      integer*8 fid
92
      integer naxis,cret
89
      character *(*) name
93
      character *(*) name
90
      integer mmhfnan
94
      integer mmhfnan
91
c
95
c
Lines 109-115 c Link Here
109
      save
113
      save
110
c
114
c
111
      character *(*) name, desc, dtunit, aname, aunit
115
      character *(*) name, desc, dtunit, aname, aunit
112
      integer fid, sdim, mdim, mtype, stype, atype, cret, nstep, it
116
      integer*8 fid
117
      integer sdim, mdim, mtype, stype, atype, cret, nstep, it
113
      integer mmhfmhi 
118
      integer mmhfmhi 
114
c
119
c
115
      cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
120
      cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
Lines 128-134 c Link Here
128
      save
133
      save
129
c
134
c
130
      character *(*) name, desc, dtunit, aname, aunit
135
      character *(*) name, desc, dtunit, aname, aunit
131
      integer fid, sdim, mdim, mtype, stype, atype, cret, nstep
136
      integer*8 fid
137
      integer sdim, mdim, mtype, stype, atype, cret, nstep
132
      integer mmhfmin 
138
      integer mmhfmin 
133
c
139
c
134
      cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
140
      cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
Lines 146-152 c Link Here
146
      implicit none
152
      implicit none
147
      save
153
      save
148
c
154
c
149
      integer fid,cret
155
      integer*8 fid
156
      integer cret
150
      character *(*) name
157
      character *(*) name
151
      integer mmhfunw
158
      integer mmhfunw
152
c
159
c
Lines 163-169 c Link Here
163
      implicit none
170
      implicit none
164
      save
171
      save
165
c
172
c
166
      integer fid,cret
173
      integer*8 fid
174
      integer cret
167
      character *(*) uname
175
      character *(*) uname
168
      character *(*) mname
176
      character *(*) mname
169
      integer mmhfunr
177
      integer mmhfunr
Lines 181-187 c Link Here
181
      implicit none
189
      implicit none
182
      save
190
      save
183
c
191
c
184
      integer fid,cret,nin,nvn,nnc
192
      integer*8 fid
193
      integer cret,nin,nvn,nnc
185
      character *(*) name
194
      character *(*) name
186
      integer mmhfatw
195
      integer mmhfatw
187
c
196
c
Lines 198-204 c Link Here
198
      implicit none
207
      implicit none
199
      save
208
      save
200
c
209
c
201
      integer fid,cret,nin,nvn,nnc
210
      integer*8 fid
211
      integer cret,nin,nvn,nnc
202
      character *(*) name
212
      character *(*) name
203
      integer mmhfatr
213
      integer mmhfatr
204
c
214
c
Lines 215-221 c Link Here
215
      implicit none
225
      implicit none
216
      save
226
      save
217
c
227
c
218
      integer fid,cret,gtype
228
      integer*8 fid
229
      integer cret,gtype
219
      character *(*) name
230
      character *(*) name
220
      integer mmhfgtw
231
      integer mmhfgtw
221
c
232
c
Lines 232-238 c Link Here
232
      implicit none
243
      implicit none
233
      save
244
      save
234
c
245
c
235
      integer fid,cret,gtype
246
      integer*8 fid
247
      integer cret,gtype
236
      character *(*) name
248
      character *(*) name
237
      integer mmhfgtr
249
      integer mmhfgtr
238
c
250
c
Lines 249-255 c Link Here
249
      implicit none
261
      implicit none
250
      save
262
      save
251
c
263
c
252
      integer fid,cret,numdt, numit
264
      integer*8 fid
265
      integer cret,numdt, numit
253
      character *(*) name
266
      character *(*) name
254
      real*8 dt
267
      real*8 dt
255
      integer st( * )
268
      integer st( * )
Lines 268-274 c Link Here
268
      implicit none
281
      implicit none
269
      save
282
      save
270
c
283
c
271
      integer fid,cret,numdt, numit
284
      integer*8 fid
285
      integer cret,numdt, numit
272
      character *(*) name
286
      character *(*) name
273
      integer st(*)
287
      integer st(*)
274
      integer mmhfgsr
288
      integer mmhfgsr
Lines 287-293 c Link Here
287
      implicit none
301
      implicit none
288
      save
302
      save
289
c
303
c
290
      integer fid,cret,numdt,numit,n,swm
304
      integer*8 fid
305
      integer cret,numdt,numit,n,swm
291
      real*8 dt
306
      real*8 dt
292
      character *(*) name
307
      character *(*) name
293
      real*8 coo(*)
308
      real*8 coo(*)
Lines 307-313 c Link Here
307
      implicit none
322
      implicit none
308
      save
323
      save
309
c
324
c
310
      integer fid,cret,numdt,numit,swm
325
      integer*8 fid
326
      integer cret,numdt,numit,swm
311
      character *(*) name
327
      character *(*) name
312
      real*8 coo(*)
328
      real*8 coo(*)
313
      integer mmhfcor
329
      integer mmhfcor
Lines 326-332 c Link Here
326
      implicit none
342
      implicit none
327
      save
343
      save
328
c
344
c
329
      integer fid,cret,numdt,numit,n,swm,stm,dim
345
      integer*8 fid
346
      integer cret,numdt,numit,n,swm,stm,dim
330
      real*8 dt
347
      real*8 dt
331
      character *(*) name, pname
348
      character *(*) name, pname
332
      real*8 coo(*)
349
      real*8 coo(*)
Lines 347-353 c Link Here
347
      implicit none
364
      implicit none
348
      save
365
      save
349
c
366
c
350
      integer fid,cret,numdt,numit,swm,stm,dim
367
      integer*8 fid
368
      integer cret,numdt,numit,swm,stm,dim
351
      character *(*) name, pname
369
      character *(*) name, pname
352
      real*8 coo(*)
370
      real*8 coo(*)
353
      integer mmhfcpr
371
      integer mmhfcpr
Lines 367-373 c Link Here
367
      implicit none
385
      implicit none
368
      save
386
      save
369
c
387
c
370
      integer fid,cret,numdt,numit,axis,size
388
      integer*8 fid
389
      integer cret,numdt,numit,axis,size
371
      real*8 dt
390
      real*8 dt
372
      character *(*) name
391
      character *(*) name
373
      real*8 index(*)
392
      real*8 index(*)
Lines 387-393 c Link Here
387
      implicit none
406
      implicit none
388
      save
407
      save
389
c
408
c
390
      integer fid,cret,numdt,numit,axis
409
      integer*8 fid
410
      integer cret,numdt,numit,axis
391
      character *(*) name
411
      character *(*) name
392
      real*8 index(*)
412
      real*8 index(*)
393
      integer mmhfgcr
413
      integer mmhfgcr
Lines 406-412 c Link Here
406
      implicit none
426
      implicit none
407
      save
427
      save
408
c
428
c
409
      integer fid,cret,numdt, numit,n,entype,geotype
429
      integer*8 fid
430
      integer cret,numdt, numit,n,entype,geotype
410
      character *(*) name
431
      character *(*) name
411
      integer num(*)
432
      integer num(*)
412
      integer mmhfenw
433
      integer mmhfenw
Lines 426-432 c Link Here
426
      implicit none
447
      implicit none
427
      save
448
      save
428
c
449
c
429
      integer fid,cret,numdt, numit,entype,geotype
450
      integer*8 fid
451
      integer cret,numdt, numit,entype,geotype
430
      character *(*) name
452
      character *(*) name
431
      integer num(*)
453
      integer num(*)
432
      integer mmhfenr
454
      integer mmhfenr
Lines 446-452 c Link Here
446
      implicit none
468
      implicit none
447
      save
469
      save
448
c
470
c
449
      integer fid,cret,numdt, numit,n,entype,geotype
471
      integer*8 fid
472
      integer cret,numdt, numit,n,entype,geotype
450
      character *(*) name
473
      character *(*) name
451
      integer num(*)
474
      integer num(*)
452
      integer mmhffnw
475
      integer mmhffnw
Lines 466-472 c Link Here
466
      implicit none
489
      implicit none
467
      save
490
      save
468
c
491
c
469
      integer fid,cret,numdt, numit,entype,geotype
492
      integer*8 fid
493
      integer cret,numdt, numit,entype,geotype
470
      character *(*) name
494
      character *(*) name
471
      integer num(*)
495
      integer num(*)
472
      integer mmhffnr
496
      integer mmhffnr
Lines 488-494 c Link Here
488
c
512
c
489
      character *(*) mname
513
      character *(*) mname
490
      character*(*) ename
514
      character*(*) ename
491
      integer fid, numdt, numit, entype, geotype, n, cret
515
      integer*8 fid
516
      integer numdt, numit, entype, geotype, n, cret
492
      integer mmhfeaw
517
      integer mmhfeaw
493
c
518
c
494
      cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
519
      cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
Lines 508-514 c Link Here
508
c
533
c
509
      character *(*) mname
534
      character *(*) mname
510
      character*(*) ename
535
      character*(*) ename
511
      integer fid, numdt, numit, entype, geotype, cret
536
      integer*8 fid
537
      integer numdt, numit, entype, geotype, cret
512
      integer mmhfear
538
      integer mmhfear
513
539
514
      cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
540
      cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
Lines 528-534 c Link Here
528
      save
554
      save
529
c
555
c
530
      character *(*) name
556
      character *(*) name
531
      integer fid,numdt,numit,entype,geotype,datype,cret
557
      integer*8 fid
558
      integer numdt,numit,entype,geotype,datype,cret
532
      integer cmode,chgt,tsf,n
559
      integer cmode,chgt,tsf,n
533
      integer mmhfnme
560
      integer mmhfnme
534
c
561
c
Lines 553-559 c Link Here
553
      implicit none
580
      implicit none
554
      save
581
      save
555
c
582
c
556
      integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
583
      integer*8 fid
584
      integer cret,numdt,numit,n,entype,geotype,swm,cmode
557
      character *(*) name
585
      character *(*) name
558
      integer con(*)
586
      integer con(*)
559
      real*8 dt
587
      real*8 dt
Lines 574-580 c Link Here
574
      implicit none
602
      implicit none
575
      save
603
      save
576
c
604
c
577
      integer fid,cret,numdt,numit,entype,geotype,swm,cmode
605
      integer*8 fid
606
      integer cret,numdt,numit,entype,geotype,swm,cmode
578
      character *(*) name
607
      character *(*) name
579
      integer con(*)
608
      integer con(*)
580
      integer mmhfcyr
609
      integer mmhfcyr
Lines 594-600 c Link Here
594
      implicit none
623
      implicit none
595
      save
624
      save
596
c
625
c
597
      integer fid,cret,numdt,numit,n,entype,geotype,swm
626
      integer*8 fid
627
      integer cret,numdt,numit,n,entype,geotype,swm
598
      integer cmode,stmode,dim
628
      integer cmode,stmode,dim
599
      character *(*) name
629
      character *(*) name
600
      character *(*) pname
630
      character *(*) pname
Lines 617-623 c Link Here
617
      implicit none
647
      implicit none
618
      save
648
      save
619
c
649
c
620
      integer fid,cret,numdt,numit,entype,geotype,swm
650
      integer*8 fid
651
      integer cret,numdt,numit,entype,geotype,swm
621
      integer cmode,n,stmode,dim
652
      integer cmode,n,stmode,dim
622
      character *(*) name
653
      character *(*) name
623
      character *(*) pname
654
      character *(*) pname
Lines 643-649 c Link Here
643
c
674
c
644
      character *(*) name
675
      character *(*) name
645
      character *(*) pname
676
      character *(*) pname
646
      integer fid,numdt,numit,entype,geotype,datype,cret
677
      integer*8 fid
678
      integer numdt,numit,entype,geotype,datype,cret
647
      integer cmode,chgt,tsf,n,stmode,psize
679
      integer cmode,chgt,tsf,n,stmode,psize
648
      integer mmhfnep
680
      integer mmhfnep
649
c
681
c
Lines 670-676 c DEC$ ATTRIBUTES DLLEXPORT :: mmhno Link Here
670
      implicit none
702
      implicit none
671
      save
703
      save
672
c
704
c
673
      integer fid,cret,numdt,numit,swm
705
      integer*8 fid
706
      integer cret,numdt,numit,swm
674
      character *(*) name
707
      character *(*) name
675
      character *(*) nname
708
      character *(*) nname
676
      real*8 coo(*)
709
      real*8 coo(*)
Lines 695-701 c Link Here
695
      implicit none
728
      implicit none
696
      save
729
      save
697
c
730
c
698
      integer fid,cret,numdt,numit,swm,n
731
      integer*8 fid
732
      integer cret,numdt,numit,swm,n
699
      character *(*) name
733
      character *(*) name
700
      character *(*) nname
734
      character *(*) nname
701
      real*8 coo(*), dt
735
      real*8 coo(*), dt
Lines 719-725 c Link Here
719
      implicit none
753
      implicit none
720
      save
754
      save
721
c
755
c
722
      integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
756
      integer*8 fid
757
      integer cret,numdt,numit,n,entype,geotype,swm,cmode
723
      character *(*) name
758
      character *(*) name
724
      character *(*) nname
759
      character *(*) nname
725
      integer con(*)
760
      integer con(*)
Lines 745-751 c Link Here
745
      implicit none
780
      implicit none
746
      save
781
      save
747
c
782
c
748
      integer fid,cret,numdt,numit,entype,geotype,swm,cmode
783
      integer*8 fid
784
      integer cret,numdt,numit,entype,geotype,swm,cmode
749
      character *(*) name
785
      character *(*) name
750
      character *(*) nname
786
      character *(*) nname
751
      integer con(*)
787
      integer con(*)
Lines 768-774 c Link Here
768
      implicit none
804
      implicit none
769
      save
805
      save
770
c
806
c
771
      integer fid,cret,numdt,numit
807
      integer*8 fid
808
      integer cret,numdt,numit
772
      real*8 dt
809
      real*8 dt
773
      character *(*) name
810
      character *(*) name
774
      real*8 coo(*)
811
      real*8 coo(*)
Lines 789-795 c Link Here
789
      implicit none
826
      implicit none
790
      save
827
      save
791
c
828
c
792
      integer fid,cret,numdt,numit
829
      integer*8 fid
830
      integer cret,numdt,numit
793
      character *(*) name
831
      character *(*) name
794
      real*8 coo(*)
832
      real*8 coo(*)
795
      integer*8 flt(*)
833
      integer*8 flt(*)
Lines 809-815 c Link Here
809
      implicit none
847
      implicit none
810
      save
848
      save
811
c
849
c
812
      integer fid,cret,numdt,numit,entype,geotype,cmode
850
      integer*8 fid
851
      integer cret,numdt,numit,entype,geotype,cmode
813
      character *(*) name
852
      character *(*) name
814
      integer con(*)
853
      integer con(*)
815
      integer*8 flt(*)
854
      integer*8 flt(*)
Lines 831-837 c Link Here
831
      implicit none
870
      implicit none
832
      save
871
      save
833
c
872
c
834
      integer fid,cret,numdt,numit,entype,geotype,cmode
873
      integer*8 fid
874
      integer cret,numdt,numit,entype,geotype,cmode
835
      character *(*) name
875
      character *(*) name
836
      integer con(*)
876
      integer con(*)
837
      integer*8 flt(*)
877
      integer*8 flt(*)
Lines 852-858 c Link Here
852
      implicit none
892
      implicit none
853
      save
893
      save
854
c
894
c
855
      integer fid,cret,numdt,numit,isize,entype,cmode
895
      integer*8 fid
896
      integer cret,numdt,numit,isize,entype,cmode
856
      character *(*) name
897
      character *(*) name
857
      integer con(*), index(*)
898
      integer con(*), index(*)
858
      real*8 dt
899
      real*8 dt
Lines 873-879 c Link Here
873
      implicit none
914
      implicit none
874
      save
915
      save
875
c
916
c
876
      integer fid,cret,numdt,numit,entype,cmode
917
      integer*8 fid
918
      integer cret,numdt,numit,entype,cmode
877
      character *(*) name
919
      character *(*) name
878
      integer con(*), index(*)
920
      integer con(*), index(*)
879
      integer mmhfpgr
921
      integer mmhfpgr
Lines 893-899 c Link Here
893
      implicit none
935
      implicit none
894
      save
936
      save
895
c
937
c
896
      integer fid,cret,numdt,numit,fisize,nisize,entype,cmode
938
      integer*8 fid
939
      integer cret,numdt,numit,fisize,nisize,entype,cmode
897
      character *(*) name
940
      character *(*) name
898
      integer con(*), findex(*), nindex(*) 
941
      integer con(*), findex(*), nindex(*) 
899
      real*8 dt
942
      real*8 dt
Lines 914-920 c Link Here
914
      implicit none
957
      implicit none
915
      save
958
      save
916
c
959
c
917
      integer fid,cret,numdt,numit,entype,cmode
960
      integer*8 fid
961
      integer cret,numdt,numit,entype,cmode
918
      character *(*) name
962
      character *(*) name
919
      integer con(*), findex(*), nindex(*) 
963
      integer con(*), findex(*), nindex(*) 
920
      integer mmhfphr
964
      integer mmhfphr
Lines 934-940 c Link Here
934
      implicit none
978
      implicit none
935
      save
979
      save
936
c
980
c
937
      integer fid,cret,numdt, numit,n,entype,geotype
981
      integer*8 fid
982
      integer cret,numdt, numit,n,entype,geotype
938
      character *(*) name
983
      character *(*) name
939
      integer num(*)
984
      integer num(*)
940
      integer mmhfgnw
985
      integer mmhfgnw
Lines 954-960 c Link Here
954
      implicit none
999
      implicit none
955
      save
1000
      save
956
c
1001
c
957
      integer fid,cret,numdt, numit,entype,geotype
1002
      integer*8 fid
1003
      integer cret,numdt, numit,entype,geotype
958
      character *(*) name
1004
      character *(*) name
959
      integer num(*)
1005
      integer num(*)
960
      integer mmhfgnr
1006
      integer mmhfgnr
Lines 974-980 c Link Here
974
      implicit none
1020
      implicit none
975
      save
1021
      save
976
c
1022
c
977
      integer fid,cret,numdt1,numit1,numdt2,numit2
1023
      integer*8 fid
1024
      integer cret,numdt1,numit1,numdt2,numit2
978
      character *(*) name
1025
      character *(*) name
979
      real*8 dt2
1026
      real*8 dt2
980
      integer mmhfcsc
1027
      integer mmhfcsc
Lines 993-999 c Link Here
993
      implicit none
1040
      implicit none
994
      save
1041
      save
995
c
1042
c
996
      integer fid,cret,numdt,numit,csit
1043
      integer*8 fid
1044
      integer cret,numdt,numit,csit
997
      character *(*) name
1045
      character *(*) name
998
      real*8 dt
1046
      real*8 dt
999
      integer mmhfcsi
1047
      integer mmhfcsi
Lines 1011-1017 c Link Here
1011
      implicit none
1059
      implicit none
1012
      save
1060
      save
1013
c
1061
c
1014
      integer fid,cret,numdt,numit
1062
      integer*8 fid
1063
      integer cret,numdt,numit
1015
      character *(*) name
1064
      character *(*) name
1016
      real*8 dt
1065
      real*8 dt
1017
      integer mmhfcsr
1066
      integer mmhfcsr
Lines 1029-1035 c Link Here
1029
      implicit none
1078
      implicit none
1030
      save
1079
      save
1031
c
1080
c
1032
      integer fid,cret,stype
1081
      integer*8 fid
1082
      integer cret,stype
1033
      character *(*) name
1083
      character *(*) name
1034
      integer mmhfstr
1084
      integer mmhfstr
1035
c
1085
c
Lines 1049-1055 c Link Here
1049
      save
1099
      save
1050
c
1100
c
1051
      character *(*) name,aname
1101
      character *(*) name,aname
1052
      integer fid,numdt,numit,geotype,cret
1102
      integer*8 fid
1103
      integer numdt,numit,geotype,cret
1053
      integer n
1104
      integer n
1054
      real*8 val(*)
1105
      real*8 val(*)
1055
      integer mmhfraw
1106
      integer mmhfraw
Lines 1071-1077 c Link Here
1071
      save
1122
      save
1072
c
1123
c
1073
      character *(*) name,aname
1124
      character *(*) name,aname
1074
      integer fid,numdt,numit,geotype,cret
1125
      integer*8 fid
1126
      integer numdt,numit,geotype,cret
1075
      integer n
1127
      integer n
1076
      integer val(*)
1128
      integer val(*)
1077
      integer mmhfiaw
1129
      integer mmhfiaw
Lines 1093-1099 c Link Here
1093
      save
1145
      save
1094
c
1146
c
1095
      character *(*) name,aname
1147
      character *(*) name,aname
1096
      integer fid,numdt,numit,geotype,cret
1148
      integer*8 fid
1149
      integer numdt,numit,geotype,cret
1097
      integer n
1150
      integer n
1098
      character *(*) val
1151
      character *(*) val
1099
      integer mmhfsaw
1152
      integer mmhfsaw
Lines 1115-1121 c Link Here
1115
      save
1168
      save
1116
c
1169
c
1117
      character *(*) name,aname
1170
      character *(*) name,aname
1118
      integer fid,numdt,numit,geotype,cret
1171
      integer*8 fid
1172
      integer numdt,numit,geotype,cret
1119
      real*8 val(*)
1173
      real*8 val(*)
1120
      integer mmhfrar
1174
      integer mmhfrar
1121
c
1175
c
Lines 1135-1141 c Link Here
1135
      save
1189
      save
1136
c
1190
c
1137
      character *(*) name,aname
1191
      character *(*) name,aname
1138
      integer fid,numdt,numit,geotype,cret
1192
      integer*8 fid
1193
      integer numdt,numit,geotype,cret
1139
      integer val(*)
1194
      integer val(*)
1140
      integer mmhfiar
1195
      integer mmhfiar
1141
c
1196
c
Lines 1155-1161 c Link Here
1155
      save
1210
      save
1156
c
1211
c
1157
      character *(*) name,aname
1212
      character *(*) name,aname
1158
      integer fid,numdt,numit,geotype,cret
1213
      integer*8 fid
1214
      integer numdt,numit,geotype,cret
1159
      integer n
1215
      integer n
1160
      character *(*) val
1216
      character *(*) val
1161
      integer mmhfsar
1217
      integer mmhfsar
Lines 1175-1181 c Link Here
1175
      implicit none
1231
      implicit none
1176
      save
1232
      save
1177
c
1233
c
1178
      integer fid,cret,numdt,numit,entype,geotype,it
1234
      integer*8 fid
1235
      integer cret,numdt,numit,entype,geotype,it
1179
      character *(*) name, geoname
1236
      character *(*) name, geoname
1180
      integer mmhfeni
1237
      integer mmhfeni
1181
c
1238
c
Lines 1194-1200 c Link Here
1194
      implicit none
1251
      implicit none
1195
      save
1252
      save
1196
c
1253
c
1197
      integer fid,cret,numdt,numit
1254
      integer*8 fid
1255
      integer cret,numdt,numit
1198
      real*8 dt
1256
      real*8 dt
1199
      character *(*) name
1257
      character *(*) name
1200
      real*8 tsf(*)
1258
      real*8 tsf(*)
Lines 1214-1220 c Link Here
1214
      implicit none
1272
      implicit none
1215
      save
1273
      save
1216
c
1274
c
1217
      integer fid,cret,numdt,numit
1275
      integer*8 fid
1276
      integer cret,numdt,numit
1218
      character *(*) name
1277
      character *(*) name
1219
      real*8 tsf(*)
1278
      real*8 tsf(*)
1220
      integer mmhftfr
1279
      integer mmhftfr
Lines 1235-1241 c Link Here
1235
c
1294
c
1236
      character *(*) mname
1295
      character *(*) mname
1237
      integer  val(*)
1296
      integer  val(*)
1238
      integer fid,numdt,numit,entype,geotype
1297
      integer*8 fid
1298
      integer numdt,numit,entype,geotype
1239
      integer dtype,n,cret
1299
      integer dtype,n,cret
1240
      integer mmhfaaw
1300
      integer mmhfaaw
1241
      integer*8 flt(*)
1301
      integer*8 flt(*)
Lines 1257-1263 c Link Here
1257
c
1317
c
1258
      character *(*) mname
1318
      character *(*) mname
1259
      integer  val(*)
1319
      integer  val(*)
1260
      integer fid,numdt,numit,entype,geotype
1320
      integer*8 fid
1321
      integer numdt,numit,entype,geotype
1261
      integer dtype,n,cret
1322
      integer dtype,n,cret
1262
      integer mmhfaar
1323
      integer mmhfaar
1263
      integer*8 flt(*)
1324
      integer*8 flt(*)
Lines 1279-1285 c Link Here
1279
c
1340
c
1280
      character *(*) mname
1341
      character *(*) mname
1281
      character *(*) val
1342
      character *(*) val
1282
      integer fid,numdt,numit,entype,geotype
1343
      integer*8 fid
1344
      integer numdt,numit,entype,geotype
1283
      integer dtype,n,cret
1345
      integer dtype,n,cret
1284
      integer mmhfasw
1346
      integer mmhfasw
1285
      integer*8 flt(*)
1347
      integer*8 flt(*)
Lines 1301-1307 c Link Here
1301
c
1363
c
1302
      character *(*) mname
1364
      character *(*) mname
1303
      character *(*) val
1365
      character *(*) val
1304
      integer fid,numdt,numit,entype,geotype
1366
      integer*8 fid
1367
      integer numdt,numit,entype,geotype
1305
      integer dtype,n,cret
1368
      integer dtype,n,cret
1306
      integer mmhfasr
1369
      integer mmhfasr
1307
      integer*8 flt(*)
1370
      integer*8 flt(*)
(-)med-3.3.1_SRC/src/fi/medparameter.f (-9 / +18 lines)
Lines 22-28 c Link Here
22
      save
22
      save
23
c     
23
c     
24
      character *(*) name, des, dtunit
24
      character *(*) name, des, dtunit
25
      integer fid, cret,  type
25
      integer*8 fid
26
      integer cret,  type
26
      integer mprfcre
27
      integer mprfcre
27
c
28
c
28
      cret = mprfcre(fid,name,len(name),type,des,len(des),
29
      cret = mprfcre(fid,name,len(name),type,des,len(des),
Lines 39-45 c Link Here
39
      implicit none
40
      implicit none
40
      save
41
      save
41
      character*(*) name
42
      character*(*) name
42
      integer fid,numdt,numit,cret
43
      integer*8 fid
44
      integer numdt,numit,cret
43
      real*8 dt,val
45
      real*8 dt,val
44
      integer mprfrvw
46
      integer mprfrvw
45
c
47
c
Lines 56-62 c Link Here
56
      implicit none
58
      implicit none
57
      save
59
      save
58
      character*(*) name
60
      character*(*) name
59
      integer fid,numdt,numit,cret
61
      integer*8 fid
62
      integer numdt,numit,cret
60
      real*8 dt
63
      real*8 dt
61
      integer val
64
      integer val
62
      integer mprfivw
65
      integer mprfivw
Lines 74-80 c Link Here
74
      implicit none
77
      implicit none
75
      save
78
      save
76
      character*(*) name
79
      character*(*) name
77
      integer fid,numdt,numit,cret
80
      integer*8 fid
81
      integer numdt,numit,cret
78
      real*8 val
82
      real*8 val
79
      integer mprfrvr
83
      integer mprfrvr
80
c
84
c
Lines 91-97 c Link Here
91
      implicit none
95
      implicit none
92
      save
96
      save
93
      character*(*) name
97
      character*(*) name
94
      integer fid,numdt,numit,cret
98
      integer*8 fid
99
      integer numdt,numit,cret
95
      integer val
100
      integer val
96
      integer mprfivr
101
      integer mprfivr
97
c
102
c
Lines 107-113 c DEC$ ATTRIBUTES DLLEXPORT :: mprnp Link Here
107
c
112
c
108
      implicit none
113
      implicit none
109
      save
114
      save
110
      integer fid,n,cret
115
      integer*8 fid
116
      integer n,cret
111
      integer mprfnpr
117
      integer mprfnpr
112
c
118
c
113
      n = mprfnpr(fid)
119
      n = mprfnpr(fid)
Lines 131-137 c Link Here
131
      save
137
      save
132
c
138
c
133
      character *(*) name, dtunit, desc
139
      character *(*) name, dtunit, desc
134
      integer fid, it, cret,  type, nstep
140
      integer*8 fid
141
      integer it, cret,  type, nstep
135
      integer mprfpri 
142
      integer mprfpri 
136
c
143
c
137
      cret = mprfpri(fid, it, name, type,
144
      cret = mprfpri(fid, it, name, type,
Lines 150-156 c Link Here
150
      save
157
      save
151
c
158
c
152
      character *(*) name, dtunit, desc
159
      character *(*) name, dtunit, desc
153
      integer fid, cret,  type, nstep
160
      integer*8 fid
161
      integer cret,  type, nstep
154
      integer mprfpin 
162
      integer mprfpin 
155
c
163
c
156
      cret = mprfpin(fid, name, len(name), type,
164
      cret = mprfpin(fid, name, len(name), type,
Lines 169-175 c Link Here
169
      save
177
      save
170
c
178
c
171
      character *(*) name
179
      character *(*) name
172
      integer fid, it, cret, numdt, numit
180
      integer*8 fid
181
      integer it, cret, numdt, numit
173
      real*8 dt
182
      real*8 dt
174
      integer mprfcsi 
183
      integer mprfcsi 
175
c
184
c
(-)med-3.3.1_SRC/src/fi/medprofile.f (-5 / +10 lines)
Lines 24-30 c Link Here
24
      save
24
      save
25
      character*(*) pname
25
      character*(*) pname
26
      integer profil(*)
26
      integer profil(*)
27
      integer fid,cret,psize
27
      integer*8 fid
28
      integer cret,psize
28
      integer mpffprw
29
      integer mpffprw
29
c
30
c
30
      cret = mpffprw(fid,pname,len(pname),psize,profil)
31
      cret = mpffprw(fid,pname,len(pname),psize,profil)
Lines 39-45 c DEC$ ATTRIBUTES DLLEXPORT :: mpfnp Link Here
39
c
40
c
40
      implicit none
41
      implicit none
41
      save
42
      save
42
      integer fid,n,cret
43
      integer*8 fid
44
      integer n,cret
43
      integer mpffnpf
45
      integer mpffnpf
44
c
46
c
45
      n = mpffnpf(fid)
47
      n = mpffnpf(fid)
Lines 62-68 c Link Here
62
      save
64
      save
63
c
65
c
64
      character *(*) pname
66
      character *(*) pname
65
      integer fid, psize, it, cret
67
      integer*8 fid
68
      integer psize, it, cret
66
      integer mpffpfi
69
      integer mpffpfi
67
c
70
c
68
      cret = mpffpfi(fid, it, pname, psize)
71
      cret = mpffpfi(fid, it, pname, psize)
Lines 79-85 c Link Here
79
      save
82
      save
80
c
83
c
81
      character *(*) pname
84
      character *(*) pname
82
      integer fid, psize, cret
85
      integer*8 fid
86
      integer psize, cret
83
      integer mpffpsn
87
      integer mpffpsn
84
c
88
c
85
      cret = mpffpsn(fid, pname, len(pname), psize)
89
      cret = mpffpsn(fid, pname, len(pname), psize)
Lines 96-102 c Link Here
96
      save
100
      save
97
      character*(*) pname
101
      character*(*) pname
98
      integer profil(*)
102
      integer profil(*)
99
      integer fid,cret
103
      integer*8 fid
104
      integer cret
100
      integer mpffprr
105
      integer mpffprr
101
c
106
c
102
      cret = mpffprr(fid,pname,len(pname),profil)
107
      cret = mpffprr(fid,pname,len(pname),profil)
(-)med-3.3.1_SRC/src/fi/medsupport.f (-6 / +12 lines)
Lines 23-29 c Link Here
23
      save
23
      save
24
c     
24
c     
25
      character *(*) maa, des, aname, aunit
25
      character *(*) maa, des, aname, aunit
26
      integer fid, cret, atype, sdim, mdim
26
      integer*8 fid
27
      integer cret, atype, sdim, mdim
27
      integer msmfcre
28
      integer msmfcre
28
c
29
c
29
      cret = msmfcre(fid, maa, len(maa), sdim, mdim,
30
      cret = msmfcre(fid, maa, len(maa), sdim, mdim,
Lines 41-47 c Link Here
41
      implicit none
42
      implicit none
42
      save
43
      save
43
c
44
c
44
      integer fid, n, cret
45
      integer*8 fid
46
      integer n, cret
45
      integer msmfnsm 
47
      integer msmfnsm 
46
c
48
c
47
      n = msmfnsm(fid)
49
      n = msmfnsm(fid)
Lines 65-71 c Link Here
65
      save
67
      save
66
c
68
c
67
      character *(*) name, desc, aname, aunit
69
      character *(*) name, desc, aname, aunit
68
      integer fid, sdim, mdim, atype, cret
70
      integer*8 fid
71
      integer sdim, mdim, atype, cret
69
      integer msmfsni 
72
      integer msmfsni 
70
c
73
c
71
      cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
74
      cret = msmfsni(fid, name, len(name), sdim, mdim, desc,
Lines 84-90 c Link Here
84
      save
87
      save
85
c
88
c
86
      character *(*) name, desc, aname, aunit
89
      character *(*) name, desc, aname, aunit
87
      integer fid, sdim, mdim, atype, it, cret
90
      integer*8 fid
91
      integer sdim, mdim, atype, it, cret
88
      integer msmfsmi 
92
      integer msmfsmi 
89
c
93
c
90
      cret = msmfsmi(fid, it, name, sdim, mdim, desc,
94
      cret = msmfsmi(fid, it, name, sdim, mdim, desc,
Lines 101-107 c Link Here
101
      implicit none
105
      implicit none
102
      save
106
      save
103
c
107
c
104
      integer fid,it,naxis,cret
108
      integer*8 fid
109
      integer it,naxis,cret
105
      integer msmfnax
110
      integer msmfnax
106
c
111
c
107
      naxis =  msmfnax(fid,it)
112
      naxis =  msmfnax(fid,it)
Lines 122-128 c Link Here
122
      implicit none
127
      implicit none
123
      save
128
      save
124
c
129
c
125
      integer fid,naxis,cret
130
      integer*8 fid
131
      integer naxis,cret
126
      character *(*) name
132
      character *(*) name
127
      integer msmfnan
133
      integer msmfnan
128
c
134
c
(-)med-3.3.1_SRC/src/fi/medparfile.f (-2 / +2 lines)
Lines 21-30 c Link Here
21
      implicit none
21
      implicit none
22
      save
22
      save
23
      character *(*) name
23
      character *(*) name
24
      integer fid
24
      integer*8 fid
25
      integer access
25
      integer access
26
      integer com,info,cret
26
      integer com,info,cret
27
      integer mpffope
27
      integer*8 mpffope
28
c
28
c
29
      fid = mpffope(name, access, len(name), com, info)
29
      fid = mpffope(name, access, len(name), com, info)
30
      if (fid.lt.0) then
30
      if (fid.lt.0) then
(-)med-3.3.1_SRC/tests/f/2.3.1v3.0/test2.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C
29
C
30
      integer cret,ret
30
      integer cret,ret
31
      integer fid
31
      integer*8 fid
32
      character*200 des
32
      character*200 des
33
      integer hdfok, medok
33
      integer hdfok, medok
34
      character*16 nomcoo(2)
34
      character*16 nomcoo(2)
(-)med-3.3.1_SRC/tests/f/2.3.2v3.0/test2.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C
29
C
30
      integer cret,ret
30
      integer cret,ret
31
      integer fid
31
      integer*8 fid
32
      character*200 des
32
      character*200 des
33
      integer hdfok, medok
33
      integer hdfok, medok
34
      character*16 nomcoo(2)
34
      character*16 nomcoo(2)
(-)med-3.3.1_SRC/tests/f/2.3.6/test1.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C     
29
C     
30
      integer cret
30
      integer cret
31
      integer fid
31
      integer*8 fid
32
      character*200 des
32
      character*200 des
33
      parameter (des = "Ceci est un courte description"
33
      parameter (des = "Ceci est un courte description"
34
     1     // " du fichier test1.med")  
34
     1     // " du fichier test1.med")  
(-)med-3.3.1_SRC/tests/f/2.3.6/test19.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C
29
C
30
      integer cret
30
      integer cret
31
      integer fid
31
      integer*8 fid
32
      character *32 maa
32
      character *32 maa
33
      parameter (maa = "maillage_test19")
33
      parameter (maa = "maillage_test19")
34
      character*200 des
34
      character*200 des
(-)med-3.3.1_SRC/tests/f/2.3.6/test2.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C
29
C
30
      integer cret,ret
30
      integer cret,ret
31
      integer fid
31
      integer*8 fid
32
      character*200 des
32
      character*200 des
33
33
34
C  ** verifie que le fichier test1.med est au bon format **
34
C  ** verifie que le fichier test1.med est au bon format **
(-)med-3.3.1_SRC/tests/f/2.3v3.0/test2.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C
29
C
30
      integer cret,ret
30
      integer cret,ret
31
      integer fid
31
      integer*8 fid
32
      character*200 des
32
      character*200 des
33
      integer hdfok, medok
33
      integer hdfok, medok
34
      character*16 nomcoo(2)
34
      character*16 nomcoo(2)
(-)med-3.3.1_SRC/tests/f/test1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*255 fname
30
      character*255 fname
31
      character*200 des
31
      character*200 des
32
      parameter (des = "Ceci est un courte description"
32
      parameter (des = "Ceci est un courte description"
(-)med-3.3.1_SRC/tests/f/test2.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C
29
C
30
      integer cret,ret
30
      integer cret,ret
31
      integer fid
31
      integer*8 fid
32
      character*200 des
32
      character*200 des
33
      integer hdfok, medok
33
      integer hdfok, medok
34
      integer fexist, accok
34
      integer fexist, accok
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfile_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDfile_1.med")  
31
      parameter (fname = "Unittest_MEDfile_1.med")  
32
      character*200 cmt1
32
      character*200 cmt1
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDfilter_1.med")
31
      parameter (fname = "Unittest_MEDfilter_1.med")
32
      integer nflt
32
      integer nflt
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDfilter_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDfilter_2.med")
31
      parameter (fname = "Unittest_MEDfilter_2.med")
32
      integer nflt
32
      integer nflt
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDinterp_1.med")
31
      parameter (fname = "Unittest_MEDinterp_1.med")
32
      character *64 name1
32
      character *64 name1
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDinterp_1.med")
31
      parameter (fname = "Unittest_MEDinterp_1.med")
32
      character *64 name1
32
      character *64 name1
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDinterp_3.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDinterp_1.med")
31
      parameter (fname = "Unittest_MEDinterp_1.med")
32
      integer n,ni
32
      integer n,ni
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDlink_1.med")
31
      parameter (fname = "Unittest_MEDlink_1.med")
32
      character*64 mname1, mname2,lname1,lname2
32
      character*64 mname1, mname2,lname1,lname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDlink_1.med")
31
      parameter (fname = "Unittest_MEDlink_1.med")
32
      character*64 mname1, mname2,lname1,lname2
32
      character*64 mname1, mname2,lname1,lname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlink_3.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDlink_1.med")
31
      parameter (fname = "Unittest_MEDlink_1.med")
32
      character*64 mname1, mname2,lname1,lname2,mname
32
      character*64 mname1, mname2,lname1,lname2,mname
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname,lname,giname,isname
30
      character*64 fname,lname,giname,isname
31
      parameter (fname = "Unittest_MEDlocalization_1.med")
31
      parameter (fname = "Unittest_MEDlocalization_1.med")
32
      parameter (lname = "Localization name")
32
      parameter (lname = "Localization name")
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname,lname1,giname1,isname1
30
      character*64  fname,lname1,giname1,isname1
31
      character*64  giname,isname
31
      character*64  giname,isname
32
      parameter (fname="Unittest_MEDlocalization_1.med")  
32
      parameter (fname="Unittest_MEDlocalization_1.med")  
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDlocalization_3.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname,lname1,giname1,isname1
30
      character*64  fname,lname1,giname1,isname1
31
      character*64  giname,isname
31
      character*64  giname,isname
32
      parameter (fname="Unittest_MEDlocalization_1.med")  
32
      parameter (fname="Unittest_MEDlocalization_1.med")  
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDparameter_1.med")
31
      parameter (fname = "Unittest_MEDparameter_1.med")
32
      character*64 pname1,pname2
32
      character*64 pname1,pname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDparameter_1.med")
31
      parameter (fname = "Unittest_MEDparameter_1.med")
32
      character*64 pname1,pname2,pname
32
      character*64 pname1,pname2,pname
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDparameter_3.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64 fname
30
      character*64 fname
31
      parameter (fname = "Unittest_MEDparameter_1.med")
31
      parameter (fname = "Unittest_MEDparameter_1.med")
32
      character*64 pname1,pname2,pname
32
      character*64 pname1,pname2,pname
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname, pname1, pname2
30
      character*64  fname, pname1, pname2
31
      parameter (fname="Unittest_MEDprofile_1.med")  
31
      parameter (fname="Unittest_MEDprofile_1.med")  
32
      parameter (pname1="Profile name1")
32
      parameter (pname1="Profile name1")
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDprofile_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname, pname1, pname2
30
      character*64  fname, pname1, pname2
31
      parameter (fname="Unittest_MEDprofile_1.med")  
31
      parameter (fname="Unittest_MEDprofile_1.med")  
32
      parameter (pname1="Profile name1")
32
      parameter (pname1="Profile name1")
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_1.med")
31
      parameter (fname = "Unittest_MEDstructElement_1.med")
32
      character*64  mname1, mname2, mname3
32
      character*64  mname1, mname2, mname3
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_10.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_9.med")
31
      parameter (fname = "Unittest_MEDstructElement_9.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_11.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_9.med")
31
      parameter (fname = "Unittest_MEDstructElement_9.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_1.med")
31
      parameter (fname = "Unittest_MEDstructElement_1.med")
32
      character*64  mname1, mname2, mname3
32
      character*64  mname1, mname2, mname3
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_3.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_1.med")
31
      parameter (fname = "Unittest_MEDstructElement_1.med")
32
      character*64  mname1, mname2, mname3
32
      character*64  mname1, mname2, mname3
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_4.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_4.med")
31
      parameter (fname = "Unittest_MEDstructElement_4.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_5.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_4.med")
31
      parameter (fname = "Unittest_MEDstructElement_4.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_6.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_4.med")
31
      parameter (fname = "Unittest_MEDstructElement_4.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_7.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_7.med")
31
      parameter (fname = "Unittest_MEDstructElement_7.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_8.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_7.med")
31
      parameter (fname = "Unittest_MEDstructElement_7.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDstructElement_9.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDstructElement_9.med")
31
      parameter (fname = "Unittest_MEDstructElement_9.med")
32
      character*64  mname2
32
      character*64  mname2
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_1.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDsupportMesh_1.med")
31
      parameter (fname = "Unittest_MEDsupportMesh_1.med")
32
      character*64 smname1
32
      character*64 smname1
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_2.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDsupportMesh_1.med")
31
      parameter (fname = "Unittest_MEDsupportMesh_1.med")
32
      character*64 smname1
32
      character*64 smname1
(-)med-3.3.1_SRC/tests/unittests/f/Unittest_MEDsupportMesh_3.f (-1 / +1 lines)
Lines 26-32 C Link Here
26
C
26
C
27
C     
27
C     
28
      integer cret
28
      integer cret
29
      integer fid
29
      integer*8 fid
30
      character*64  fname
30
      character*64  fname
31
      parameter (fname = "Unittest_MEDsupportMesh_1.med")
31
      parameter (fname = "Unittest_MEDsupportMesh_1.med")
32
      character*64 smname1
32
      character*64 smname1
(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_1.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C
29
C
30
      integer cret
30
      integer cret
31
      integer fid
31
      integer*8 fid
32
C     component number, node number
32
C     component number, node number
33
      integer ncompo, nnodes
33
      integer ncompo, nnodes
34
C     triangular elements number, quadrangular elements number
34
C     triangular elements number, quadrangular elements number
(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDfield_4.f (-1 / +1 lines)
Lines 27-33 C Link Here
27
C
27
C
28
C     
28
C     
29
      integer cret
29
      integer cret
30
      integer fid
30
      integer*8 fid
31
C     component number, node number
31
C     component number, node number
32
      integer ncompo
32
      integer ncompo
33
C     triangular elements number, quadrangular elements number
33
C     triangular elements number, quadrangular elements number
(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_1.f (-1 / +1 lines)
Lines 29-35 C Link Here
29
C
29
C
30
C
30
C
31
      integer cret
31
      integer cret
32
      integer fid
32
      integer*8 fid
33
      integer sdim, mdim, stype, mtype, atype, nnode
33
      integer sdim, mdim, stype, mtype, atype, nnode
34
      integer ntria, nquad
34
      integer ntria, nquad
35
      integer fnum, ngro
35
      integer fnum, ngro
(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_10.f (-1 / +1 lines)
Lines 28-34 C Link Here
28
C
28
C
29
C     
29
C     
30
      integer cret
30
      integer cret
31
      integer fid
31
      integer*8 fid
32
C     space dim, mesh dim      
32
C     space dim, mesh dim      
33
      integer sdim, mdim
33
      integer sdim, mdim
34
C     axis name, unit name
34
C     axis name, unit name
(-)med-3.3.1_SRC/tests/usecases/f/UsesCase_MEDmesh_4.f (-1 / +1 lines)
Lines 27-33 C Link Here
27
C
27
C
28
C     
28
C     
29
      integer cret
29
      integer cret
30
      integer fid
30
      integer*8 fid
31
      integer sdim, mdim, stype, mtype, atype
31
      integer sdim, mdim, stype, mtype, atype
32
      integer axis, isize, entype, nquad4
32
      integer axis, isize, entype, nquad4
33
      character*200 mdesc
33
      character*200 mdesc
(-)med-3.3.1_SRC/src/2.3.6/fi/famf.f (-7 / +14 lines)
Lines 22-28 c Link Here
22
      implicit none
22
      implicit none
23
      save
23
      save
24
c 
24
c 
25
      integer fid,num,attid(*),attval(*),natt,ngro,cret
25
      integer*8 fid
26
      integer num,attid(*),attval(*),natt,ngro,cret
26
      character *(*) maa,fam,attdes
27
      character *(*) maa,fam,attdes
27
      character *80 gro(*)
28
      character *80 gro(*)
28
      integer edffamc
29
      integer edffamc
Lines 40-46 c Link Here
40
      implicit none
41
      implicit none
41
      save
42
      save
42
c
43
c
43
      integer fid,fam(*),n,typent,typgeo,cret
44
      integer*8 fid
45
      integer fam(*),n,typent,typgeo,cret
44
      character *(*) maa
46
      character *(*) maa
45
      integer edffame
47
      integer edffame
46
c      
48
c      
Lines 55-61 c Link Here
55
      implicit none
57
      implicit none
56
      save
58
      save
57
c
59
c
58
      integer fid,fam(*),n,typent,typgeo,cret
60
      integer*8 fid
61
      integer fam(*),n,typent,typgeo,cret
59
      character *(*) maa
62
      character *(*) maa
60
      integer edffaml
63
      integer edffaml
61
c      
64
c      
Lines 71-77 c Link Here
71
      implicit none
74
      implicit none
72
      save
75
      save
73
c 
76
c 
74
      integer fid,num,attid(*),attval(*),natt,ngro,cret,ind
77
      integer*8 fid
78
      integer num,attid(*),attval(*),natt,ngro,cret,ind
75
      character *(*) maa,fam,attdes,gro
79
      character *(*) maa,fam,attdes,gro
76
      integer edffami
80
      integer edffami
77
c
81
c
Lines 88-94 c Link Here
88
      implicit none
92
      implicit none
89
      save
93
      save
90
c
94
c
91
      integer fid,n,cret
95
      integer*8 fid
96
      integer n,cret
92
      character *(*) maa
97
      character *(*) maa
93
      integer edfnfam
98
      integer edfnfam
94
c
99
c
Lines 109-115 c Link Here
109
      implicit none
114
      implicit none
110
      save
115
      save
111
c
116
c
112
      integer fid,ind,n,cret
117
      integer*8 fid
118
      integer ind,n,cret
113
      character *(*) maa
119
      character *(*) maa
114
      integer edfngro
120
      integer edfngro
115
c
121
c
Lines 130-136 c Link Here
130
      implicit none
136
      implicit none
131
      save
137
      save
132
c
138
c
133
      integer fid,ind,n,cret
139
      integer*8 fid
140
      integer ind,n,cret
134
      character *(*) maa
141
      character *(*) maa
135
      integer edfnatt
142
      integer edfnatt
136
c
143
c
(-)med-3.3.1_SRC/src/2.3.6/fi/resf_r.f (-2 / +4 lines)
Lines 29-35 c Link Here
29
c      
29
c      
30
      character *(*) cha,maa,profil,locname
30
      character *(*) cha,maa,profil,locname
31
      character*(*) dtunit
31
      character*(*) dtunit
32
      integer fid,n,pflmod,typent,typgeo,cret
32
      integer*8 fid
33
      integer n,pflmod,typent,typgeo,cret
33
      integer interlace,numco,numdt,numo
34
      integer interlace,numco,numdt,numo
34
      real*8 dt
35
      real*8 dt
35
      real*8 val(*)
36
      real*8 val(*)
Lines 57-63 c Link Here
57
      save
58
      save
58
c      
59
c      
59
      character *(*) cha,maa,locname,profil
60
      character *(*) cha,maa,locname,profil
60
      integer fid,typent,typgeo,cret
61
      integer*8 fid
62
      integer typent,typgeo,cret
61
      integer interlace,numco,numdt,numo,pflmod
63
      integer interlace,numco,numdt,numo,pflmod
62
      integer edfchal
64
      integer edfchal
63
      real*8 val(*)
65
      real*8 val(*)
(-)med-3.3.1_SRC/src/fi/medfilter.f (-2 / +4 lines)
Lines 25-31 c Link Here
25
      save
25
      save
26
      character*(*) pname 
26
      character*(*) pname 
27
      integer flta(*)
27
      integer flta(*)
28
      integer fid,nent,nvent,ncent
28
      integer*8 fid
29
      integer nent,nvent,ncent
29
      integer stm,fltas
30
      integer stm,fltas
30
      integer*8 flt
31
      integer*8 flt
31
      integer cret,cs,swm
32
      integer cret,cs,swm
Lines 79-85 c Link Here
79
      implicit none
80
      implicit none
80
      save
81
      save
81
      character*(*) pname 
82
      character*(*) pname 
82
      integer fid,nent,nvent,ncent
83
      integer*8 fid
84
      integer nent,nvent,ncent
83
      integer start,stride,count,bsize,lbsize
85
      integer start,stride,count,bsize,lbsize
84
      integer stm
86
      integer stm
85
      integer*8 flt
87
      integer*8 flt
(-)med-3.3.1_SRC/src/fi/medstructelement.f (-20 / +40 lines)
Lines 22-28 c Link Here
22
      implicit none
22
      implicit none
23
      save
23
      save
24
      character*(*) mname,smname
24
      character*(*) mname,smname
25
      integer fid,cret,mdim,setype,sgtype,etype
25
      integer*8 fid
26
      integer cret,mdim,setype,sgtype,etype
26
      integer msefcre
27
      integer msefcre
27
c
28
c
28
      etype = msefcre(fid,mname,len(mname),mdim,
29
      etype = msefcre(fid,mname,len(mname),mdim,
Lines 44-50 c DEC$ ATTRIBUTES DLLEXPORT :: msens Link Here
44
c
45
c
45
      implicit none
46
      implicit none
46
      save
47
      save
47
      integer fid,n,cret
48
      integer*8 fid
49
      integer n,cret
48
      integer msefnse
50
      integer msefnse
49
c
51
c
50
      n = msefnse(fid)
52
      n = msefnse(fid)
Lines 68-74 c Link Here
68
      implicit none
70
      implicit none
69
      save
71
      save
70
      character*(*) mname,smname
72
      character*(*) mname,smname
71
      integer fid,cret,mdim,setype,sgtype,it
73
      integer*8 fid
74
      integer cret,mdim,setype,sgtype,it
72
      integer snnode,sncell,ncatt,ap,nvatt,mgtype
75
      integer snnode,sncell,ncatt,ap,nvatt,mgtype
73
      integer msefsei
76
      integer msefsei
74
c
77
c
Lines 89-95 c Link Here
89
      implicit none
92
      implicit none
90
      save
93
      save
91
      character*(*) mname,smname
94
      character*(*) mname,smname
92
      integer fid,cret,mdim,setype,sgtype
95
      integer*8 fid
96
      integer cret,mdim,setype,sgtype
93
      integer snnode,sncell,ncatt,ap,nvatt,mgtype
97
      integer snnode,sncell,ncatt,ap,nvatt,mgtype
94
      integer msefsin
98
      integer msefsin
95
c
99
c
Lines 108-114 c Link Here
108
      implicit none
112
      implicit none
109
      save
113
      save
110
      character*(*) mname
114
      character*(*) mname
111
      integer fid,cret,mgtype
115
      integer*8 fid
116
      integer cret,mgtype
112
      integer msefsen
117
      integer msefsen
113
c
118
c
114
      cret = msefsen(fid,mgtype,mname)
119
      cret = msefsen(fid,mgtype,mname)
Lines 124-130 c Link Here
124
      implicit none
129
      implicit none
125
      save
130
      save
126
      character*(*) mname
131
      character*(*) mname
127
      integer fid,gtype,cret
132
      integer*8 fid
133
      integer gtype,cret
128
      integer msefsgt
134
      integer msefsgt
129
c
135
c
130
      gtype = msefsgt(fid,mname,len(mname))
136
      gtype = msefsgt(fid,mname,len(mname))
Lines 146-152 c Link Here
146
      implicit none
152
      implicit none
147
      save
153
      save
148
      character*(*) mname,aname
154
      character*(*) mname,aname
149
      integer fid,cret,atype,anc
155
      integer*8 fid
156
      integer cret,atype,anc
150
      integer msefvac
157
      integer msefvac
151
c
158
c
152
      cret = msefvac(fid,mname,len(mname),
159
      cret = msefvac(fid,mname,len(mname),
Lines 164-170 c Link Here
164
      implicit none
171
      implicit none
165
      save
172
      save
166
      character*(*) mname,aname
173
      character*(*) mname,aname
167
      integer fid,cret,atype,anc
174
      integer*8 fid
175
      integer cret,atype,anc
168
      integer msefvni
176
      integer msefvni
169
c
177
c
170
      cret = msefvni(fid,mname,len(mname),
178
      cret = msefvni(fid,mname,len(mname),
Lines 182-188 c Link Here
182
      implicit none
190
      implicit none
183
      save
191
      save
184
      character*(*) mname,aname
192
      character*(*) mname,aname
185
      integer fid,cret,atype,anc,it
193
      integer*8 fid
194
      integer cret,atype,anc,it
186
      integer msefvai
195
      integer msefvai
187
c
196
c
188
      cret = msefvai(fid,mname,len(mname),it,
197
      cret = msefvai(fid,mname,len(mname),it,
Lines 221-227 c Link Here
221
      implicit none
230
      implicit none
222
      save
231
      save
223
      character*(*) mname,aname
232
      character*(*) mname,aname
224
      integer fid,cret,atype,anc,setype
233
      integer*8 fid
234
      integer cret,atype,anc,setype
225
      real*8 val(*)
235
      real*8 val(*)
226
      integer msefraw
236
      integer msefraw
227
c
237
c
Lines 241-247 c Link Here
241
      implicit none
251
      implicit none
242
      save
252
      save
243
      character*(*) mname,aname
253
      character*(*) mname,aname
244
      integer fid,cret,atype,anc,setype
254
      integer*8 fid
255
      integer cret,atype,anc,setype
245
      integer val(*)
256
      integer val(*)
246
      integer msefiaw
257
      integer msefiaw
247
c
258
c
Lines 261-267 c Link Here
261
      implicit none
272
      implicit none
262
      save
273
      save
263
      character*(*) mname,aname
274
      character*(*) mname,aname
264
      integer fid,cret,atype,anc,setype
275
      integer*8 fid
276
      integer cret,atype,anc,setype
265
      character *(*) val
277
      character *(*) val
266
      integer msefsaw
278
      integer msefsaw
267
c
279
c
Lines 281-287 c Link Here
281
      implicit none
293
      implicit none
282
      save
294
      save
283
      character*(*) mname,aname,pname
295
      character*(*) mname,aname,pname
284
      integer fid,cret,atype,anc,setype
296
      integer*8 fid
297
      integer cret,atype,anc,setype
285
      real*8 val(*)
298
      real*8 val(*)
286
      integer msefrpw
299
      integer msefrpw
287
c
300
c
Lines 302-308 c Link Here
302
      implicit none
315
      implicit none
303
      save
316
      save
304
      character*(*) mname,aname,pname
317
      character*(*) mname,aname,pname
305
      integer fid,cret,atype,anc,setype
318
      integer*8 fid
319
      integer cret,atype,anc,setype
306
      integer val(*)
320
      integer val(*)
307
      integer msefipw
321
      integer msefipw
308
c
322
c
Lines 323-329 c Link Here
323
      implicit none
337
      implicit none
324
      save
338
      save
325
      character*(*) mname,aname,pname
339
      character*(*) mname,aname,pname
326
      integer fid,cret,atype,anc,setype
340
      integer*8 fid
341
      integer cret,atype,anc,setype
327
      character *(*) val
342
      character *(*) val
328
      integer msefspw
343
      integer msefspw
329
c
344
c
Lines 344-350 c Link Here
344
      implicit none
359
      implicit none
345
      save
360
      save
346
      character*(*) mname,aname,pname
361
      character*(*) mname,aname,pname
347
      integer fid,cret,atype,anc,setype,psize
362
      integer*8 fid
363
      integer cret,atype,anc,setype,psize
348
      integer msefcni
364
      integer msefcni
349
c
365
c
350
      cret = msefcni(fid,mname,len(mname),
366
      cret = msefcni(fid,mname,len(mname),
Lines 363-369 c Link Here
363
      implicit none
379
      implicit none
364
      save
380
      save
365
      character*(*) mname,aname,pname
381
      character*(*) mname,aname,pname
366
      integer fid,cret,atype,anc,setype,psize,it
382
      integer*8 fid
383
      integer cret,atype,anc,setype,psize,it
367
      integer msefcai
384
      integer msefcai
368
c
385
c
369
      cret = msefcai(fid,mname,len(mname),it,
386
      cret = msefcai(fid,mname,len(mname),it,
Lines 381-387 c Link Here
381
      implicit none
398
      implicit none
382
      save
399
      save
383
      character*(*) mname,aname
400
      character*(*) mname,aname
384
      integer fid,cret
401
      integer*8 fid
402
      integer cret
385
      real*8 val(*)
403
      real*8 val(*)
386
      integer msefrar
404
      integer msefrar
387
c
405
c
Lines 399-405 c Link Here
399
      implicit none
417
      implicit none
400
      save
418
      save
401
      character*(*) mname,aname
419
      character*(*) mname,aname
402
      integer fid,cret
420
      integer*8 fid
421
      integer cret
403
      integer val(*)
422
      integer val(*)
404
      integer msefiar
423
      integer msefiar
405
c
424
c
Lines 417-423 c Link Here
417
      implicit none
436
      implicit none
418
      save
437
      save
419
      character*(*) mname,aname
438
      character*(*) mname,aname
420
      integer fid,cret
439
      integer*8 fid
440
      integer cret
421
      character *(*) val
441
      character *(*) val
422
      integer msefsar
442
      integer msefsar
423
c
443
c
(-)med-3.3.1_SRC/tests/f/2.3.6/test22.f (-1 / +2 lines)
Lines 25-31 C Link Here
25
      implicit none
25
      implicit none
26
      include 'med.hf'
26
      include 'med.hf'
27
C
27
C
28
      integer fid,cret
28
      integer*8 fid
29
      integer cret
29
      character*16 dtunit
30
      character*16 dtunit
30
      character*32 nom
31
      character*32 nom
31
      character*200 desc
32
      character*200 desc
(-)med-3.3.1_SRC/tests/f/test22.f (-1 / +2 lines)
Lines 25-31 C Link Here
25
      implicit none
25
      implicit none
26
      include 'med.hf'
26
      include 'med.hf'
27
C
27
C
28
      integer fid,cret
28
      integer*8 fid
29
      integer cret
29
      character*16 dtunit
30
      character*16 dtunit
30
      character*64 nom
31
      character*64 nom
31
      character*200 desc
32
      character*200 desc
(-)med-3.3.1_SRC/src/cfi/meshcf.c (-180 / +180 lines)
Lines 151-157 From Fortran call of following C functio Link Here
151
151
152
#ifdef PPRO_NT
152
#ifdef PPRO_NT
153
med_int 
153
med_int 
154
MMHFCRE(med_int *fid, char *mname, unsigned int bidon, 
154
MMHFCRE(med_idt *fid, char *mname, unsigned int bidon, 
155
                  med_int *mnamelen, med_int * sdim, med_int * mdim, med_int *mtype,
155
                  med_int *mnamelen, med_int * sdim, med_int * mdim, med_int *mtype,
156
		  char *desc, unsigned int bidon2, med_int *desclen,
156
		  char *desc, unsigned int bidon2, med_int *desclen,
157
		  char *dtunit, unsigned int bidon3, med_int *dtunitlen,
157
		  char *dtunit, unsigned int bidon3, med_int *dtunitlen,
Lines 159-165 MMHFCRE(med_int *fid, char *mname, unsig Link Here
159
		  med_int *anamelen, char *aunit, unsigned int bidon5, med_int* aunitlen)
159
		  med_int *anamelen, char *aunit, unsigned int bidon5, med_int* aunitlen)
160
#else
160
#else
161
med_int 
161
med_int 
162
nmmhfcre(med_int *fid, char *mname, med_int *mnamelen, med_int * sdim,
162
nmmhfcre(med_idt *fid, char *mname, med_int *mnamelen, med_int * sdim,
163
	 med_int *mdim, med_int *mtype, char *desc, med_int *desclen,
163
	 med_int *mdim, med_int *mtype, char *desc, med_int *desclen,
164
	 char *dtunit, med_int *dtunitlen,
164
	 char *dtunit, med_int *dtunitlen,
165
	 med_int *stype, med_int *atype, char *aname,
165
	 med_int *stype, med_int *atype, char *aname,
Lines 206-215 nmmhfcre(med_int *fid, char *mname, med_ Link Here
206
206
207
#ifdef PPRO_NT
207
#ifdef PPRO_NT
208
med_int
208
med_int
209
MMHFNMH(med_int *fid)
209
MMHFNMH(med_idt *fid)
210
#else
210
#else
211
med_int
211
med_int
212
nmmhfnmh(med_int *fid)
212
nmmhfnmh(med_idt *fid)
213
#endif
213
#endif
214
{
214
{
215
  med_int _ret;
215
  med_int _ret;
Lines 222-231 nmmhfnmh(med_int *fid) Link Here
222
222
223
#ifdef PPRO_NT
223
#ifdef PPRO_NT
224
med_int
224
med_int
225
MMHFNAN(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen)
225
MMHFNAN(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen)
226
#else
226
#else
227
med_int
227
med_int
228
nmmhfnan(med_int *fid, char *mname, med_int *mnamelen)
228
nmmhfnan(med_idt *fid, char *mname, med_int *mnamelen)
229
#endif
229
#endif
230
{
230
{
231
  med_int _ret;
231
  med_int _ret;
Lines 245-254 nmmhfnan(med_int *fid, char *mname, med_ Link Here
245
245
246
#ifdef PPRO_NT
246
#ifdef PPRO_NT
247
med_int 
247
med_int 
248
MMHFNAX(med_int *fid, med_int *it)
248
MMHFNAX(med_idt *fid, med_int *it)
249
#else
249
#else
250
med_int 
250
med_int 
251
nmmhfnax(med_int *fid, med_int *it)
251
nmmhfnax(med_idt *fid, med_int *it)
252
#endif
252
#endif
253
{
253
{
254
  med_int _ret; 
254
  med_int _ret; 
Lines 261-267 nmmhfnax(med_int *fid, med_int *it) Link Here
261
261
262
#ifdef PPRO_NT
262
#ifdef PPRO_NT
263
med_int 
263
med_int 
264
MMHFMHI(med_int *fid, med_int *it, char*mname, unsigned int bidon, 
264
MMHFMHI(med_idt *fid, med_int *it, char*mname, unsigned int bidon, 
265
                  med_int * sdim, med_int * mdim, med_int *mtype,
265
                  med_int * sdim, med_int * mdim, med_int *mtype,
266
		  char *desc, unsigned int bidon2,
266
		  char *desc, unsigned int bidon2,
267
		  char *dtunit, unsigned int bidon3, 
267
		  char *dtunit, unsigned int bidon3, 
Lines 270-276 MMHFMHI(med_int *fid, med_int *it, char* Link Here
270
		  char *aunit, unsigned int bidon5)
270
		  char *aunit, unsigned int bidon5)
271
#else
271
#else
272
med_int 
272
med_int 
273
nmmhfmhi(med_int *fid, med_int *it, char *mname, med_int * sdim,
273
nmmhfmhi(med_idt *fid, med_int *it, char *mname, med_int * sdim,
274
	 med_int *mdim, med_int *mtype, char *desc,
274
	 med_int *mdim, med_int *mtype, char *desc,
275
	 char *dtunit, med_int *stype, med_int *nstep,
275
	 char *dtunit, med_int *stype, med_int *nstep,
276
	 med_int *atype, char *aname, char *aunit)
276
	 med_int *atype, char *aname, char *aunit)
Lines 321-327 nmmhfmhi(med_int *fid, med_int *it, char Link Here
321
321
322
#ifdef PPRO_NT
322
#ifdef PPRO_NT
323
med_int
323
med_int
324
MMHFMIN(med_int *fid, char*mname, unsigned int bidon, med_int *mnamelen,
324
MMHFMIN(med_idt *fid, char*mname, unsigned int bidon, med_int *mnamelen,
325
        med_int * sdim, med_int * mdim, med_int *mtype,
325
        med_int * sdim, med_int * mdim, med_int *mtype,
326
		char *desc, unsigned int bidon2,
326
		char *desc, unsigned int bidon2,
327
		char *dtunit, unsigned int bidon3,
327
		char *dtunit, unsigned int bidon3,
Lines 330-336 MMHFMIN(med_int *fid, char*mname, unsign Link Here
330
		char *aunit, unsigned int bidon5)
330
		char *aunit, unsigned int bidon5)
331
#else
331
#else
332
med_int
332
med_int
333
nmmhfmin(med_int *fid, char *mname, med_int *mnamelen, med_int * sdim,
333
nmmhfmin(med_idt *fid, char *mname, med_int *mnamelen, med_int * sdim,
334
	 med_int *mdim, med_int *mtype, char *desc,
334
	 med_int *mdim, med_int *mtype, char *desc,
335
	 char *dtunit, med_int *stype, med_int *nstep,
335
	 char *dtunit, med_int *stype, med_int *nstep,
336
	 med_int *atype, char *aname, char *aunit)
336
	 med_int *atype, char *aname, char *aunit)
Lines 386-395 nmmhfmin(med_int *fid, char *mname, med_ Link Here
386
386
387
#ifdef PPRO_NT
387
#ifdef PPRO_NT
388
med_int
388
med_int
389
MMHFUNW(med_int *fid, char *uname, unsigned int bidon, med_int *unamelen)
389
MMHFUNW(med_idt *fid, char *uname, unsigned int bidon, med_int *unamelen)
390
#else
390
#else
391
med_int
391
med_int
392
nmmhfunw(med_int *fid, char *uname, med_int *unamelen)
392
nmmhfunw(med_idt *fid, char *uname, med_int *unamelen)
393
#endif
393
#endif
394
{
394
{
395
  med_int _ret;
395
  med_int _ret;
Lines 410-420 nmmhfunw(med_int *fid, char *uname, med_ Link Here
410
410
411
#ifdef PPRO_NT
411
#ifdef PPRO_NT
412
med_int
412
med_int
413
MMHFUNR(med_int *fid, char*mname, unsigned int bidon, med_int *mnamelen,
413
MMHFUNR(med_idt *fid, char*mname, unsigned int bidon, med_int *mnamelen,
414
		  char *uname, unsigned int bidon1)
414
		  char *uname, unsigned int bidon1)
415
#else
415
#else
416
med_int
416
med_int
417
nmmhfunr(med_int *fid, char*mname, med_int *mnamelen,
417
nmmhfunr(med_idt *fid, char*mname, med_int *mnamelen,
418
	 char *uname)
418
	 char *uname)
419
#endif
419
#endif
420
{
420
{
Lines 426-432 nmmhfunr(med_int *fid, char*mname, med_i Link Here
426
  if (!_fn1)
426
  if (!_fn1)
427
    return(-1);
427
    return(-1);
428
428
429
  _ret = (med_int) MEDmeshUniversalNameRd((med_idt) *fid, (char*) _fn1,
429
  _ret = (med_int) MEDmeshUniversalNameRd(*fid, (char*) _fn1,
430
					  (char*) _fs2);
430
					  (char*) _fs2);
431
431
432
  _MEDc2fString(_fs2,uname,MED_LNAME_SIZE);
432
  _MEDc2fString(_fs2,uname,MED_LNAME_SIZE);
Lines 439-449 nmmhfunr(med_int *fid, char*mname, med_i Link Here
439
439
440
#ifdef PPRO_NT
440
#ifdef PPRO_NT
441
med_int
441
med_int
442
MMHFATW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
442
MMHFATW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
443
		  med_int *nin, med_int *nvn, med_int *nnc)
443
		  med_int *nin, med_int *nvn, med_int *nnc)
444
#else
444
#else
445
med_int
445
med_int
446
nmmhfatw(med_int *fid, char *mname, med_int *mnamelen,
446
nmmhfatw(med_idt *fid, char *mname, med_int *mnamelen,
447
	 med_int *nin, med_int *nvn, med_int *nnc)
447
	 med_int *nin, med_int *nvn, med_int *nnc)
448
#endif
448
#endif
449
{
449
{
Lines 467-477 nmmhfatw(med_int *fid, char *mname, med_ Link Here
467
467
468
#ifdef PPRO_NT
468
#ifdef PPRO_NT
469
med_int 
469
med_int 
470
MMHFATR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
470
MMHFATR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
471
		  med_int *nin, med_int *nvn, med_int *nnc)
471
		  med_int *nin, med_int *nvn, med_int *nnc)
472
#else
472
#else
473
med_int 
473
med_int 
474
nmmhfatr(med_int *fid, char *mname, med_int *mnamelen,
474
nmmhfatr(med_idt *fid, char *mname, med_int *mnamelen,
475
	 med_int *nin, med_int *nvn, med_int *nnc)
475
	 med_int *nin, med_int *nvn, med_int *nnc)
476
#endif
476
#endif
477
{
477
{
Lines 495-505 nmmhfatr(med_int *fid, char *mname, med_ Link Here
495
495
496
#ifdef PPRO_NT
496
#ifdef PPRO_NT
497
med_int 
497
med_int 
498
MMHFGTW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
498
MMHFGTW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
499
		  med_int *gtype)
499
		  med_int *gtype)
500
#else
500
#else
501
med_int 
501
med_int 
502
nmmhfgtw(med_int *fid, char *mname, med_int *mnamelen,
502
nmmhfgtw(med_idt *fid, char *mname, med_int *mnamelen,
503
	 med_int *gtype)
503
	 med_int *gtype)
504
#endif
504
#endif
505
{
505
{
Lines 524-534 nmmhfgtw(med_int *fid, char *mname, med_ Link Here
524
524
525
#ifdef PPRO_NT
525
#ifdef PPRO_NT
526
med_int 
526
med_int 
527
MMHFGTR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
527
MMHFGTR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
528
		  med_int *gtype)
528
		  med_int *gtype)
529
#else
529
#else
530
med_int 
530
med_int 
531
nmmhfgtr(med_int *fid, char *mname, med_int *mnamelen,
531
nmmhfgtr(med_idt *fid, char *mname, med_int *mnamelen,
532
	 med_int *gtype)
532
	 med_int *gtype)
533
#endif
533
#endif
534
{
534
{
Lines 552-562 nmmhfgtr(med_int *fid, char *mname, med_ Link Here
552
552
553
#ifdef PPRO_NT
553
#ifdef PPRO_NT
554
med_int 
554
med_int 
555
MMHFGSW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
555
MMHFGSW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
556
		  med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct)
556
		  med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct)
557
#else
557
#else
558
med_int 
558
med_int 
559
nmmhfgsw(med_int *fid, char *mname, med_int *mnamelen,
559
nmmhfgsw(med_idt *fid, char *mname, med_int *mnamelen,
560
	 med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct)
560
	 med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct)
561
#endif
561
#endif
562
{
562
{
Lines 580-590 nmmhfgsw(med_int *fid, char *mname, med_ Link Here
580
580
581
#ifdef PPRO_NT
581
#ifdef PPRO_NT
582
med_int 
582
med_int 
583
MMHFGSR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
583
MMHFGSR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
584
		  med_int *numdt, med_int *numit, med_int *gstruct)
584
		  med_int *numdt, med_int *numit, med_int *gstruct)
585
#else
585
#else
586
med_int 
586
med_int 
587
nmmhfgsr(med_int *fid, char *mname, med_int *mnamelen,
587
nmmhfgsr(med_idt *fid, char *mname, med_int *mnamelen,
588
	 med_int *numdt, med_int *numit, med_int *gstruct)
588
	 med_int *numdt, med_int *numit, med_int *gstruct)
589
#endif
589
#endif
590
{
590
{
Lines 595-601 nmmhfgsr(med_int *fid, char *mname, med_ Link Here
595
  if (!_fn1)
595
  if (!_fn1)
596
    return(-1);
596
    return(-1);
597
  
597
  
598
  _ret = (med_int) MEDmeshGridStructRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
598
  _ret = (med_int) MEDmeshGridStructRd(*fid, (char*) _fn1, (med_int) *numdt,
599
				       (med_int) *numit, (med_int *) gstruct); 
599
				       (med_int) *numit, (med_int *) gstruct); 
600
600
601
  _MEDcstringFree(_fn1);
601
  _MEDcstringFree(_fn1);
Lines 607-618 nmmhfgsr(med_int *fid, char *mname, med_ Link Here
607
607
608
#ifdef PPRO_NT
608
#ifdef PPRO_NT
609
med_int 
609
med_int 
610
MMHFCOW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
610
MMHFCOW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
611
		  med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
611
		  med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
612
		  med_int *n, med_float *coo)
612
		  med_int *n, med_float *coo)
613
#else
613
#else
614
med_int 
614
med_int 
615
nmmhfcow(med_int *fid, char *mname, med_int *mnamelen,
615
nmmhfcow(med_idt *fid, char *mname, med_int *mnamelen,
616
	 med_int *numdt, med_int *numit, med_float *dt,  
616
	 med_int *numdt, med_int *numit, med_float *dt,  
617
	 med_int *swm, med_int *n, med_float *coo)
617
	 med_int *swm, med_int *n, med_float *coo)
618
#endif
618
#endif
Lines 625-631 nmmhfcow(med_int *fid, char *mname, med_ Link Here
625
  if (!_fn1)
625
  if (!_fn1)
626
    return(-1);
626
    return(-1);
627
  
627
  
628
  _ret = (med_int) MEDmeshNodeCoordinateWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
628
  _ret = (med_int) MEDmeshNodeCoordinateWr(*fid, (char*) _fn1, (med_int) *numdt,
629
					   (med_int) *numit, (med_float) *dt, _swm, (med_int) *n,
629
					   (med_int) *numit, (med_float) *dt, _swm, (med_int) *n,
630
					   (med_float *) coo); 
630
					   (med_float *) coo); 
631
631
Lines 637-648 nmmhfcow(med_int *fid, char *mname, med_ Link Here
637
637
638
#ifdef PPRO_NT
638
#ifdef PPRO_NT
639
med_int 
639
med_int 
640
MMHFCOR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
640
MMHFCOR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
641
		  med_int *numdt, med_int *numit, med_int *swm,
641
		  med_int *numdt, med_int *numit, med_int *swm,
642
		  med_float *coo)
642
		  med_float *coo)
643
#else
643
#else
644
med_int 
644
med_int 
645
nmmhfcor(med_int *fid, char *mname, med_int *mnamelen,
645
nmmhfcor(med_idt *fid, char *mname, med_int *mnamelen,
646
	 med_int *numdt, med_int *numit,
646
	 med_int *numdt, med_int *numit,
647
	 med_int *swm, med_float *coo)
647
	 med_int *swm, med_float *coo)
648
#endif
648
#endif
Lines 655-661 nmmhfcor(med_int *fid, char *mname, med_ Link Here
655
  if (!_fn1)
655
  if (!_fn1)
656
    return(-1);
656
    return(-1);
657
  
657
  
658
  _ret = (med_int) MEDmeshNodeCoordinateRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
658
  _ret = (med_int) MEDmeshNodeCoordinateRd(*fid, (char*) _fn1, (med_int) *numdt,
659
					   (med_int) *numit, _swm, (med_float *) coo); 
659
					   (med_int) *numit, _swm, (med_float *) coo); 
660
660
661
  _MEDcstringFree(_fn1);
661
  _MEDcstringFree(_fn1);
Lines 666-678 nmmhfcor(med_int *fid, char *mname, med_ Link Here
666
666
667
#ifdef PPRO_NT
667
#ifdef PPRO_NT
668
med_int 
668
med_int 
669
MMHFCPW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
669
MMHFCPW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
670
		  med_int *numdt, med_int *numit, med_float *dt, 
670
		  med_int *numdt, med_int *numit, med_float *dt, 
671
		  med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen,
671
		  med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen,
672
		  med_int *swm, med_int *dim, med_int *n, med_float *coo)
672
		  med_int *swm, med_int *dim, med_int *n, med_float *coo)
673
#else
673
#else
674
med_int 
674
med_int 
675
nmmhfcpw(med_int *fid, char *mname, med_int *mnamelen,
675
nmmhfcpw(med_idt *fid, char *mname, med_int *mnamelen,
676
	 med_int *numdt, med_int *numit, med_float *dt,  
676
	 med_int *numdt, med_int *numit, med_float *dt,  
677
	 med_int *smode, char *pname, med_int *pnamelen,
677
	 med_int *smode, char *pname, med_int *pnamelen,
678
	 med_int *swm, med_int *dim, med_int *n, med_float *coo)
678
	 med_int *swm, med_int *dim, med_int *n, med_float *coo)
Lines 690-696 nmmhfcpw(med_int *fid, char *mname, med_ Link Here
690
  if (!_fn2)
690
  if (!_fn2)
691
    return(-1);
691
    return(-1);
692
  
692
  
693
  _ret = (med_int) MEDmeshNodeCoordinateWithProfileWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
693
  _ret = (med_int) MEDmeshNodeCoordinateWithProfileWr(*fid, (char*) _fn1, (med_int) *numdt,
694
						      (med_int) *numit, (med_float) *dt,
694
						      (med_int) *numit, (med_float) *dt,
695
						      _smode, _fn2,
695
						      _smode, _fn2,
696
						      _swm, (med_int) *dim, (med_int) *n, (med_float *) coo); 
696
						      _swm, (med_int) *dim, (med_int) *n, (med_float *) coo); 
Lines 704-716 nmmhfcpw(med_int *fid, char *mname, med_ Link Here
704
704
705
#ifdef PPRO_NT
705
#ifdef PPRO_NT
706
med_int 
706
med_int 
707
MMHFCPR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
707
MMHFCPR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
708
		  med_int *numdt, med_int *numit,  
708
		  med_int *numdt, med_int *numit,  
709
		  med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen,
709
		  med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen,
710
		  med_int *swm, med_int *dim, med_float *coo)
710
		  med_int *swm, med_int *dim, med_float *coo)
711
#else
711
#else
712
med_int 
712
med_int 
713
nmmhfcpr(med_int *fid, char *mname, med_int *mnamelen,
713
nmmhfcpr(med_idt *fid, char *mname, med_int *mnamelen,
714
	 med_int *numdt, med_int *numit,
714
	 med_int *numdt, med_int *numit,
715
	 med_int *smode, char *pname, med_int *pnamelen,
715
	 med_int *smode, char *pname, med_int *pnamelen,
716
	 med_int *swm, med_int *dim, med_float *coo)
716
	 med_int *swm, med_int *dim, med_float *coo)
Lines 728-734 nmmhfcpr(med_int *fid, char *mname, med_ Link Here
728
  if (!_fn2)
728
  if (!_fn2)
729
    return(-1);
729
    return(-1);
730
  
730
  
731
  _ret = (med_int) MEDmeshNodeCoordinateWithProfileRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, (med_int) *numit,
731
  _ret = (med_int) MEDmeshNodeCoordinateWithProfileRd(*fid, (char*) _fn1, (med_int) *numdt, (med_int) *numit,
732
						      _smode, _fn2,
732
						      _smode, _fn2,
733
						      _swm, (med_int) *dim, (med_float *) coo); 
733
						      _swm, (med_int) *dim, (med_float *) coo); 
734
734
Lines 741-752 nmmhfcpr(med_int *fid, char *mname, med_ Link Here
741
741
742
#ifdef PPRO_NT
742
#ifdef PPRO_NT
743
med_int 
743
med_int 
744
MMHFGCW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
744
MMHFGCW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
745
		  med_int *numdt, med_int *numit, med_float *dt, 
745
		  med_int *numdt, med_int *numit, med_float *dt, 
746
		  med_int *axis, med_int *size, med_float *index)
746
		  med_int *axis, med_int *size, med_float *index)
747
#else
747
#else
748
med_int 
748
med_int 
749
nmmhfgcw(med_int *fid, char *mname, med_int *mnamelen,
749
nmmhfgcw(med_idt *fid, char *mname, med_int *mnamelen,
750
	 med_int *numdt, med_int *numit, med_float *dt,  
750
	 med_int *numdt, med_int *numit, med_float *dt,  
751
	 med_int *axis, med_int *size, med_float *index)
751
	 med_int *axis, med_int *size, med_float *index)
752
#endif
752
#endif
Lines 758-764 nmmhfgcw(med_int *fid, char *mname, med_ Link Here
758
  if (!_fn1)
758
  if (!_fn1)
759
    return(-1);
759
    return(-1);
760
  
760
  
761
  _ret = (med_int) MEDmeshGridIndexCoordinateWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
761
  _ret = (med_int) MEDmeshGridIndexCoordinateWr(*fid, (char*) _fn1, (med_int) *numdt,
762
						(med_int) *numit, (med_float) *dt, 
762
						(med_int) *numit, (med_float) *dt, 
763
						(med_int) *axis, (med_int) *size,(med_float *) index);
763
						(med_int) *axis, (med_int) *size,(med_float *) index);
764
764
Lines 770-781 nmmhfgcw(med_int *fid, char *mname, med_ Link Here
770
770
771
#ifdef PPRO_NT
771
#ifdef PPRO_NT
772
med_int 
772
med_int 
773
MMHFGCR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
773
MMHFGCR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
774
		  med_int *numdt, med_int *numit, 
774
		  med_int *numdt, med_int *numit, 
775
		  med_int *axis, med_float *index)
775
		  med_int *axis, med_float *index)
776
#else
776
#else
777
med_int 
777
med_int 
778
nmmhfgcr(med_int *fid, char *mname, med_int *mnamelen,
778
nmmhfgcr(med_idt *fid, char *mname, med_int *mnamelen,
779
	 med_int *numdt, med_int *numit,
779
	 med_int *numdt, med_int *numit,
780
	 med_int *axis, med_float *index)
780
	 med_int *axis, med_float *index)
781
#endif
781
#endif
Lines 787-793 nmmhfgcr(med_int *fid, char *mname, med_ Link Here
787
  if (!_fn1)
787
  if (!_fn1)
788
    return(-1);
788
    return(-1);
789
  
789
  
790
  _ret = (med_int) MEDmeshGridIndexCoordinateRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
790
  _ret = (med_int) MEDmeshGridIndexCoordinateRd(*fid, (char*) _fn1, (med_int) *numdt,
791
						(med_int) *numit,
791
						(med_int) *numit,
792
						(med_int) *axis, (med_float *) index);
792
						(med_int) *axis, (med_float *) index);
793
793
Lines 799-810 nmmhfgcr(med_int *fid, char *mname, med_ Link Here
799
799
800
#ifdef PPRO_NT
800
#ifdef PPRO_NT
801
med_int 
801
med_int 
802
MMHFENW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
802
MMHFENW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
803
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
803
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
804
		  med_int *n, med_int *num)
804
		  med_int *n, med_int *num)
805
#else
805
#else
806
med_int 
806
med_int 
807
nmmhfenw(med_int *fid, char *mname, med_int *mnamelen,
807
nmmhfenw(med_idt *fid, char *mname, med_int *mnamelen,
808
	 med_int *numdt, med_int *numit, med_int *entype, 
808
	 med_int *numdt, med_int *numit, med_int *entype, 
809
	 med_int *geotype, med_int *n, med_int *num)
809
	 med_int *geotype, med_int *n, med_int *num)
810
#endif
810
#endif
Lines 818-824 nmmhfenw(med_int *fid, char *mname, med_ Link Here
818
  if (!_fn1)
818
  if (!_fn1)
819
    return(-1);
819
    return(-1);
820
820
821
  _ret = (med_int)  MEDmeshEntityNumberWr((med_idt) *fid, 
821
  _ret = (med_int)  MEDmeshEntityNumberWr(*fid, 
822
					  (char*) _fn1, 
822
					  (char*) _fn1, 
823
					  (med_int) *numdt,
823
					  (med_int) *numdt,
824
					  (med_int) *numit, 
824
					  (med_int) *numit, 
Lines 835-846 nmmhfenw(med_int *fid, char *mname, med_ Link Here
835
835
836
#ifdef PPRO_NT
836
#ifdef PPRO_NT
837
med_int 
837
med_int 
838
MMHFENR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
838
MMHFENR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
839
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
839
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
840
		  med_int *num)
840
		  med_int *num)
841
#else
841
#else
842
med_int 
842
med_int 
843
nmmhfenr(med_int *fid, char *mname, med_int *mnamelen,
843
nmmhfenr(med_idt *fid, char *mname, med_int *mnamelen,
844
	 med_int *numdt, med_int *numit, med_int *entype, 
844
	 med_int *numdt, med_int *numit, med_int *entype, 
845
	 med_int *geotype, med_int *num)
845
	 med_int *geotype, med_int *num)
846
#endif
846
#endif
Lines 854-860 nmmhfenr(med_int *fid, char *mname, med_ Link Here
854
  if (!_fn1)
854
  if (!_fn1)
855
    return(-1);
855
    return(-1);
856
856
857
  _ret = (med_int)  MEDmeshEntityNumberRd((med_idt) *fid, 
857
  _ret = (med_int)  MEDmeshEntityNumberRd(*fid, 
858
					  (char*) _fn1, 
858
					  (char*) _fn1, 
859
					  (med_int) *numdt,
859
					  (med_int) *numdt,
860
					  (med_int) *numit, 
860
					  (med_int) *numit, 
Lines 871-882 nmmhfenr(med_int *fid, char *mname, med_ Link Here
871
871
872
#ifdef PPRO_NT
872
#ifdef PPRO_NT
873
med_int 
873
med_int 
874
MMHFFNW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
874
MMHFFNW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
875
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
875
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
876
		  med_int *n, med_int *num)
876
		  med_int *n, med_int *num)
877
#else
877
#else
878
med_int 
878
med_int 
879
nmmhffnw(med_int *fid, char *mname, med_int *mnamelen,
879
nmmhffnw(med_idt *fid, char *mname, med_int *mnamelen,
880
	 med_int *numdt, med_int *numit, med_int *entype, 
880
	 med_int *numdt, med_int *numit, med_int *entype, 
881
	 med_int *geotype, med_int *n, med_int *num)
881
	 med_int *geotype, med_int *n, med_int *num)
882
#endif
882
#endif
Lines 890-896 nmmhffnw(med_int *fid, char *mname, med_ Link Here
890
  if (!_fn1)
890
  if (!_fn1)
891
    return(-1);
891
    return(-1);
892
892
893
  _ret = (med_int) MEDmeshEntityFamilyNumberWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
893
  _ret = (med_int) MEDmeshEntityFamilyNumberWr(*fid, (char*) _fn1, (med_int) *numdt,
894
					       (med_int) *numit, _etype, _gtype, (med_int) *n,
894
					       (med_int) *numit, _etype, _gtype, (med_int) *n,
895
					       (med_int *) num);
895
					       (med_int *) num);
896
896
Lines 903-914 nmmhffnw(med_int *fid, char *mname, med_ Link Here
903
903
904
#ifdef PPRO_NT
904
#ifdef PPRO_NT
905
med_int 
905
med_int 
906
MMHFFNR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
906
MMHFFNR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
907
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
907
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
908
		  med_int *num)
908
		  med_int *num)
909
#else
909
#else
910
med_int 
910
med_int 
911
nmmhffnr(med_int *fid, char *mname, med_int *mnamelen,
911
nmmhffnr(med_idt *fid, char *mname, med_int *mnamelen,
912
	 med_int *numdt, med_int *numit, med_int *entype, 
912
	 med_int *numdt, med_int *numit, med_int *entype, 
913
	 med_int *geotype, med_int *num)
913
	 med_int *geotype, med_int *num)
914
#endif
914
#endif
Lines 922-928 nmmhffnr(med_int *fid, char *mname, med_ Link Here
922
  if (!_fn1)
922
  if (!_fn1)
923
    return(-1);
923
    return(-1);
924
924
925
  _ret = (med_int) MEDmeshEntityFamilyNumberRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
925
  _ret = (med_int) MEDmeshEntityFamilyNumberRd(*fid, (char*) _fn1, (med_int) *numdt,
926
					       (med_int) *numit, _etype, _gtype,
926
					       (med_int) *numit, _etype, _gtype,
927
					       (med_int *) num);
927
					       (med_int *) num);
928
928
Lines 935-946 nmmhffnr(med_int *fid, char *mname, med_ Link Here
935
935
936
#ifdef PPRO_NT
936
#ifdef PPRO_NT
937
med_int 
937
med_int 
938
MMHFEAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
938
MMHFEAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
939
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
939
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
940
		  med_int *n, char *ename, unsigned int bidon2, med_int *enamelen)
940
		  med_int *n, char *ename, unsigned int bidon2, med_int *enamelen)
941
#else
941
#else
942
med_int 
942
med_int 
943
nmmhfeaw(med_int *fid, char *mname, med_int *mnamelen,
943
nmmhfeaw(med_idt *fid, char *mname, med_int *mnamelen,
944
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
944
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
945
	 med_int *n, char *ename, med_int *enamelen)
945
	 med_int *n, char *ename, med_int *enamelen)
946
#endif
946
#endif
Lines 960-966 nmmhfeaw(med_int *fid, char *mname, med_ Link Here
960
  /* if (!_fn2) */
960
  /* if (!_fn2) */
961
  /*   return(-1); */
961
  /*   return(-1); */
962
962
963
  _ret = (med_int) MEDmeshEntityNameWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
963
  _ret = (med_int) MEDmeshEntityNameWr(*fid, (char*) _fn1, (med_int) *numdt,
964
				       (med_int) *numit, _etype, _gtype, (med_int) *n,
964
				       (med_int) *numit, _etype, _gtype, (med_int) *n,
965
				       ename);
965
				       ename);
966
				       /* _fn2); */
966
				       /* _fn2); */
Lines 973-984 nmmhfeaw(med_int *fid, char *mname, med_ Link Here
973
973
974
#ifdef PPRO_NT
974
#ifdef PPRO_NT
975
med_int 
975
med_int 
976
MMHFEAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
976
MMHFEAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
977
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
977
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
978
		  char *ename, unsigned int bidon2)
978
		  char *ename, unsigned int bidon2)
979
#else
979
#else
980
med_int 
980
med_int 
981
nmmhfear(med_int *fid, char *mname, med_int *mnamelen,
981
nmmhfear(med_idt *fid, char *mname, med_int *mnamelen,
982
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
982
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
983
	 char *ename)
983
	 char *ename)
984
#endif
984
#endif
Lines 1000-1006 nmmhfear(med_int *fid, char *mname, med_ Link Here
1000
      (_gtype == MED_POLYHEDRON))
1000
      (_gtype == MED_POLYHEDRON))
1001
    _cmode = MED_NODAL;
1001
    _cmode = MED_NODAL;
1002
1002
1003
  _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit,
1003
  _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit,
1004
		     _etype, _gtype,MED_NAME,_cmode,&_changement,
1004
		     _etype, _gtype,MED_NAME,_cmode,&_changement,
1005
		     &_transformation);
1005
		     &_transformation);
1006
1006
Lines 1009-1015 nmmhfear(med_int *fid, char *mname, med_ Link Here
1009
  _fs2 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*_n+1);*_fs2='\0';
1009
  _fs2 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*_n+1);*_fs2='\0';
1010
  if (!_fs2)  return (-1);
1010
  if (!_fs2)  return (-1);
1011
1011
1012
  _ret = (med_int) MEDmeshEntityNameRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
1012
  _ret = (med_int) MEDmeshEntityNameRd(*fid, (char*) _fn1, (med_int) *numdt,
1013
				       (med_int) *numit, _etype, _gtype,
1013
				       (med_int) *numit, _etype, _gtype,
1014
				       _fs2);
1014
				       _fs2);
1015
1015
Lines 1024-1035 nmmhfear(med_int *fid, char *mname, med_ Link Here
1024
1024
1025
#ifdef PPRO_NT
1025
#ifdef PPRO_NT
1026
med_int 
1026
med_int 
1027
MMHFNME(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1027
MMHFNME(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1028
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1028
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1029
		  med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf) 
1029
		  med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf) 
1030
#else
1030
#else
1031
med_int 
1031
med_int 
1032
nmmhfnme(med_int *fid, char *mname, med_int *mnamelen,
1032
nmmhfnme(med_idt *fid, char *mname, med_int *mnamelen,
1033
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1033
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1034
	 med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf)
1034
	 med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf)
1035
#endif
1035
#endif
Lines 1048-1054 nmmhfnme(med_int *fid, char *mname, med_ Link Here
1048
  if (!_fn1 )
1048
  if (!_fn1 )
1049
    return(-1);
1049
    return(-1);
1050
1050
1051
  ret = (med_int) MEDmeshnEntity((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
1051
  ret = (med_int) MEDmeshnEntity(*fid, (char*) _fn1, (med_int) *numdt,
1052
				 (med_int) *numit, _etype, _gtype, _datatype,_cmode,
1052
				 (med_int) *numit, _etype, _gtype, _datatype,_cmode,
1053
				 &_changement,&_transformation);
1053
				 &_changement,&_transformation);
1054
1054
Lines 1064-1076 nmmhfnme(med_int *fid, char *mname, med_ Link Here
1064
1064
1065
#ifdef PPRO_NT
1065
#ifdef PPRO_NT
1066
med_int 
1066
med_int 
1067
MMHFCYW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1067
MMHFCYW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1068
		  med_int *numdt, med_int *numit, med_float* dt,
1068
		  med_int *numdt, med_int *numit, med_float* dt,
1069
		  med_int *entype, med_int *geotype, med_int *cmode, 
1069
		  med_int *entype, med_int *geotype, med_int *cmode, 
1070
		  med_int *swm, med_int *n, med_int *connectivity)
1070
		  med_int *swm, med_int *n, med_int *connectivity)
1071
#else
1071
#else
1072
med_int 
1072
med_int 
1073
nmmhfcyw(med_int *fid, char *mname, med_int *mnamelen,
1073
nmmhfcyw(med_idt *fid, char *mname, med_int *mnamelen,
1074
	 med_int *numdt, med_int *numit, med_float* dt,
1074
	 med_int *numdt, med_int *numit, med_float* dt,
1075
	 med_int *entype, med_int *geotype, med_int *cmode, 
1075
	 med_int *entype, med_int *geotype, med_int *cmode, 
1076
	 med_int *swm, med_int *n, med_int *connectivity)
1076
	 med_int *swm, med_int *n, med_int *connectivity)
Lines 1087-1093 nmmhfcyw(med_int *fid, char *mname, med_ Link Here
1087
  if (!_fn1)
1087
  if (!_fn1)
1088
    return(-1);
1088
    return(-1);
1089
1089
1090
  _ret = (med_int) MEDmeshElementConnectivityWr((med_idt) *fid, 
1090
  _ret = (med_int) MEDmeshElementConnectivityWr(*fid, 
1091
						(char*) _fn1, 
1091
						(char*) _fn1, 
1092
						(med_int) *numdt,
1092
						(med_int) *numdt,
1093
						(med_int) *numit, 
1093
						(med_int) *numit, 
Lines 1107-1119 nmmhfcyw(med_int *fid, char *mname, med_ Link Here
1107
1107
1108
#ifdef PPRO_NT
1108
#ifdef PPRO_NT
1109
med_int 
1109
med_int 
1110
MMHFCYR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1110
MMHFCYR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1111
		  med_int *numdt, med_int *numit, 
1111
		  med_int *numdt, med_int *numit, 
1112
		  med_int *entype, med_int *geotype, med_int *cmode, 
1112
		  med_int *entype, med_int *geotype, med_int *cmode, 
1113
		  med_int *swm, med_int *connectivity)
1113
		  med_int *swm, med_int *connectivity)
1114
#else
1114
#else
1115
med_int 
1115
med_int 
1116
nmmhfcyr(med_int *fid, char *mname, med_int *mnamelen,
1116
nmmhfcyr(med_idt *fid, char *mname, med_int *mnamelen,
1117
	 med_int *numdt, med_int *numit, 
1117
	 med_int *numdt, med_int *numit, 
1118
	 med_int *entype, med_int *geotype, med_int *cmode, 
1118
	 med_int *entype, med_int *geotype, med_int *cmode, 
1119
	 med_int *swm, med_int *connectivity)
1119
	 med_int *swm, med_int *connectivity)
Lines 1130-1136 nmmhfcyr(med_int *fid, char *mname, med_ Link Here
1130
  if (!_fn1)
1130
  if (!_fn1)
1131
    return(-1);
1131
    return(-1);
1132
1132
1133
  _ret = (med_int) MEDmeshElementConnectivityRd((med_idt) *fid, 
1133
  _ret = (med_int) MEDmeshElementConnectivityRd(*fid, 
1134
						(char*) _fn1, 
1134
						(char*) _fn1, 
1135
						(med_int) *numdt,
1135
						(med_int) *numdt,
1136
						(med_int) *numit, 
1136
						(med_int) *numit, 
Lines 1147-1160 nmmhfcyr(med_int *fid, char *mname, med_ Link Here
1147
1147
1148
#ifdef PPRO_NT
1148
#ifdef PPRO_NT
1149
med_int 
1149
med_int 
1150
MMHFYPW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1150
MMHFYPW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1151
		  med_int *numdt, med_int *numit, med_float* dt,
1151
		  med_int *numdt, med_int *numit, med_float* dt,
1152
		  med_int *entype, med_int *geotype, med_int *cmode,
1152
		  med_int *entype, med_int *geotype, med_int *cmode,
1153
		  med_int *stmode, char *pname, unsigned int bidon2,med_int *pnamelen,
1153
		  med_int *stmode, char *pname, unsigned int bidon2,med_int *pnamelen,
1154
		  med_int *swm, med_int *dim, med_int *n, med_int *connectivity)
1154
		  med_int *swm, med_int *dim, med_int *n, med_int *connectivity)
1155
#else
1155
#else
1156
med_int 
1156
med_int 
1157
nmmhfypw(med_int *fid, char *mname, med_int *mnamelen,
1157
nmmhfypw(med_idt *fid, char *mname, med_int *mnamelen,
1158
	 med_int *numdt, med_int *numit, med_float* dt,
1158
	 med_int *numdt, med_int *numit, med_float* dt,
1159
	 med_int *entype, med_int *geotype, med_int *cmode,
1159
	 med_int *entype, med_int *geotype, med_int *cmode,
1160
	 med_int *stmode,char *pname, med_int *pnamelen,
1160
	 med_int *stmode,char *pname, med_int *pnamelen,
Lines 1177-1183 nmmhfypw(med_int *fid, char *mname, med_ Link Here
1177
  if (!_fn2)
1177
  if (!_fn2)
1178
    return(-1);
1178
    return(-1);
1179
1179
1180
  _ret = (med_int) MEDmeshElementConnectivityWithProfileWr((med_idt) *fid, 
1180
  _ret = (med_int) MEDmeshElementConnectivityWithProfileWr(*fid, 
1181
							   (char*) _fn1, 
1181
							   (char*) _fn1, 
1182
							   (med_int) *numdt,
1182
							   (med_int) *numdt,
1183
							   (med_int) *numit, 
1183
							   (med_int) *numit, 
Lines 1201-1214 nmmhfypw(med_int *fid, char *mname, med_ Link Here
1201
1201
1202
#ifdef PPRO_NT
1202
#ifdef PPRO_NT
1203
med_int 
1203
med_int 
1204
MMHFYPR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1204
MMHFYPR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1205
		  med_int *numdt, med_int *numit, 
1205
		  med_int *numdt, med_int *numit, 
1206
		  med_int *entype, med_int *geotype, med_int *cmode, 
1206
		  med_int *entype, med_int *geotype, med_int *cmode, 
1207
		  med_int *stmode, char* pname, unsigned int bidon2, med_int *pnamelen,
1207
		  med_int *stmode, char* pname, unsigned int bidon2, med_int *pnamelen,
1208
		  med_int *swm, med_int*dim, med_int *n, med_int *connectivity)
1208
		  med_int *swm, med_int*dim, med_int *n, med_int *connectivity)
1209
#else
1209
#else
1210
med_int 
1210
med_int 
1211
nmmhfypr(med_int *fid, char *mname, med_int *mnamelen,
1211
nmmhfypr(med_idt *fid, char *mname, med_int *mnamelen,
1212
	 med_int *numdt, med_int *numit, 
1212
	 med_int *numdt, med_int *numit, 
1213
	 med_int *entype, med_int *geotype, med_int *cmode, 
1213
	 med_int *entype, med_int *geotype, med_int *cmode, 
1214
	 med_int *stmode, char* pname, med_int *pnamelen,
1214
	 med_int *stmode, char* pname, med_int *pnamelen,
Lines 1231-1237 nmmhfypr(med_int *fid, char *mname, med_ Link Here
1231
  if (!_fn2)
1231
  if (!_fn2)
1232
    return(-1);
1232
    return(-1);
1233
1233
1234
  _ret = (med_int) MEDmeshElementConnectivityWithProfileRd((med_idt) *fid, 
1234
  _ret = (med_int) MEDmeshElementConnectivityWithProfileRd(*fid, 
1235
							   (char*) _fn1, 
1235
							   (char*) _fn1, 
1236
							   (med_int) *numdt,
1236
							   (med_int) *numdt,
1237
							   (med_int) *numit, 
1237
							   (med_int) *numit, 
Lines 1255-1268 nmmhfypr(med_int *fid, char *mname, med_ Link Here
1255
1255
1256
#ifdef PPRO_NT
1256
#ifdef PPRO_NT
1257
med_int 
1257
med_int 
1258
MMHFNEP(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1258
MMHFNEP(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1259
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1259
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1260
		  med_int *datatype, med_int *cmode, 
1260
		  med_int *datatype, med_int *cmode, 
1261
		  med_int *stmode, char* pname, unsigned int bidon1, med_int *psize,
1261
		  med_int *stmode, char* pname, unsigned int bidon1, med_int *psize,
1262
		  med_int *chgt, med_int *tsf) 
1262
		  med_int *chgt, med_int *tsf) 
1263
#else
1263
#else
1264
med_int 
1264
med_int 
1265
nmmhfnep(med_int *fid, char *mname, med_int *mnamelen,
1265
nmmhfnep(med_idt *fid, char *mname, med_int *mnamelen,
1266
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1266
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1267
	 med_int *datatype, med_int *cmode, 
1267
	 med_int *datatype, med_int *cmode, 
1268
	 med_int *stmode, char* pname, med_int *psize,
1268
	 med_int *stmode, char* pname, med_int *psize,
Lines 1283-1289 nmmhfnep(med_int *fid, char *mname, med_ Link Here
1283
  _fn1 = _MED2cstring((char *) mname, (int) * mnamelen);
1283
  _fn1 = _MED2cstring((char *) mname, (int) * mnamelen);
1284
  if (!_fn1 ) return(-1);
1284
  if (!_fn1 ) return(-1);
1285
1285
1286
  ret = (med_int) MEDmeshnEntityWithProfile((med_idt) *fid, 
1286
  ret = (med_int) MEDmeshnEntityWithProfile(*fid, 
1287
					    (char*) _fn1, 
1287
					    (char*) _fn1, 
1288
					    (med_int) *numdt,
1288
					    (med_int) *numdt,
1289
					    (med_int) *numit, 
1289
					    (med_int) *numit, 
Lines 1311-1324 nmmhfnep(med_int *fid, char *mname, med_ Link Here
1311
1311
1312
#ifdef PPRO_NT
1312
#ifdef PPRO_NT
1313
med_int 
1313
med_int 
1314
MMHFNOW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1314
MMHFNOW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1315
		  med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
1315
		  med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
1316
		  med_int *n, med_float *coo,
1316
		  med_int *n, med_float *coo,
1317
		  med_int *iname, char*nname, unsigned int bidon2, med_int *nnamelen,
1317
		  med_int *iname, char*nname, unsigned int bidon2, med_int *nnamelen,
1318
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1318
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1319
#else
1319
#else
1320
med_int 
1320
med_int 
1321
nmmhfnow(med_int *fid, char *mname, med_int *mnamelen,
1321
nmmhfnow(med_idt *fid, char *mname, med_int *mnamelen,
1322
	 med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
1322
	 med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
1323
	 med_int *n, med_float *coo,
1323
	 med_int *n, med_float *coo,
1324
	 med_int *iname, char*nname, med_int *nnamelen,
1324
	 med_int *iname, char*nname, med_int *nnamelen,
Lines 1341-1347 nmmhfnow(med_int *fid, char *mname, med_ Link Here
1341
  if (!_fn2)
1341
  if (!_fn2)
1342
    return(-1);
1342
    return(-1);
1343
  
1343
  
1344
  _ret = (med_int) MEDmeshNodeWr((med_idt) *fid, 
1344
  _ret = (med_int) MEDmeshNodeWr(*fid, 
1345
				 (char*) _fn1, 
1345
				 (char*) _fn1, 
1346
				 (med_int) *numdt,
1346
				 (med_int) *numdt,
1347
				 (med_int) *numit, 
1347
				 (med_int) *numit, 
Lines 1365-1377 nmmhfnow(med_int *fid, char *mname, med_ Link Here
1365
1365
1366
#ifdef PPRO_NT
1366
#ifdef PPRO_NT
1367
med_int 
1367
med_int 
1368
MMHFNOR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1368
MMHFNOR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1369
		  med_int *numdt, med_int *numit, med_int *swm,med_float *coo,
1369
		  med_int *numdt, med_int *numit, med_int *swm,med_float *coo,
1370
		  med_int *iname, char*nname, unsigned int bidon,
1370
		  med_int *iname, char*nname, unsigned int bidon,
1371
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1371
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1372
#else
1372
#else
1373
med_int 
1373
med_int 
1374
nmmhfnor(med_int *fid, char *mname, med_int *mnamelen,
1374
nmmhfnor(med_idt *fid, char *mname, med_int *mnamelen,
1375
	 med_int *numdt, med_int *numit, med_int *swm, med_float *coo,
1375
	 med_int *numdt, med_int *numit, med_int *swm, med_float *coo,
1376
	 med_int *iname, char*nname, med_int *inum, med_int *num, 
1376
	 med_int *iname, char*nname, med_int *inum, med_int *num, 
1377
	 med_int *ifam, med_int *fam)
1377
	 med_int *ifam, med_int *fam)
Lines 1386-1392 nmmhfnor(med_int *fid, char *mname, med_ Link Here
1386
  if (!_fn1)
1386
  if (!_fn1)
1387
    return(-1);
1387
    return(-1);
1388
1388
1389
  _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit, 
1389
  _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit, 
1390
		     MED_NODE,MED_NONE,MED_NAME,MED_NO_CMODE,&_changement,
1390
		     MED_NODE,MED_NONE,MED_NAME,MED_NO_CMODE,&_changement,
1391
		     &_transformation);
1391
		     &_transformation);
1392
  if (_n < 0)
1392
  if (_n < 0)
Lines 1396-1402 nmmhfnor(med_int *fid, char *mname, med_ Link Here
1396
  if (!_fs2)
1396
  if (!_fs2)
1397
    return (-1);
1397
    return (-1);
1398
  
1398
  
1399
  _ret = (med_int) MEDmeshNodeRd((med_idt) *fid, 
1399
  _ret = (med_int) MEDmeshNodeRd(*fid, 
1400
				 (char*) _fn1, 
1400
				 (char*) _fn1, 
1401
				 (med_int) *numdt,
1401
				 (med_int) *numdt,
1402
				 (med_int) *numit, 
1402
				 (med_int) *numit, 
Lines 1425-1431 nmmhfnor(med_int *fid, char *mname, med_ Link Here
1425
1425
1426
#ifdef PPRO_NT
1426
#ifdef PPRO_NT
1427
med_int 
1427
med_int 
1428
MMHFELW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1428
MMHFELW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1429
		  med_int *numdt, med_int *numit, med_float *dt,  med_int *entype, med_int *geotype,
1429
		  med_int *numdt, med_int *numit, med_float *dt,  med_int *entype, med_int *geotype,
1430
		  med_int *cmode, med_int *swm, 
1430
		  med_int *cmode, med_int *swm, 
1431
		  med_int *n, med_int *connectivity,
1431
		  med_int *n, med_int *connectivity,
Lines 1433-1439 MMHFELW(med_int *fid, char *mname, unsig Link Here
1433
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1433
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1434
#else
1434
#else
1435
med_int 
1435
med_int 
1436
nmmhfelw(med_int *fid, char *mname, med_int *mnamelen,
1436
nmmhfelw(med_idt *fid, char *mname, med_int *mnamelen,
1437
	 med_int *numdt, med_int *numit, med_float *dt, med_int *entype, med_int *geotype,
1437
	 med_int *numdt, med_int *numit, med_float *dt, med_int *entype, med_int *geotype,
1438
	 med_int *cmode, med_int *swm, 
1438
	 med_int *cmode, med_int *swm, 
1439
	 med_int *n, med_int *connectivity,
1439
	 med_int *n, med_int *connectivity,
Lines 1460-1466 nmmhfelw(med_int *fid, char *mname, med_ Link Here
1460
  if (!_fn2)
1460
  if (!_fn2)
1461
    return(-1);
1461
    return(-1);
1462
  
1462
  
1463
  _ret = (med_int) MEDmeshElementWr((med_idt) *fid, 
1463
  _ret = (med_int) MEDmeshElementWr(*fid, 
1464
				    (char*) _fn1, 
1464
				    (char*) _fn1, 
1465
				    (med_int) *numdt,
1465
				    (med_int) *numdt,
1466
				    (med_int) *numit, 
1466
				    (med_int) *numit, 
Lines 1488-1494 nmmhfelw(med_int *fid, char *mname, med_ Link Here
1488
1488
1489
#ifdef PPRO_NT
1489
#ifdef PPRO_NT
1490
med_int 
1490
med_int 
1491
MMHFELR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1491
MMHFELR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1492
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1492
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1493
		  med_int *cmode, med_int *swm, 
1493
		  med_int *cmode, med_int *swm, 
1494
		  med_int *connectivity,
1494
		  med_int *connectivity,
Lines 1496-1502 MMHFELR(med_int *fid, char *mname, unsig Link Here
1496
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1496
		  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1497
#else
1497
#else
1498
med_int 
1498
med_int 
1499
nmmhfelr(med_int *fid, char *mname, med_int *mnamelen,
1499
nmmhfelr(med_idt *fid, char *mname, med_int *mnamelen,
1500
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1500
	 med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1501
	 med_int *cmode, med_int *swm, med_int *connectivity,
1501
	 med_int *cmode, med_int *swm, med_int *connectivity,
1502
	 med_int *iname, char*nname, 
1502
	 med_int *iname, char*nname, 
Lines 1515-1521 nmmhfelr(med_int *fid, char *mname, med_ Link Here
1515
  if (!_fn1)
1515
  if (!_fn1)
1516
    return(-1);
1516
    return(-1);
1517
1517
1518
  _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit, 
1518
  _n = MEDmeshnEntity(*fid,_fn1,(med_int) *numdt,(med_int) *numit, 
1519
		      _etype,_gtype,MED_NAME,_cmode,&_changement,
1519
		      _etype,_gtype,MED_NAME,_cmode,&_changement,
1520
		      &_transformation);
1520
		      &_transformation);
1521
  if (_n < 0)
1521
  if (_n < 0)
Lines 1525-1531 nmmhfelr(med_int *fid, char *mname, med_ Link Here
1525
  if (!_fs2)
1525
  if (!_fs2)
1526
    return (-1);
1526
    return (-1);
1527
1527
1528
  _ret = (med_int) MEDmeshElementRd((med_idt) *fid, 
1528
  _ret = (med_int) MEDmeshElementRd(*fid, 
1529
				    _fn1, 
1529
				    _fn1, 
1530
				    (med_int) *numdt,
1530
				    (med_int) *numdt,
1531
				    (med_int) *numit, 
1531
				    (med_int) *numit, 
Lines 1558-1569 nmmhfelr(med_int *fid, char *mname, med_ Link Here
1558
1558
1559
#ifdef PPRO_NT
1559
#ifdef PPRO_NT
1560
med_int 
1560
med_int 
1561
MMHFCAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1561
MMHFCAW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1562
		  med_int *numdt, med_int *numit, med_float *dt,
1562
		  med_int *numdt, med_int *numit, med_float *dt,
1563
		  unsigned char **flt, med_float *coo)
1563
		  unsigned char **flt, med_float *coo)
1564
#else
1564
#else
1565
med_int 
1565
med_int 
1566
nmmhfcaw(med_int *fid, char *mname, med_int *mnamelen,
1566
nmmhfcaw(med_idt *fid, char *mname, med_int *mnamelen,
1567
	 med_int *numdt, med_int *numit, med_float *dt,  
1567
	 med_int *numdt, med_int *numit, med_float *dt,  
1568
	 unsigned char **flt,med_float *coo)
1568
	 unsigned char **flt,med_float *coo)
1569
#endif
1569
#endif
Lines 1576-1582 nmmhfcaw(med_int *fid, char *mname, med_ Link Here
1576
  if (!_fn1)
1576
  if (!_fn1)
1577
    return(-1);
1577
    return(-1);
1578
  
1578
  
1579
  _ret = (med_int) MEDmeshNodeCoordinateAdvancedWr((med_idt) *fid, 
1579
  _ret = (med_int) MEDmeshNodeCoordinateAdvancedWr(*fid, 
1580
						   _fn1, 
1580
						   _fn1, 
1581
						   (med_int) *numdt,
1581
						   (med_int) *numdt,
1582
						   (med_int) *numit, 
1582
						   (med_int) *numit, 
Lines 1592-1603 nmmhfcaw(med_int *fid, char *mname, med_ Link Here
1592
1592
1593
#ifdef PPRO_NT
1593
#ifdef PPRO_NT
1594
med_int 
1594
med_int 
1595
MMHFCAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1595
MMHFCAR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1596
		  med_int *numdt, med_int *numit, unsigned char **flt,
1596
		  med_int *numdt, med_int *numit, unsigned char **flt,
1597
		  med_float *coo)
1597
		  med_float *coo)
1598
#else
1598
#else
1599
med_int 
1599
med_int 
1600
nmmhfcar(med_int *fid, char *mname, med_int *mnamelen,
1600
nmmhfcar(med_idt *fid, char *mname, med_int *mnamelen,
1601
	 med_int *numdt, med_int *numit, unsigned char **flt,
1601
	 med_int *numdt, med_int *numit, unsigned char **flt,
1602
	 med_float *coo)
1602
	 med_float *coo)
1603
#endif
1603
#endif
Lines 1610-1616 nmmhfcar(med_int *fid, char *mname, med_ Link Here
1610
  if (!_fn1)
1610
  if (!_fn1)
1611
    return(-1);
1611
    return(-1);
1612
  
1612
  
1613
  _ret = (med_int) MEDmeshNodeCoordinateAdvancedRd((med_idt) *fid, 
1613
  _ret = (med_int) MEDmeshNodeCoordinateAdvancedRd(*fid, 
1614
						   _fn1, 
1614
						   _fn1, 
1615
						   (med_int) *numdt,
1615
						   (med_int) *numdt,
1616
						   (med_int) *numit, 
1616
						   (med_int) *numit, 
Lines 1626-1638 nmmhfcar(med_int *fid, char *mname, med_ Link Here
1626
1626
1627
#ifdef PPRO_NT
1627
#ifdef PPRO_NT
1628
med_int 
1628
med_int 
1629
MMHFYAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1629
MMHFYAW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1630
		  med_int *numdt, med_int *numit, med_float* dt,
1630
		  med_int *numdt, med_int *numit, med_float* dt,
1631
		  med_int *entype, med_int *geotype,  med_int *cmode, unsigned char **flt,
1631
		  med_int *entype, med_int *geotype,  med_int *cmode, unsigned char **flt,
1632
		  med_int *connectivity)
1632
		  med_int *connectivity)
1633
#else
1633
#else
1634
med_int 
1634
med_int 
1635
nmmhfyaw(med_int *fid, char *mname, med_int *mnamelen,
1635
nmmhfyaw(med_idt *fid, char *mname, med_int *mnamelen,
1636
	 med_int *numdt, med_int *numit, med_float* dt,
1636
	 med_int *numdt, med_int *numit, med_float* dt,
1637
	 med_int *entype, med_int *geotype, med_int *cmode,
1637
	 med_int *entype, med_int *geotype, med_int *cmode,
1638
	 unsigned char **flt, med_int *connectivity)
1638
	 unsigned char **flt, med_int *connectivity)
Lines 1649-1655 nmmhfyaw(med_int *fid, char *mname, med_ Link Here
1649
  if (!_fn1)
1649
  if (!_fn1)
1650
    return(-1);
1650
    return(-1);
1651
1651
1652
  _ret = (med_int) MEDmeshElementConnectivityAdvancedWr((med_idt) *fid, 
1652
  _ret = (med_int) MEDmeshElementConnectivityAdvancedWr(*fid, 
1653
							 _fn1, 
1653
							 _fn1, 
1654
							(med_int) *numdt,
1654
							(med_int) *numdt,
1655
							(med_int) *numit, 
1655
							(med_int) *numit, 
Lines 1668-1680 nmmhfyaw(med_int *fid, char *mname, med_ Link Here
1668
1668
1669
#ifdef PPRO_NT
1669
#ifdef PPRO_NT
1670
med_int 
1670
med_int 
1671
MMHFYAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1671
MMHFYAR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1672
		  med_int *numdt, med_int *numit, 
1672
		  med_int *numdt, med_int *numit, 
1673
		  med_int *entype, med_int *geotype, med_int *cmode, 
1673
		  med_int *entype, med_int *geotype, med_int *cmode, 
1674
		  unsigned char **flt, med_int *connectivity)
1674
		  unsigned char **flt, med_int *connectivity)
1675
#else
1675
#else
1676
med_int 
1676
med_int 
1677
nmmhfyar(med_int *fid, char *mname, med_int *mnamelen,
1677
nmmhfyar(med_idt *fid, char *mname, med_int *mnamelen,
1678
	 med_int *numdt, med_int *numit, 
1678
	 med_int *numdt, med_int *numit, 
1679
	 med_int *entype, med_int *geotype, med_int *cmode, 
1679
	 med_int *entype, med_int *geotype, med_int *cmode, 
1680
	 unsigned char **flt, med_int *connectivity)
1680
	 unsigned char **flt, med_int *connectivity)
Lines 1691-1697 nmmhfyar(med_int *fid, char *mname, med_ Link Here
1691
  if (!_fn1)
1691
  if (!_fn1)
1692
    return(-1);
1692
    return(-1);
1693
1693
1694
  _ret = (med_int) MEDmeshElementConnectivityAdvancedRd((med_idt) *fid, 
1694
  _ret = (med_int) MEDmeshElementConnectivityAdvancedRd(*fid, 
1695
							(char*) _fn1, 
1695
							(char*) _fn1, 
1696
							(med_int) *numdt,
1696
							(med_int) *numdt,
1697
							(med_int) *numit, 
1697
							(med_int) *numit, 
Lines 1710-1722 nmmhfyar(med_int *fid, char *mname, med_ Link Here
1710
1710
1711
#ifdef PPRO_NT
1711
#ifdef PPRO_NT
1712
med_int 
1712
med_int 
1713
MMHFPGW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1713
MMHFPGW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1714
		  med_int *numdt, med_int *numit, med_float* dt,
1714
		  med_int *numdt, med_int *numit, med_float* dt,
1715
		  med_int *entype, med_int *cmode, 
1715
		  med_int *entype, med_int *cmode, 
1716
		  med_int *indexsize, med_int *index, med_int *connectivity)
1716
		  med_int *indexsize, med_int *index, med_int *connectivity)
1717
#else
1717
#else
1718
med_int 
1718
med_int 
1719
nmmhfpgw(med_int *fid, char *mname, med_int *mnamelen,
1719
nmmhfpgw(med_idt *fid, char *mname, med_int *mnamelen,
1720
	 med_int *numdt, med_int *numit, med_float* dt,
1720
	 med_int *numdt, med_int *numit, med_float* dt,
1721
	 med_int *entype, med_int *cmode, 
1721
	 med_int *entype, med_int *cmode, 
1722
	 med_int *indexsize, med_int *index, med_int *connectivity)
1722
	 med_int *indexsize, med_int *index, med_int *connectivity)
Lines 1731-1737 nmmhfpgw(med_int *fid, char *mname, med_ Link Here
1731
  if (!_fn1)
1731
  if (!_fn1)
1732
    return(-1);
1732
    return(-1);
1733
1733
1734
  _ret = (med_int) MEDmeshPolygonWr((med_idt) *fid, 
1734
  _ret = (med_int) MEDmeshPolygonWr(*fid, 
1735
				    (char*)   _fn1, 
1735
				    (char*)   _fn1, 
1736
				    (med_int) *numdt,
1736
				    (med_int) *numdt,
1737
				    (med_int) *numit, 
1737
				    (med_int) *numit, 
Lines 1750-1763 nmmhfpgw(med_int *fid, char *mname, med_ Link Here
1750
1750
1751
#ifdef PPRO_NT
1751
#ifdef PPRO_NT
1752
med_int 
1752
med_int 
1753
MMHFPGR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1753
MMHFPGR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1754
		  med_int *numdt, med_int *numit, 
1754
		  med_int *numdt, med_int *numit, 
1755
		  med_int *entype, med_int *cmode, 
1755
		  med_int *entype, med_int *cmode, 
1756
		  med_int *index,
1756
		  med_int *index,
1757
		  med_int *connectivity)
1757
		  med_int *connectivity)
1758
#else
1758
#else
1759
med_int 
1759
med_int 
1760
nmmhfpgr(med_int *fid, char *mname, med_int *mnamelen,
1760
nmmhfpgr(med_idt *fid, char *mname, med_int *mnamelen,
1761
	 med_int *numdt, med_int *numit, 
1761
	 med_int *numdt, med_int *numit, 
1762
	 med_int *entype, med_int *cmode, 
1762
	 med_int *entype, med_int *cmode, 
1763
	 med_int *index,
1763
	 med_int *index,
Lines 1773-1779 nmmhfpgr(med_int *fid, char *mname, med_ Link Here
1773
  if (!_fn1)
1773
  if (!_fn1)
1774
    return(-1);
1774
    return(-1);
1775
1775
1776
  _ret = (med_int) MEDmeshPolygonRd((med_idt) *fid, 
1776
  _ret = (med_int) MEDmeshPolygonRd(*fid, 
1777
				    (char*) _fn1, 
1777
				    (char*) _fn1, 
1778
				    (med_int) *numdt,
1778
				    (med_int) *numdt,
1779
				    (med_int) *numit, 
1779
				    (med_int) *numit, 
Lines 1790-1796 nmmhfpgr(med_int *fid, char *mname, med_ Link Here
1790
1790
1791
#ifdef PPRO_NT
1791
#ifdef PPRO_NT
1792
med_int 
1792
med_int 
1793
MMHFPHW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1793
MMHFPHW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1794
		  med_int *numdt, med_int *numit, med_float* dt,
1794
		  med_int *numdt, med_int *numit, med_float* dt,
1795
		  med_int *entype, med_int *cmode, 
1795
		  med_int *entype, med_int *cmode, 
1796
		  med_int *findexsize, med_int *findex,
1796
		  med_int *findexsize, med_int *findex,
Lines 1798-1804 MMHFPHW(med_int *fid, char *mname, unsig Link Here
1798
		  med_int *connectivity)
1798
		  med_int *connectivity)
1799
#else
1799
#else
1800
med_int 
1800
med_int 
1801
nmmhfphw(med_int *fid, char *mname, med_int *mnamelen,
1801
nmmhfphw(med_idt *fid, char *mname, med_int *mnamelen,
1802
	 med_int *numdt, med_int *numit, med_float* dt,
1802
	 med_int *numdt, med_int *numit, med_float* dt,
1803
	 med_int *entype, med_int *cmode, 
1803
	 med_int *entype, med_int *cmode, 
1804
	 med_int *findexsize, med_int *findex,
1804
	 med_int *findexsize, med_int *findex,
Lines 1815-1821 nmmhfphw(med_int *fid, char *mname, med_ Link Here
1815
  if (!_fn1)
1815
  if (!_fn1)
1816
    return(-1);
1816
    return(-1);
1817
1817
1818
  _ret = (med_int) MEDmeshPolyhedronWr((med_idt) *fid, 
1818
  _ret = (med_int) MEDmeshPolyhedronWr(*fid, 
1819
				       (char*)   _fn1, 
1819
				       (char*)   _fn1, 
1820
				       (med_int) *numdt,
1820
				       (med_int) *numdt,
1821
				       (med_int) *numit, 
1821
				       (med_int) *numit, 
Lines 1837-1843 nmmhfphw(med_int *fid, char *mname, med_ Link Here
1837
1837
1838
#ifdef PPRO_NT
1838
#ifdef PPRO_NT
1839
med_int 
1839
med_int 
1840
MMHFPHR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1840
MMHFPHR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1841
		  med_int *numdt, med_int *numit,
1841
		  med_int *numdt, med_int *numit,
1842
		  med_int *entype, med_int *cmode, 
1842
		  med_int *entype, med_int *cmode, 
1843
		  med_int *findex,
1843
		  med_int *findex,
Lines 1845-1851 MMHFPHR(med_int *fid, char *mname, unsig Link Here
1845
		  med_int *connectivity)
1845
		  med_int *connectivity)
1846
#else
1846
#else
1847
med_int 
1847
med_int 
1848
nmmhfphr(med_int *fid, char *mname, med_int *mnamelen,
1848
nmmhfphr(med_idt *fid, char *mname, med_int *mnamelen,
1849
	 med_int *numdt, med_int *numit,
1849
	 med_int *numdt, med_int *numit,
1850
	 med_int *entype, med_int *cmode, 
1850
	 med_int *entype, med_int *cmode, 
1851
	 med_int *findex,
1851
	 med_int *findex,
Lines 1862-1868 nmmhfphr(med_int *fid, char *mname, med_ Link Here
1862
  if (!_fn1)
1862
  if (!_fn1)
1863
    return(-1);
1863
    return(-1);
1864
1864
1865
  _ret = (med_int) MEDmeshPolyhedronRd((med_idt) *fid, 
1865
  _ret = (med_int) MEDmeshPolyhedronRd(*fid, 
1866
				       (char*)   _fn1, 
1866
				       (char*)   _fn1, 
1867
				       (med_int) *numdt,
1867
				       (med_int) *numdt,
1868
				       (med_int) *numit, 
1868
				       (med_int) *numit, 
Lines 1879-1890 nmmhfphr(med_int *fid, char *mname, med_ Link Here
1879
1879
1880
#ifdef PPRO_NT
1880
#ifdef PPRO_NT
1881
med_int 
1881
med_int 
1882
MMHFGNW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1882
MMHFGNW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1883
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1883
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1884
		  med_int *n, med_int *num)
1884
		  med_int *n, med_int *num)
1885
#else
1885
#else
1886
med_int 
1886
med_int 
1887
nmmhfgnw(med_int *fid, char *mname, med_int *mnamelen,
1887
nmmhfgnw(med_idt *fid, char *mname, med_int *mnamelen,
1888
	 med_int *numdt, med_int *numit, med_int *entype, 
1888
	 med_int *numdt, med_int *numit, med_int *entype, 
1889
	 med_int *geotype, med_int *n, med_int *num)
1889
	 med_int *geotype, med_int *n, med_int *num)
1890
#endif
1890
#endif
Lines 1898-1904 nmmhfgnw(med_int *fid, char *mname, med_ Link Here
1898
  if (!_fn1)
1898
  if (!_fn1)
1899
    return(-1);
1899
    return(-1);
1900
1900
1901
  _ret = (med_int)  MEDmeshGlobalNumberWr((med_idt) *fid, 
1901
  _ret = (med_int)  MEDmeshGlobalNumberWr(*fid, 
1902
					  (char*) _fn1, 
1902
					  (char*) _fn1, 
1903
					  (med_int) *numdt,
1903
					  (med_int) *numdt,
1904
					  (med_int) *numit, 
1904
					  (med_int) *numit, 
Lines 1915-1926 nmmhfgnw(med_int *fid, char *mname, med_ Link Here
1915
1915
1916
#ifdef PPRO_NT
1916
#ifdef PPRO_NT
1917
med_int 
1917
med_int 
1918
MMHFGNR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1918
MMHFGNR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1919
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1919
		  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1920
		  med_int *num)
1920
		  med_int *num)
1921
#else
1921
#else
1922
med_int 
1922
med_int 
1923
nmmhfgnr(med_int *fid, char *mname, med_int *mnamelen,
1923
nmmhfgnr(med_idt *fid, char *mname, med_int *mnamelen,
1924
	 med_int *numdt, med_int *numit, med_int *entype, 
1924
	 med_int *numdt, med_int *numit, med_int *entype, 
1925
	 med_int *geotype, med_int *num)
1925
	 med_int *geotype, med_int *num)
1926
#endif
1926
#endif
Lines 1934-1940 nmmhfgnr(med_int *fid, char *mname, med_ Link Here
1934
  if (!_fn1)
1934
  if (!_fn1)
1935
    return(-1);
1935
    return(-1);
1936
1936
1937
  _ret = (med_int)  MEDmeshGlobalNumberRd((med_idt) *fid, 
1937
  _ret = (med_int)  MEDmeshGlobalNumberRd(*fid, 
1938
					  (char*) _fn1, 
1938
					  (char*) _fn1, 
1939
					  (med_int) *numdt,
1939
					  (med_int) *numdt,
1940
					  (med_int) *numit, 
1940
					  (med_int) *numit, 
Lines 1949-1960 nmmhfgnr(med_int *fid, char *mname, med_ Link Here
1949
1949
1950
#ifdef PPRO_NT
1950
#ifdef PPRO_NT
1951
med_int 
1951
med_int 
1952
MMHFCSC(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1952
MMHFCSC(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1953
		  med_int *numdt1, med_int *numit1, 
1953
		  med_int *numdt1, med_int *numit1, 
1954
		  med_int *numdt2, med_int *numit2, med_float *dt2)
1954
		  med_int *numdt2, med_int *numit2, med_float *dt2)
1955
#else
1955
#else
1956
med_int 
1956
med_int 
1957
nmmhfcsc(med_int *fid, char *mname, med_int *mnamelen,
1957
nmmhfcsc(med_idt *fid, char *mname, med_int *mnamelen,
1958
	 med_int *numdt1, med_int *numit1, 
1958
	 med_int *numdt1, med_int *numit1, 
1959
	 med_int *numdt2, med_int *numit2, med_float *dt2)
1959
	 med_int *numdt2, med_int *numit2, med_float *dt2)
1960
#endif
1960
#endif
Lines 1982-1992 nmmhfcsc(med_int *fid, char *mname, med_ Link Here
1982
1982
1983
#ifdef PPRO_NT
1983
#ifdef PPRO_NT
1984
med_int 
1984
med_int 
1985
MMHFCSI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1985
MMHFCSI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1986
		  med_int *csit, med_int *numdt, med_int *numit, med_float *dt)
1986
		  med_int *csit, med_int *numdt, med_int *numit, med_float *dt)
1987
#else
1987
#else
1988
med_int 
1988
med_int 
1989
nmmhfcsi(med_int *fid, char *mname, med_int *mnamelen,
1989
nmmhfcsi(med_idt *fid, char *mname, med_int *mnamelen,
1990
	 med_int *csit, med_int *numdt, med_int *numit, 
1990
	 med_int *csit, med_int *numdt, med_int *numit, 
1991
	 med_float *dt)
1991
	 med_float *dt)
1992
#endif
1992
#endif
Lines 2014-2024 nmmhfcsi(med_int *fid, char *mname, med_ Link Here
2014
2014
2015
#ifdef PPRO_NT
2015
#ifdef PPRO_NT
2016
med_int 
2016
med_int 
2017
MMHFCSR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2017
MMHFCSR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2018
		  med_int *numdt, med_int *numit, med_float *dt)
2018
		  med_int *numdt, med_int *numit, med_float *dt)
2019
#else
2019
#else
2020
med_int 
2020
med_int 
2021
nmmhfcsr(med_int *fid, char *mname, med_int *mnamelen,
2021
nmmhfcsr(med_idt *fid, char *mname, med_int *mnamelen,
2022
	 med_int *numdt, med_int *numit, 
2022
	 med_int *numdt, med_int *numit, 
2023
	 med_float *dt)
2023
	 med_float *dt)
2024
#endif
2024
#endif
Lines 2044-2054 nmmhfcsr(med_int *fid, char *mname, med_ Link Here
2044
2044
2045
#ifdef PPRO_NT
2045
#ifdef PPRO_NT
2046
med_int 
2046
med_int 
2047
MMHFSTR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2047
MMHFSTR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2048
		  med_int *stype)
2048
		  med_int *stype)
2049
#else
2049
#else
2050
med_int 
2050
med_int 
2051
nmmhfstr(med_int *fid, char *mname, med_int *mnamelen,med_int *stype)
2051
nmmhfstr(med_idt *fid, char *mname, med_int *mnamelen,med_int *stype)
2052
#endif
2052
#endif
2053
{
2053
{
2054
  med_int _ret;
2054
  med_int _ret;
Lines 2073-2085 nmmhfstr(med_int *fid, char *mname, med_ Link Here
2073
2073
2074
#ifdef PPRO_NT
2074
#ifdef PPRO_NT
2075
med_int 
2075
med_int 
2076
MMHFRAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2076
MMHFRAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2077
		  med_int *numdt, med_int *numit, med_int *geotype, 
2077
		  med_int *numdt, med_int *numit, med_int *geotype, 
2078
		  char *aname, unsigned int bidon2, med_int *anamelen,
2078
		  char *aname, unsigned int bidon2, med_int *anamelen,
2079
		  med_int *n, med_float *val)
2079
		  med_int *n, med_float *val)
2080
#else
2080
#else
2081
med_int 
2081
med_int 
2082
nmmhfraw(med_int *fid, char *mname, med_int *mnamelen,
2082
nmmhfraw(med_idt *fid, char *mname, med_int *mnamelen,
2083
	 med_int *numdt, med_int *numit, med_int *geotype, 
2083
	 med_int *numdt, med_int *numit, med_int *geotype, 
2084
	 char *aname, med_int *anamelen,
2084
	 char *aname, med_int *anamelen,
2085
	 med_int *n, med_float *val)
2085
	 med_int *n, med_float *val)
Lines 2097-2103 nmmhfraw(med_int *fid, char *mname, med_ Link Here
2097
  if (!_fn2)
2097
  if (!_fn2)
2098
    return(-1);
2098
    return(-1);
2099
2099
2100
  _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid, 
2100
  _ret = (med_int) MEDmeshStructElementVarAttWr(*fid, 
2101
						_fn1, 
2101
						_fn1, 
2102
						(med_int) *numdt,
2102
						(med_int) *numdt,
2103
						(med_int) *numit, 
2103
						(med_int) *numit, 
Lines 2115-2127 nmmhfraw(med_int *fid, char *mname, med_ Link Here
2115
2115
2116
#ifdef PPRO_NT
2116
#ifdef PPRO_NT
2117
med_int 
2117
med_int 
2118
MMHFIAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2118
MMHFIAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2119
		  med_int *numdt, med_int *numit, med_int *geotype, 
2119
		  med_int *numdt, med_int *numit, med_int *geotype, 
2120
		  char *aname, unsigned int bidon2, med_int *anamelen,
2120
		  char *aname, unsigned int bidon2, med_int *anamelen,
2121
		  med_int *n, med_int *val)
2121
		  med_int *n, med_int *val)
2122
#else
2122
#else
2123
med_int 
2123
med_int 
2124
nmmhfiaw(med_int *fid, char *mname, med_int *mnamelen,
2124
nmmhfiaw(med_idt *fid, char *mname, med_int *mnamelen,
2125
	 med_int *numdt, med_int *numit, med_int *geotype, 
2125
	 med_int *numdt, med_int *numit, med_int *geotype, 
2126
	 char *aname, med_int *anamelen,
2126
	 char *aname, med_int *anamelen,
2127
	 med_int *n, med_int *val)
2127
	 med_int *n, med_int *val)
Lines 2139-2145 nmmhfiaw(med_int *fid, char *mname, med_ Link Here
2139
  if (!_fn2)
2139
  if (!_fn2)
2140
    return(-1);
2140
    return(-1);
2141
2141
2142
  _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid, 
2142
  _ret = (med_int) MEDmeshStructElementVarAttWr(*fid, 
2143
						_fn1, 
2143
						_fn1, 
2144
						(med_int) *numdt,
2144
						(med_int) *numdt,
2145
						(med_int) *numit, 
2145
						(med_int) *numit, 
Lines 2157-2169 nmmhfiaw(med_int *fid, char *mname, med_ Link Here
2157
2157
2158
#ifdef PPRO_NT
2158
#ifdef PPRO_NT
2159
med_int
2159
med_int
2160
MMHFSAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2160
MMHFSAW(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2161
		  med_int *numdt, med_int *numit, med_int *geotype,
2161
		  med_int *numdt, med_int *numit, med_int *geotype,
2162
		  char *aname, unsigned int bidon2, med_int *anamelen,
2162
		  char *aname, unsigned int bidon2, med_int *anamelen,
2163
		  med_int *n, char *val, unsigned int bidon3, med_int *vallen)
2163
		  med_int *n, char *val, unsigned int bidon3, med_int *vallen)
2164
#else
2164
#else
2165
med_int
2165
med_int
2166
nmmhfsaw(med_int *fid, char *mname, med_int *mnamelen,
2166
nmmhfsaw(med_idt *fid, char *mname, med_int *mnamelen,
2167
	 med_int *numdt, med_int *numit, med_int *geotype,
2167
	 med_int *numdt, med_int *numit, med_int *geotype,
2168
	 char *aname, med_int *anamelen,
2168
	 char *aname, med_int *anamelen,
2169
	 med_int *n, char *val, med_int *vallen)
2169
	 med_int *n, char *val, med_int *vallen)
Lines 2185-2198 nmmhfsaw(med_int *fid, char *mname, med_ Link Here
2185
    return(-1);
2185
    return(-1);
2186
2186
2187
  /* nom de l'element de structure */
2187
  /* nom de l'element de structure */
2188
  _ret = MEDstructElementName((med_idt) *fid,
2188
  _ret = MEDstructElementName(*fid,
2189
			      _gtype,
2189
			      _gtype,
2190
			      _modelname);
2190
			      _modelname);
2191
  if (_ret < 0)
2191
  if (_ret < 0)
2192
    return (-1);
2192
    return (-1);
2193
2193
2194
  /* nombre de composante de l'attribut */
2194
  /* nombre de composante de l'attribut */
2195
  _ret = MEDstructElementVarAttInfoByName((med_idt) *fid,
2195
  _ret = MEDstructElementVarAttInfoByName(*fid,
2196
					  _modelname,
2196
					  _modelname,
2197
					  _fn2,
2197
					  _fn2,
2198
					  &_type,
2198
					  &_type,
Lines 2207-2213 nmmhfsaw(med_int *fid, char *mname, med_ Link Here
2207
  if (!_fn3)
2207
  if (!_fn3)
2208
    return(-1);
2208
    return(-1);
2209
2209
2210
  _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid,
2210
  _ret = (med_int) MEDmeshStructElementVarAttWr(*fid,
2211
						_fn1,
2211
						_fn1,
2212
						(med_int) *numdt,
2212
						(med_int) *numdt,
2213
						(med_int) *numit,
2213
						(med_int) *numit,
Lines 2227-2239 nmmhfsaw(med_int *fid, char *mname, med_ Link Here
2227
2227
2228
#ifdef PPRO_NT
2228
#ifdef PPRO_NT
2229
med_int
2229
med_int
2230
MMHFRAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2230
MMHFRAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2231
		  med_int *numdt, med_int *numit, med_int *geotype,
2231
		  med_int *numdt, med_int *numit, med_int *geotype,
2232
		  char *aname, unsigned int bidon2, med_int *anamelen,
2232
		  char *aname, unsigned int bidon2, med_int *anamelen,
2233
		  med_float *val)
2233
		  med_float *val)
2234
#else
2234
#else
2235
med_int 
2235
med_int 
2236
nmmhfrar(med_int *fid, char *mname, med_int *mnamelen,
2236
nmmhfrar(med_idt *fid, char *mname, med_int *mnamelen,
2237
	 med_int *numdt, med_int *numit, med_int *geotype, 
2237
	 med_int *numdt, med_int *numit, med_int *geotype, 
2238
	 char *aname, med_int *anamelen,
2238
	 char *aname, med_int *anamelen,
2239
	 med_float *val)
2239
	 med_float *val)
Lines 2251-2257 nmmhfrar(med_int *fid, char *mname, med_ Link Here
2251
  if (!_fn2)
2251
  if (!_fn2)
2252
    return(-1);
2252
    return(-1);
2253
2253
2254
  _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid, 
2254
  _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, 
2255
						_fn1, 
2255
						_fn1, 
2256
						(med_int) *numdt,
2256
						(med_int) *numdt,
2257
						(med_int) *numit, 
2257
						(med_int) *numit, 
Lines 2268-2280 nmmhfrar(med_int *fid, char *mname, med_ Link Here
2268
2268
2269
#ifdef PPRO_NT
2269
#ifdef PPRO_NT
2270
med_int 
2270
med_int 
2271
MMHFIAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2271
MMHFIAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2272
		  med_int *numdt, med_int *numit, med_int *geotype, 
2272
		  med_int *numdt, med_int *numit, med_int *geotype, 
2273
		  char *aname, unsigned int bidon2, med_int *anamelen,
2273
		  char *aname, unsigned int bidon2, med_int *anamelen,
2274
		  med_int *val)
2274
		  med_int *val)
2275
#else
2275
#else
2276
med_int 
2276
med_int 
2277
nmmhfiar(med_int *fid, char *mname, med_int *mnamelen,
2277
nmmhfiar(med_idt *fid, char *mname, med_int *mnamelen,
2278
	 med_int *numdt, med_int *numit, med_int *geotype, 
2278
	 med_int *numdt, med_int *numit, med_int *geotype, 
2279
	 char *aname, med_int *anamelen,
2279
	 char *aname, med_int *anamelen,
2280
	 med_int *val)
2280
	 med_int *val)
Lines 2292-2298 nmmhfiar(med_int *fid, char *mname, med_ Link Here
2292
  if (!_fn2)
2292
  if (!_fn2)
2293
    return(-1);
2293
    return(-1);
2294
2294
2295
  _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid, 
2295
  _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, 
2296
						_fn1, 
2296
						_fn1, 
2297
						(med_int) *numdt,
2297
						(med_int) *numdt,
2298
						(med_int) *numit, 
2298
						(med_int) *numit, 
Lines 2310-2322 nmmhfiar(med_int *fid, char *mname, med_ Link Here
2310
2310
2311
#ifdef PPRO_NT
2311
#ifdef PPRO_NT
2312
med_int 
2312
med_int 
2313
MMHFSAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2313
MMHFSAR(med_idt *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2314
		  med_int *numdt, med_int *numit, med_int *geotype, 
2314
		  med_int *numdt, med_int *numit, med_int *geotype, 
2315
		  char *aname, unsigned int bidon2, med_int *anamelen,
2315
		  char *aname, unsigned int bidon2, med_int *anamelen,
2316
		  char *val, unsigned int bidon3)
2316
		  char *val, unsigned int bidon3)
2317
#else
2317
#else
2318
med_int 
2318
med_int 
2319
nmmhfsar(med_int *fid, char *mname, med_int *mnamelen,
2319
nmmhfsar(med_idt *fid, char *mname, med_int *mnamelen,
2320
	 med_int *numdt, med_int *numit, med_int *geotype, 
2320
	 med_int *numdt, med_int *numit, med_int *geotype, 
2321
	 char *aname, med_int *anamelen,
2321
	 char *aname, med_int *anamelen,
2322
	 char *val)
2322
	 char *val)
Lines 2343-2349 nmmhfsar(med_int *fid, char *mname, med_ Link Here
2343
    return(-1);
2343
    return(-1);
2344
2344
2345
  /* on recupere le nom du modèle de structure */
2345
  /* on recupere le nom du modèle de structure */
2346
  _ret = MEDstructElementName((med_idt) *fid, 
2346
  _ret = MEDstructElementName(*fid, 
2347
			      _gtype, 
2347
			      _gtype, 
2348
			      _modelname);   
2348
			      _modelname);   
2349
  if (_ret < 0)
2349
  if (_ret < 0)
Lines 2361-2367 nmmhfsar(med_int *fid, char *mname, med_ Link Here
2361
    au type de modele de structure dans le maillage
2361
    au type de modele de structure dans le maillage
2362
    de calcul 
2362
    de calcul 
2363
  */
2363
  */
2364
  _n =  MEDmeshnEntity((med_idt) *fid, 
2364
  _n =  MEDmeshnEntity(*fid, 
2365
		       _fn1, 
2365
		       _fn1, 
2366
		       (med_int) *numdt,
2366
		       (med_int) *numdt,
2367
		       (med_int) *numit, 
2367
		       (med_int) *numit, 
Lines 2381-2387 nmmhfsar(med_int *fid, char *mname, med_ Link Here
2381
  if (!_fs3)
2381
  if (!_fs3)
2382
    return(-1);
2382
    return(-1);
2383
2383
2384
  _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid, 
2384
  _ret = (med_int) MEDmeshStructElementVarAttRd(*fid, 
2385
						_fn1, 
2385
						_fn1, 
2386
						(med_int) *numdt,
2386
						(med_int) *numdt,
2387
						(med_int) *numit, 
2387
						(med_int) *numit, 
Lines 2402-2413 nmmhfsar(med_int *fid, char *mname, med_ Link Here
2402
2402
2403
#ifdef PPRO_NT
2403
#ifdef PPRO_NT
2404
med_int 
2404
med_int 
2405
MMHFENI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2405
MMHFENI(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2406
		  med_int *numdt, med_int *numit, med_int *entype, med_int *it, 
2406
		  med_int *numdt, med_int *numit, med_int *entype, med_int *it, 
2407
		  char *geoname, unsigned int bidon1, med_int *geotype)
2407
		  char *geoname, unsigned int bidon1, med_int *geotype)
2408
#else
2408
#else
2409
med_int 
2409
med_int 
2410
nmmhfeni(med_int *fid, char *mname, med_int *mnamelen,
2410
nmmhfeni(med_idt *fid, char *mname, med_int *mnamelen,
2411
	 med_int *numdt, med_int *numit, med_int *entype, med_int *it, 
2411
	 med_int *numdt, med_int *numit, med_int *entype, med_int *it, 
2412
	 char *geoname, med_int *geotype)
2412
	 char *geoname, med_int *geotype)
2413
#endif
2413
#endif
Lines 2422-2428 nmmhfeni(med_int *fid, char *mname, med_ Link Here
2422
  if (!_fn1)
2422
  if (!_fn1)
2423
    return(-1);
2423
    return(-1);
2424
2424
2425
  _ret = (med_int)  MEDmeshEntityInfo((med_idt) *fid, 
2425
  _ret = (med_int)  MEDmeshEntityInfo(*fid, 
2426
				      (char*) _fn1, 
2426
				      (char*) _fn1, 
2427
				      (med_int) *numdt,
2427
				      (med_int) *numdt,
2428
				      (med_int) *numit, 
2428
				      (med_int) *numit, 
Lines 2442-2452 nmmhfeni(med_int *fid, char *mname, med_ Link Here
2442
2442
2443
#ifdef PPRO_NT
2443
#ifdef PPRO_NT
2444
med_int 
2444
med_int 
2445
MMHFTFW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2445
MMHFTFW(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2446
		  med_int *numdt, med_int *numit, med_float *dt, med_float *tsf)
2446
		  med_int *numdt, med_int *numit, med_float *dt, med_float *tsf)
2447
#else
2447
#else
2448
med_int 
2448
med_int 
2449
nmmhftfw(med_int *fid, char *mname, med_int *mnamelen,
2449
nmmhftfw(med_idt *fid, char *mname, med_int *mnamelen,
2450
	 med_int *numdt, med_int *numit, med_float *dt, med_float *tsf)
2450
	 med_int *numdt, med_int *numit, med_float *dt, med_float *tsf)
2451
#endif
2451
#endif
2452
{
2452
{
Lines 2457-2463 nmmhftfw(med_int *fid, char *mname, med_ Link Here
2457
  if (!_fn1)
2457
  if (!_fn1)
2458
    return(-1);
2458
    return(-1);
2459
  
2459
  
2460
  _ret = (med_int) MEDmeshNodeCoordinateTrsfWr((med_idt) *fid, 
2460
  _ret = (med_int) MEDmeshNodeCoordinateTrsfWr(*fid, 
2461
					       (char*) _fn1, 
2461
					       (char*) _fn1, 
2462
					       (med_int) *numdt,
2462
					       (med_int) *numdt,
2463
					       (med_int) *numit, 
2463
					       (med_int) *numit, 
Lines 2472-2482 nmmhftfw(med_int *fid, char *mname, med_ Link Here
2472
2472
2473
#ifdef PPRO_NT
2473
#ifdef PPRO_NT
2474
med_int 
2474
med_int 
2475
MMHFTFR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2475
MMHFTFR(med_idt *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2476
		med_int *numdt, med_int *numit, med_float *tsf)
2476
		med_int *numdt, med_int *numit, med_float *tsf)
2477
#else
2477
#else
2478
med_int 
2478
med_int 
2479
nmmhftfr(med_int *fid, char *mname, med_int *mnamelen,
2479
nmmhftfr(med_idt *fid, char *mname, med_int *mnamelen,
2480
	 med_int *numdt, med_int *numit, med_float *tsf)
2480
	 med_int *numdt, med_int *numit, med_float *tsf)
2481
#endif
2481
#endif
2482
{
2482
{
Lines 2487-2493 nmmhftfr(med_int *fid, char *mname, med_ Link Here
2487
  if (!_fn1)
2487
  if (!_fn1)
2488
    return(-1);
2488
    return(-1);
2489
  
2489
  
2490
  _ret = (med_int) MEDmeshNodeCoordinateTrsfRd((med_idt) *fid, 
2490
  _ret = (med_int) MEDmeshNodeCoordinateTrsfRd(*fid, 
2491
					       (char*) _fn1, 
2491
					       (char*) _fn1, 
2492
					       (med_int) *numdt,
2492
					       (med_int) *numdt,
2493
					       (med_int) *numit, 
2493
					       (med_int) *numit, 
Lines 2503-2509 nmmhftfr(med_int *fid, char *mname, med_ Link Here
2503
2503
2504
#ifdef PPRO_NT
2504
#ifdef PPRO_NT
2505
med_int 
2505
med_int 
2506
MMHFAAW(med_int *fid, 
2506
MMHFAAW(med_idt *fid, 
2507
		  char *mname, unsigned int bidon, med_int *mnamelen,
2507
		  char *mname, unsigned int bidon, med_int *mnamelen,
2508
		  med_int *datatype, 
2508
		  med_int *datatype, 
2509
		  med_int *numdt, 
2509
		  med_int *numdt, 
Lines 2514-2520 MMHFAAW(med_int *fid, Link Here
2514
		  med_int *val)
2514
		  med_int *val)
2515
#else
2515
#else
2516
med_int 
2516
med_int 
2517
nmmhfaaw(med_int *fid, 
2517
nmmhfaaw(med_idt *fid, 
2518
	 char *mname, med_int *mnamelen,
2518
	 char *mname, med_int *mnamelen,
2519
	 med_int *datatype,
2519
	 med_int *datatype,
2520
	 med_int *numdt, 
2520
	 med_int *numdt, 
Lines 2536-2542 nmmhfaaw(med_int *fid, Link Here
2536
  if (!_fn1)
2536
  if (!_fn1)
2537
    return(-1);
2537
    return(-1);
2538
2538
2539
  _ret = (med_int) MEDmeshEntityAttributeAdvancedWr((med_idt) *fid, 
2539
  _ret = (med_int) MEDmeshEntityAttributeAdvancedWr(*fid, 
2540
						    _fn1,
2540
						    _fn1,
2541
						    _datatype,
2541
						    _datatype,
2542
						    (med_int) *numdt,
2542
						    (med_int) *numdt,
Lines 2555-2561 nmmhfaaw(med_int *fid, Link Here
2555
2555
2556
#ifdef PPRO_NT
2556
#ifdef PPRO_NT
2557
med_int 
2557
med_int 
2558
MMHFAAR(med_int *fid, 
2558
MMHFAAR(med_idt *fid, 
2559
		  char *mname, unsigned int bidon, med_int *mnamelen,
2559
		  char *mname, unsigned int bidon, med_int *mnamelen,
2560
		  med_int *datatype, 
2560
		  med_int *datatype, 
2561
		  med_int *numdt, 
2561
		  med_int *numdt, 
Lines 2566-2572 MMHFAAR(med_int *fid, Link Here
2566
		  med_int *val)
2566
		  med_int *val)
2567
#else
2567
#else
2568
med_int 
2568
med_int 
2569
nmmhfaar(med_int *fid, 
2569
nmmhfaar(med_idt *fid, 
2570
	 char *mname, med_int *mnamelen,
2570
	 char *mname, med_int *mnamelen,
2571
	 med_int *datatype,
2571
	 med_int *datatype,
2572
	 med_int *numdt, 
2572
	 med_int *numdt, 
Lines 2588-2594 nmmhfaar(med_int *fid, Link Here
2588
  if (!_fn1)
2588
  if (!_fn1)
2589
    return(-1);
2589
    return(-1);
2590
2590
2591
  _ret = (med_int) MEDmeshEntityAttributeAdvancedRd((med_idt) *fid, 
2591
  _ret = (med_int) MEDmeshEntityAttributeAdvancedRd(*fid, 
2592
						    _fn1,
2592
						    _fn1,
2593
						    _datatype,
2593
						    _datatype,
2594
						    (med_int) *numdt,
2594
						    (med_int) *numdt,
Lines 2609-2615 nmmhfaar(med_int *fid, Link Here
2609
2609
2610
#ifdef PPRO_NT
2610
#ifdef PPRO_NT
2611
med_int 
2611
med_int 
2612
MMHFASW(med_int *fid, 
2612
MMHFASW(med_idt *fid, 
2613
		  char *mname, unsigned int bidon, med_int *mnamelen,
2613
		  char *mname, unsigned int bidon, med_int *mnamelen,
2614
		  med_int *datatype, 
2614
		  med_int *datatype, 
2615
		  med_int *numdt, 
2615
		  med_int *numdt, 
Lines 2620-2626 MMHFASW(med_int *fid, Link Here
2620
		  char *val)
2620
		  char *val)
2621
#else
2621
#else
2622
med_int 
2622
med_int 
2623
nmmhfasw(med_int *fid, 
2623
nmmhfasw(med_idt *fid, 
2624
	 char *mname, med_int *mnamelen,
2624
	 char *mname, med_int *mnamelen,
2625
	 med_int *datatype,
2625
	 med_int *datatype,
2626
	 med_int *numdt, 
2626
	 med_int *numdt, 
Lines 2642-2648 nmmhfasw(med_int *fid, Link Here
2642
  if (!_fn1)
2642
  if (!_fn1)
2643
    return(-1);
2643
    return(-1);
2644
2644
2645
  _ret = (med_int) MEDmeshEntityAttributeAdvancedWr((med_idt) *fid, 
2645
  _ret = (med_int) MEDmeshEntityAttributeAdvancedWr(*fid, 
2646
						    _fn1,
2646
						    _fn1,
2647
						    _datatype,
2647
						    _datatype,
2648
						    (med_int) *numdt,
2648
						    (med_int) *numdt,
Lines 2662-2668 nmmhfasw(med_int *fid, Link Here
2662
2662
2663
#ifdef PPRO_NT
2663
#ifdef PPRO_NT
2664
med_int 
2664
med_int 
2665
MMHFASR(med_int *fid, 
2665
MMHFASR(med_idt *fid, 
2666
		  char *mname, unsigned int bidon, med_int *mnamelen,
2666
		  char *mname, unsigned int bidon, med_int *mnamelen,
2667
		  med_int *datatype, 
2667
		  med_int *datatype, 
2668
		  med_int *numdt, 
2668
		  med_int *numdt, 
Lines 2673-2679 MMHFASR(med_int *fid, Link Here
2673
		  char *val)
2673
		  char *val)
2674
#else
2674
#else
2675
med_int 
2675
med_int 
2676
nmmhfasr(med_int *fid, 
2676
nmmhfasr(med_idt *fid, 
2677
	 char *mname, med_int *mnamelen,
2677
	 char *mname, med_int *mnamelen,
2678
	 med_int *datatype,
2678
	 med_int *datatype,
2679
	 med_int *numdt, 
2679
	 med_int *numdt, 
Lines 2695-2701 nmmhfasr(med_int *fid, Link Here
2695
  if (!_fn1)
2695
  if (!_fn1)
2696
    return(-1);
2696
    return(-1);
2697
2697
2698
  _ret = (med_int) MEDmeshEntityAttributeAdvancedRd((med_idt) *fid, 
2698
  _ret = (med_int) MEDmeshEntityAttributeAdvancedRd(*fid, 
2699
						    _fn1,
2699
						    _fn1,
2700
						    _datatype,
2700
						    _datatype,
2701
						    (med_int) *numdt,
2701
						    (med_int) *numdt,
(-)med-3.3.1_SRC/tests/f/2.3.6/test14.f (-1 / +2 lines)
Lines 28-34 C Link Here
28
      implicit none             
28
      implicit none             
29
      include 'med.hf'
29
      include 'med.hf'
30
C      
30
C      
31
      integer cret, fid
31
      integer*8 fid
32
      integer cret
32
C     ** la dimension du maillage **
33
C     ** la dimension du maillage **
33
      integer mdim
34
      integer mdim
34
C     ** nom du maillage de longueur maxi MED_TAILLE_NOM ** 
35
C     ** nom du maillage de longueur maxi MED_TAILLE_NOM ** 
(-)med-3.3.1_SRC/tests/f/2.3.6/test20.f (-1 / +2 lines)
Lines 27-33 C Link Here
27
      include 'med.hf'
27
      include 'med.hf'
28
C
28
C
29
C
29
C
30
      integer cret, fid, ncha, nmaa, mid, mid2
30
      integer*8 fid,mid,mid2
31
      integer cret, ncha, nmaa
31
      integer i, ncomp, type
32
      integer i, ncomp, type
32
      character*16  comp(3), unit(3)
33
      character*16  comp(3), unit(3)
33
      character*32  nom
34
      character*32  nom
(-)med-3.3.1_SRC/tests/f/2.3.6/test21.f (-1 / +2 lines)
Lines 26-32 C Link Here
26
      implicit none
26
      implicit none
27
      include 'med.hf'
27
      include 'med.hf'
28
C
28
C
29
      integer cret, fid
29
      integer*8 fid
30
      integer cret
30
      character*16 edtuni,dtunit1
31
      character*16 edtuni,dtunit1
31
      character*32 nom1, nom2
32
      character*32 nom1, nom2
32
      character*200 desc1, desc2
33
      character*200 desc1, desc2
(-)med-3.3.1_SRC/tests/f/2.3.6/test3.f (-1 / +2 lines)
Lines 28-34 C Link Here
28
      include 'med.hf'
28
      include 'med.hf'
29
C
29
C
30
C
30
C
31
      integer       cret,fid,cres,type,cnu
31
      integer*8 fid
32
      integer       cret,cres,type,cnu
32
      character*32  maa
33
      character*32  maa
33
      character*80  nomu
34
      character*80  nomu
34
      character*200 desc
35
      character*200 desc
(-)med-3.3.1_SRC/tests/f/test14.f (-1 / +2 lines)
Lines 28-34 C Link Here
28
      implicit none             
28
      implicit none             
29
      include 'med.hf'
29
      include 'med.hf'
30
C      
30
C      
31
      integer cret, fid
31
      integer*8 fid
32
      integer cret
32
C     ** la dimension du maillage **
33
C     ** la dimension du maillage **
33
      integer mdim,sdim
34
      integer mdim,sdim
34
C     ** nom du maillage de longueur maxi MED_TAILLE_NOM ** 
35
C     ** nom du maillage de longueur maxi MED_TAILLE_NOM ** 
(-)med-3.3.1_SRC/tests/f/test20.f (-1 / +2 lines)
Lines 27-33 C Link Here
27
      include 'med.hf'
27
      include 'med.hf'
28
C
28
C
29
C
29
C
30
      integer cret, fid, ncha, nmaa, mid, mid2
30
      integer*8 fid, mid, mid2
31
      integer cret, ncha, nmaa
31
      integer i, ncomp, type
32
      integer i, ncomp, type
32
      character*16  comp(3), unit(3), dtunit
33
      character*16  comp(3), unit(3), dtunit
33
      character*64  nomcha,nommaa
34
      character*64  nomcha,nommaa
(-)med-3.3.1_SRC/tests/f/test21.f (-1 / +2 lines)
Lines 26-32 C Link Here
26
      implicit none
26
      implicit none
27
      include 'med.hf'
27
      include 'med.hf'
28
C
28
C
29
      integer cret, fid
29
      integer*8 fid
30
      integer cret
30
      character*16 edtuni,dtunit1
31
      character*16 edtuni,dtunit1
31
      character*64 nom1, nom2
32
      character*64 nom1, nom2
32
      character*200 desc1, desc2
33
      character*200 desc1, desc2
(-)med-3.3.1_SRC/tests/f/test3.f (-1 / +2 lines)
Lines 28-34 C Link Here
28
      include 'med.hf'
28
      include 'med.hf'
29
C
29
C
30
C
30
C
31
      integer       cret,fid,cres,type,cnu
31
      integer*8 fid
32
      integer       cret,cres,type,cnu
32
      character*64  maa
33
      character*64  maa
33
      character*80  nomu
34
      character*80  nomu
34
      character*200 desc
35
      character*200 desc
(-)med-3.3.1_SRC/tests/f/test10f.f (-1 / +2 lines)
Lines 26-32 C Link Here
26
	implicit none
26
	implicit none
27
	include 'med.hf'
27
	include 'med.hf'
28
C
28
C
29
	integer      ret,fid,USER_INTERLACE,USER_MODE
29
        integer*8    fid
30
	integer      ret,USER_INTERLACE,USER_MODE
30
	integer      FTYPECHA
31
	integer      FTYPECHA
31
	real*8       a,b,p1,p2,dt
32
	real*8       a,b,p1,p2,dt
32
33
(-)med-3.3.1_SRC/src/cfi/medequivalencecf.c (-16 / +16 lines)
Lines 48-59 From Fortran call of following C functio Link Here
48
48
49
#ifdef PPRO_NT
49
#ifdef PPRO_NT
50
med_int 
50
med_int 
51
MEQFCRE(med_int *fid, char *maa, unsigned int bidon1, med_int *lon1,
51
MEQFCRE(med_idt *fid, char *maa, unsigned int bidon1, med_int *lon1,
52
                  char *eq, unsigned int bidon2, med_int *lon2, char *desc,                        
52
                  char *eq, unsigned int bidon2, med_int *lon2, char *desc,                        
53
		  unsigned int bidon3, med_int *lon3)
53
		  unsigned int bidon3, med_int *lon3)
54
#else
54
#else
55
med_int 
55
med_int 
56
 nmeqfcre(med_int *fid, char *maa, med_int *lon1, char *eq, med_int *lon2, 
56
 nmeqfcre(med_idt *fid, char *maa, med_int *lon1, char *eq, med_int *lon2, 
57
	  char *desc, med_int *lon3)
57
	  char *desc, med_int *lon3)
58
#endif
58
#endif
59
{
59
{
Lines 81-93 med_int