integer ipolesfailed,itotal,ibadpoint
      common/tensorinfo/ipolesfailed,itotal,ibadpoint