00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020       subroutine mfrcre(fid,nent,nvent,ncent,cs,swm,
00021      &                  stm,pname,fltas,flta,flt,cret)
00022 
00023 
00024       implicit none
00025       save
00026       character*(*) pname 
00027       integer flta(*)
00028       integer fid,nent,nvent,ncent
00029       integer stm,fltas
00030       integer*8 flt
00031       integer cret,cs,swm
00032       integer mfrfcre
00033 
00034       cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
00035      &               pname,len(pname),fltas,flta,flt)
00036 
00037       return
00038       end
00039 
00040 
00041 
00042       subroutine mfrall(nflt,flt,cret)
00043 
00044 
00045       implicit none
00046       save 
00047       integer*8 flt(*)
00048       integer nflt,cret
00049       integer mfrfall
00050 
00051       cret = mfrfall(nflt,flt)
00052 
00053       return
00054       end     
00055 
00056 
00057 
00058       subroutine mfrdea(nflt,flt,cret)
00059 
00060 
00061       implicit none
00062       save 
00063       integer*8 flt(*)
00064       integer nflt,cret
00065       integer mfrfdea
00066 
00067       cret = mfrfdea(nflt,flt)
00068 
00069       return
00070       end     
00071 
00072 
00073 
00074       subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
00075      &                  stm,pname,start,stride,count,bsize,
00076      &                  lbsize,flt,cret)
00077 
00078 
00079       implicit none
00080       save
00081       character*(*) pname 
00082       integer fid,nent,nvent,ncent
00083       integer start,stride,count,bsize,lbsize
00084       integer stm
00085       integer*8 flt
00086       integer cret,cs,swm
00087       integer mfrfblc
00088 
00089       cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
00090      &               pname,len(pname),start,stride,count,bsize,
00091      &               lbsize,flt)
00092 
00093       return
00094       end
00095 
00096