FUNCTION ITBMOV(I,J)
C
C FORTRAN FUNCTION TO SIMULATE SHIFT OPERATOR
C DOES NOT WORK FOR NEGATIVE VALUE OF I
C
C I=ITEM TO BE SHIFTED
C J=NUMBER OF BITS TO BE SHIFTED
C
IF(J.EQ.0)GO TO 4
IF(I.LT.0)GO TO 2
IF(J.LT.0)GO TO 1
ITBMOV=I*(2**J)
GO TO 5
1 K=-J
ITBMOV=I/(2**K)
GO TO 5
2 WRITE(5,3)
3 FORMAT(34H SHIFT OF NEGATIVE VALUE ATTEMPTED)
4 ITBMOV=I
5 RETURN
END