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)
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)
119 cret = msefsen(fid,mgtype,mname)
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,
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 mseiaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine mseiar(fid, mname, aname, val, cret)
subroutine msesen(fid, mgtype, mname, cret)
subroutine msesaw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine mserar(fid, mname, aname, val, cret)
subroutine msevac(fid, mname, aname, atype, anc, cret)
subroutine mseraw(fid, mname, aname, atype, anc, setype, val, cret)
subroutine msespw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine msecre(fid, mname, mdim, smname, setype, sgtype, etype, cret)
subroutine msesin(fid, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine msesgt(fid, mname, gtype, cret)
subroutine mseipw(fid, mname, aname, atype, anc, setype, pname, val, cret)
subroutine msesar(fid, mname, aname, val, cret)
subroutine mseasz(atype, size, cret)
subroutine msevni(fid, mname, aname, atype, anc, cret)
subroutine msecni(fid, mname, aname, atype, anc, setype, pname, psize, cret)
subroutine msecai(fid, mname, it, aname, atype, anc, setype, pname, psize, cret)
subroutine msesei(fid, it, mname, mgtype, mdim, smname, setype, snnode, sncell, sgtype, ncatt, ap, nvatt, cret)
subroutine msense(fid, n, cret)
subroutine msevai(fid, mname, it, aname, atype, anc, cret)
subroutine mserpw(fid, mname, aname, atype, anc, setype, pname, val, cret)