logical         errck
      common /errchk/ errck