integer iflag_pbl
      common/compbl/iflag_pbl