Use two dimensions of arrays for two space dimensions in procedure sortvarc. Replace call to ssum by call to sum.