c set to initiate printing of debugging info
c
      logical debug,debug1
      common /dbg/debug,debug1