block data
      logical abort
      common /mc23bd/ lp,numnz,num,large,abort
      data lp/6/,abort/.false./
      end