Implemented CHARACTER::IsBlockMode (closes #44)