	SUBROUTINE DIREC(ID,W,I,J)
C	ROUTINE TO CONVERT CRAWLERS DIRECTIONS TO ABSOLUTE
C	I IS DIRECTION - INPUT (REL)
C	J IS DIRECTION - OUTPUT (ABS)
C	W OS OPTIONAL CHARACTER DIRECTION
C	ID IS CRAWLER ID
C----------------------standard common block----------------------------
C 
	COMMON ICR(8,12),IPARM(10),IS1,IS2,NT,ICU(10,10,10,2),CLEAR(8)
	COMMON MARKER(4,3,3)
	LOGICAL*1 ICU,CLEAR
C 
C-----------------------------------------------------------------------
	LOGICAL*1 W
	J=ICR(ID,2)  ! DEFAULT IS FORWARD
	IF(I.EQ.2.OR.W.EQ.'L') J=ICR(ID,3)
	IF(I.EQ.3.OR.W.EQ.'B') J=ICR(ID,4)
	IF(I.EQ.4.OR.W.EQ.'R') J=ICR(ID,5)
	IF(I.EQ.5.OR.W.EQ.'U') J=ICR(ID,6)
	IF(I.EQ.6.OR.W.EQ.'D') J=ICR(ID,7)
	RETURN
	END
