Removed unused variables and formats.
Made calls to allocation procedures specific, removed related MODULE PROCEDURE