PROGRAM RSD1T
C     TEST RSD1
      COMMON /RSD1C/ IERR,IDS,ITI,IBF(15)
      COMMON/LSWCM/ LSW(16)
	LOGICAL LSW
C
      	TMX=10.
        LSW (3)=.TRUE.
	IDS=0
	CALL RSD1I
C
10	CONTINUE
	IF(IDS.EQ.0 .AND. IERR.NE.-1) GO TO 50
	TYPE *,LSW
	TYPE 21,IERR,IDS,ITI,ITI
 21     FORMAT(' IERR,IDS,ITI: ',2I10,I5,2X,A2)
	TYPE 23,IBF
 23     FORMAT(' IBF:',A2)
	IDS=0
 50 	CONTINUE
	IF(ETIME(DUMMY).GT.TMX) STOP
	GO TO 10
	END