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),