SUBROUTINE DEV000(IN3,IN2,IN)
C..	THIS ROUTINE DEVIDES BY 1000
	ITEMP=IN/1000
	IN3=IN3+ITEMP
	IN2=IN2+IN-ITEMP*1000
	ITEMP=IN2/1000
	IN3=IN3+ITEMP
	IN2=IN2-ITEMP*1000
	RETURN
	END