18 subroutine msecre(fid,mname,mdim,smname,setype,
19 & sgtype, etype, cret)
24 character*(*) mname,smname
26 integer cret,mdim,setype,sgtype,etype
29 etype = msefcre(fid,mname,len(mname),mdim,
30 & smname,len(smname),setype,sgtype)
43 subroutine msense(fid,n,cret)
65 subroutine msesei(fid,it,mname,mgtype,mdim,smname,
66 & setype,snnode,sncell,sgtype,
67 & ncatt,ap,nvatt,cret)
72 character*(*) mname,smname
74 integer cret,mdim,setype,sgtype,it
75 integer snnode,sncell,ncatt,ap,nvatt,mgtype
78 cret = msefsei(fid,it,mname,mgtype,mdim,smname,
79 & setype,snnode,sncell,sgtype,
87 subroutine msesin(fid,mname,mgtype,mdim,smname,
88 & setype,snnode,sncell,sgtype,
89 & ncatt,ap,nvatt,cret)
94 character*(*) mname,smname
96 integer cret,mdim,setype,sgtype
97 integer snnode,sncell,ncatt,ap,nvatt,mgtype
100 cret = msefsin(fid,mname,len(mname),mgtype,
101 & mdim,smname,setype,snnode,
102 & sncell,sgtype,ncatt,ap,nvatt)
109 subroutine msesen(fid,mgtype,mname,cret)
119 cret = msefsen(fid,mgtype,mname)
126 subroutine msesgt(fid,mname,gtype,cret)
136 gtype = msefsgt(fid,mname,len(mname))
149 subroutine msevac(fid,mname,aname,atype,anc,cret)
154 character*(*) mname,aname
156 integer cret,atype,anc
159 cret = msefvac(fid,mname,len(mname),
160 & aname,len(aname),atype,
168 subroutine msevni(fid,mname,aname,atype,anc,cret)
173 character*(*) mname,aname
175 integer cret,atype,anc
178 cret = msefvni(fid,mname,len(mname),
187 subroutine msevai(fid,mname,it,aname,atype,anc,cret)
192 character*(*) mname,aname
194 integer cret,atype,anc,it
197 cret = msefvai(fid,mname,len(mname),it,
205 subroutine mseasz(atype,size,cret)
210 integer size,atype,cret
213 size = msefasz(atype)
226 subroutine mseraw(fid,mname,aname,atype,anc,
232 character*(*) mname,aname
234 integer cret,atype,anc,setype
238 cret = msefraw(fid,mname,len(mname),
239 & aname,len(aname),atype,
247 subroutine mseiaw(fid,mname,aname,atype,anc,
253 character*(*) mname,aname
255 integer cret,atype,anc,setype
259 cret = msefiaw(fid,mname,len(mname),
260 & aname,len(aname),atype,
268 subroutine msesaw(fid,mname,aname,atype,anc,
274 character*(*) mname,aname
276 integer cret,atype,anc,setype
280 cret = msefsaw(fid,mname,len(mname),
281 & aname,len(aname),atype,
282 & anc,setype,val,anc*64)
289 subroutine mserpw(fid,mname,aname,atype,anc,
290 & setype,pname,val,cret)
295 character*(*) mname,aname,pname
297 integer cret,atype,anc,setype
301 cret = msefrpw(fid,mname,len(mname),
302 & aname,len(aname),atype,
303 & anc,setype,pname,len(pname),
311 subroutine mseipw(fid,mname,aname,atype,anc,
312 & setype,pname,val,cret)
317 character*(*) mname,aname,pname
319 integer cret,atype,anc,setype
323 cret = msefipw(fid,mname,len(mname),
324 & aname,len(aname),atype,
325 & anc,setype,pname,len(pname),
333 subroutine msespw(fid,mname,aname,atype,anc,
334 & setype,pname,val,cret)
339 character*(*) mname,aname,pname
341 integer cret,atype,anc,setype
345 cret = msefspw(fid,mname,len(mname),
346 & aname,len(aname),atype,
347 & anc,setype,pname,len(pname),
355 subroutine msecni(fid,mname,aname,atype,anc,
356 & setype,pname,psize,cret)
361 character*(*) mname,aname,pname
363 integer cret,atype,anc,setype,psize
366 cret = msefcni(fid,mname,len(mname),
367 & aname,len(aname),atype,
368 & anc,setype,pname,psize)
375 subroutine msecai(fid,mname,it,aname,atype,anc,
376 & setype,pname,psize,cret)
381 character*(*) mname,aname,pname
383 integer cret,atype,anc,setype,psize,it
386 cret = msefcai(fid,mname,len(mname),it,
388 & anc,setype,pname,psize)
395 subroutine mserar(fid,mname,aname,val,cret)
400 character*(*) mname,aname
406 cret = msefrar(fid,mname,len(mname),
407 & aname,len(aname),val)
414 subroutine mseiar(fid,mname,aname,val,cret)
419 character*(*) mname,aname
425 cret = msefiar(fid,mname,len(mname),
426 & aname,len(aname),val)
433 subroutine msesar(fid,mname,aname,val,cret)
438 character*(*) mname,aname
444 cret = msefsar(fid,mname,len(mname),
subroutine msevni(fid, mname, aname, atype, anc, cret)
subroutine msesgt(fid, mname, gtype, cret)
subroutine mseasz(atype, size, cret)
Cette routine renvoie la taille en octets du type élémentaire atttype.
subroutine mserar(fid, mname, aname, val, cret)
subroutine msesar(fid, mname, aname, val, cret)
subroutine msevac(fid, mname, aname, atype, anc, cret)
subroutine msesei(fid, it, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine msecni(fid, mname, aname, atype, anc, setype, pname, psize, cret)
subroutine mseiaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msesaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msense(fid, n, cret)
subroutine msevai(fid, mname, it, aname, atype, anc, cret)
subroutine msesen(fid, mgtype, mname, cret)
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
subroutine msespw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine msecre(fid, mname, mdim, smname, setype, sgtype, etype, cret)
subroutine mseraw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine mseipw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine mserpw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine mseiar(fid, mname, aname, val, cret)