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
00024 implicit none
00025 save
00026 character*(*) lname,giname, isname
00027 real*8 ecoo(*), ipcoo(*), wght(*)
00028 integer fid,cret,gtype,sdim,swm,nip
00029 integer mlcflow
00030
00031 cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
00032 & ipcoo, wght,giname,len(giname), isname, len(isname) )
00033
00034 return
00035 end
00036
00037
00038
00039 subroutine mlcnlc(fid,n,cret)
00040
00041
00042 implicit none
00043 save
00044 integer fid,n,cret
00045 integer mlcfnlc
00046
00047 n = mlcfnlc(fid)
00048
00049 if (n.lt.0) then
00050 cret = -1
00051 else
00052 cret = 0
00053 endif
00054
00055 return
00056 end
00057
00058
00059
00060 subroutine mlclci(fid, it, lname, gtype, sdim, nip,
00061 & giname, isname, nsmc, sgtype, cret)
00062
00063
00064 implicit none
00065 save
00066
00067 character*(*) lname,giname, isname
00068 integer fid, gtype, it, cret, sdim, nip
00069 integer nsmc, sgtype
00070 integer mlcflci
00071
00072 cret = mlcflci(fid, it, lname, gtype, sdim, nip,
00073 & giname, isname,nsmc,sgtype)
00074
00075 return
00076 end
00077
00078
00079
00080 subroutine mlclni(fid, lname, gtype, sdim, nip,
00081 & giname, isname, nsmc, sgtype, cret)
00082
00083
00084 implicit none
00085 save
00086
00087 character*(*) lname,giname, isname
00088 integer fid, gtype, cret, sdim, nip
00089 integer nsmc, sgtype
00090 integer mlcflni
00091
00092 cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip,
00093 & giname, isname, nsmc, sgtype)
00094
00095 return
00096 end
00097
00098
00099
00100
00101 subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret)
00102
00103
00104 implicit none
00105 save
00106 character*(*) lname
00107 real*8 ecoo(*), ipcoo(*), wght(*)
00108 integer fid,cret,swm
00109 integer mlcflor
00110
00111 cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)
00112
00113 return
00114 end
00115
00116