Help for this page

Select Code to Download

Select or download this

sub add{
    my ($i, $j, $add) = @_;
    $_[$tc]{value}[$i][$j] += $add;
    }