20 subroutine mfrcre(fid,nent,nvent,ncent,cs,swm,
21 & stm,pname,fltas,flta,flt,cret)
29 integer nent,nvent,ncent
35 cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
36 & pname,len(pname),fltas,flta,flt)
43 subroutine mfrall(nflt,flt,cret)
52 cret = mfrfall(nflt,flt)
59 subroutine mfrdea(nflt,flt,cret)
68 cret = mfrfdea(nflt,flt)
75 subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
76 & stm,pname,start,stride,count,bsize,
84 integer nent,nvent,ncent
85 integer start,stride,count,bsize,lbsize
91 cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
92 & pname,len(pname),start,stride,count,bsize,