dec-08-fmka-pa Logical Shift Subroutines