subroutine wgtread(weight)
	character*72 file
	real*8 weight(2,100)
	type 1
1	format(' File name of weights ?',$)
	accept 2,file
2	format(a)
	open(unit=11,file=file,type='OLD',readonly)
10	read(11,3,end=99)idet,weight(1,idet),weight(2,idet)
3	format(i3,2f10.3)
	goto 10
99	continue
	close(unit=11)
	return
	end