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 msesen(fid, mgtype, mname, cret)
subroutine mserar(fid, mname, aname, val, cret)
subroutine mseipw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
subroutine mseiar(fid, mname, aname, val, cret)
subroutine mserpw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine mseasz(atype, size, cret)
Cette routine renvoie la taille en octets du type élémentaire atttype.
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine msevni(fid, mname, aname, atype, anc, cret)
subroutine msesaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine mseraw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msecre(fid, mname, mdim, smname, setype, sgtype, etype, cret)
subroutine msecni(fid, mname, aname, atype, anc, setype, pname, psize, cret)
subroutine msesgt(fid, mname, gtype, cret)
subroutine msense(fid, n, cret)
subroutine msevai(fid, mname, it, aname, atype, anc, cret)
subroutine mseiaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msesei(fid, it, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine msesar(fid, mname, aname, val, cret)
subroutine msevac(fid, mname, aname, atype, anc, cret)
subroutine msespw(fid, mname, aname, atype, anc, setype, pname, val, cret)