added codes to EWSUSY::PiTp_A().