added kind=mk to h-variable in init of rhs