$d1(0,0:3) .= $t(1:4,0,0);