	SUBROUTINE INTRPT(IDS)
C  DUMMY ROUTINE, CALLED BY STSCAN TO SEE IF USER TRIED TO ABORT RUN.
	INTEGER*2 IDS
	IDS=0
	RETURN
	END
