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 implicit none
00024 save
00025 character*(*) pname
00026 integer flta(*)
00027 integer fid,nent,nvent,ncent
00028 integer stm,fltas
00029 integer*8 flt
00030 integer cret,cs,swm
00031 integer mfrfcre
00032
00033 cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm,
00034 & pname,len(pname),fltas,flta,flt)
00035
00036 return
00037 end
00038
00039
00040
00041 subroutine mfrall(nflt,flt,cret)
00042
00043 implicit none
00044 save
00045 integer*8 flt(*)
00046 integer nflt,cret
00047 integer mfrfall
00048
00049 cret = mfrfall(nflt,flt)
00050
00051 return
00052 end
00053
00054
00055
00056 subroutine mfrdea(nflt,flt,cret)
00057
00058 implicit none
00059 save
00060 integer*8 flt(*)
00061 integer nflt,cret
00062 integer mfrfdea
00063
00064 cret = mfrfdea(nflt,flt)
00065
00066 return
00067 end
00068
00069
00070
00071 subroutine mfrblc(fid,nent,nvent,ncent,cs,swm,
00072 & stm,pname,start,stride,count,bsize,
00073 & lbsize,flt,cret)
00074
00075 implicit none
00076 save
00077 character*(*) pname
00078 integer fid,nent,nvent,ncent
00079 integer start,stride,count,bsize,lbsize
00080 integer stm
00081 integer*8 flt
00082 integer cret,cs,swm
00083 integer mfrfblc
00084
00085 cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm,
00086 & pname,len(pname),start,stride,count,bsize,
00087 & lbsize,flt)
00088
00089 return
00090 end
00091
00092