program main
	OPEN(30,FILE=' JMATRIX.JMT',STATUS='OLD',IOSTAT=ISO,& FORM='UNFORMATTED',ACCESS='TRANSPARENT')
READ(30) INZERO,LINE_DO,ISTATE
READ(30) (IAS(JJ),JAS(JJ),AS(JJ),JJ=1,INZERO)
CLOSE(30)
end