00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 subroutine mlclow(fid,lname,gtype,sdim,ecoo,swm,nip,
00021 & ipcoo, wght, giname, isname, cret)
00022
00023 implicit none
00024 save
00025 character*(*) lname,giname, isname
00026 real*8 ecoo(*), ipcoo(*), wght(*)
00027 integer fid,cret,gtype,sdim,swm,nip
00028 integer mlcflow
00029
00030 cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
00031 & ipcoo, wght,giname,len(giname), isname, len(isname) )
00032
00033 return
00034 end
00035
00036
00037
00038 subroutine mlcnlc(fid,n,cret)
00039
00040 implicit none
00041 save
00042 integer fid,n,cret
00043 integer mlcfnlc
00044
00045 n = mlcfnlc(fid)
00046
00047 if (n.lt.0) then
00048 cret = -1
00049 else
00050 cret = 0
00051 endif
00052
00053 return
00054 end
00055
00056
00057
00058 subroutine mlclci(fid, it, lname, gtype, sdim, nip,
00059 & giname, isname, nsmc, sgtype, cret)
00060
00061 implicit none
00062 save
00063
00064 character*(*) lname,giname, isname
00065 integer fid, gtype, it, cret, sdim, nip
00066 integer nsmc, sgtype
00067 integer mlcflci
00068
00069 cret = mlcflci(fid, it, lname, gtype, sdim, nip,
00070 & giname, isname,nsmc,sgtype)
00071
00072 return
00073 end
00074
00075
00076
00077 subroutine mlclni(fid, lname, gtype, sdim, nip,
00078 & giname, isname, nsmc, sgtype, cret)
00079
00080 implicit none
00081 save
00082
00083 character*(*) lname,giname, isname
00084 integer fid, gtype, cret, sdim, nip
00085 integer nsmc, sgtype
00086 integer mlcflni
00087
00088 cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip,
00089 & giname, isname, nsmc, sgtype)
00090
00091 return
00092 end
00093
00094
00095
00096
00097 subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret)
00098
00099 implicit none
00100 save
00101 character*(*) lname
00102 real*8 ecoo(*), ipcoo(*), wght(*)
00103 integer fid,cret,swm
00104 integer mlcflor
00105
00106 cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
00107
00108 return
00109 end
00110
00111