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