C	STABLE -- SEGMENT TABLE OUTPUT ROUTINE
C
C
	SUBROUTINE STABLE(SGTADD,INIT)
	INTEGER SGTADD,SGTLNT,SEGTAB(5,200),INIT
	INTEGER TASKNM(2),ITERM,IDSW,RECDAT(9),ITASK(2)
	INTEGER*4 IREC1
	INTEGER SEG(3),TSEG(3),MOD(3)
	COMMON /RECS/IREC1
	COMMON /SEGS/SEGTAB,SGTLNT
	COMMON /IONODE/TASKNM,ITERM,IDSW,RECDAT,ITASK
	RECDAT(4)=SGTADD
	DO 100 I=1,SGTLNT
	RECDAT(3)=8
	CALL SNDREC(IERR,1)
	IF(INIT.EQ.1)GOTO150
	IF(SEGTAB(4,I).EQ.1.AND.RECDAT(5).EQ.0)SEGTAB(5,I)=0
150	SEGTAB(4,I)=RECDAT(5)
	RECDAT(4)=RECDAT(4)+12
100	CONTINUE
	IF(INIT.NE.1)GOTO200
	IREC1=1
	READ(1'IREC1)SEG,MOD,I1,I2,I3,I4
	DO 120 I=1,SGTLNT
115	READ(1'IREC1,ERR=130)TSEG,MOD,I1,I2,I3,I4
C	TYPE 1111,IREC1,SEG,TSEG
	IF(KOMSTR(SEG,1,6,TSEG,1,6).NE.0)GOTO130
	GOTO115
130	CALL STRMOV(SEG,1,6,SEGTAB(1,I),1)
	CALL STRMOV(TSEG,1,6,SEG,1)
	SEGTAB(5,I)=0
1111	FORMAT(1X,I10,3A2,3A2)
120	CONTINUE
200	DO 205 II=1,SGTLNT
C	PRINT 201,(SEGTAB(I,II),I=1,5)
201	FORMAT(1X,3A2,I5,I5)
205	CONTINUE
	RETURN
	END