Salut!
En Fortran, ça donne:


Do I=1,N
Do K=1,N
C(I,K)=0.D0
Do J=I,N
C(I,K)=C(I,K)+A(I,J)*B(J,K)
End Do