SUBROUTINE SHIFT(IN,IOUT,NSHIFT)
C SHIFTS THE INPUT "IN" BY THE ARGUMENT "NSHIFT"
C IF NSHIFT IS	: 0	IOUT=IN
C		> 0	IOUT IS "IN" SHIFTED RIGHT NSHIFT BITS
C			ZEROS FILLED FROM THE LEFT
C		< 0	IOUT IS "IN" SHIFTED LEFT NSHIFT BITS
C			ZEROS FILLED FROM THE RIGHT
C FORTRAN II
	IT=IN
	IF(NSHIFT)1000,1010,1020
1000	N=-NSHIFT
1002	DO 1005 J=1,N
S	CLA CLL
S	TAD \IT
S	RAL
S	DCA \IT
1005	CONTINUE
1010	IOUT=IT
	RETURN
1020	DO 1025 J=1,NSHIFT
S	CLA CLL
S	TAD \IT
S	RAR
S	DCA \IT
1025	CONTINUE
	GOTO 1010
	END