Removed unused routine LENGTH (REF-125)