RosettaCodeData/Task/Kronecker-product/Fortran/kronecker-product-2.f
2023-07-01 13:44:08 -04:00

1 line
83 B
Forth

AB(i,j) = A((i - 1)/RB + 1,(j - 1)/CB + 1)*B(MOD(i - 1,RB) + 1,MOD(j - 1,CB) + 1))