Modified prsmpwr()