S=0.0 DO 10 I=1,N S=S+X(I)*Y(I) 10 CONTINUE END
DO 10 I=1,M DO 20 J=1,N S=0.0 DO 30 K=1,P S=S+A(I,K)*B(K,J) 30 CONTINUE C(I,J)=S 20 CONTINUE 10 CONTINUE END
DO 10 I=1,M S=0.0 DO 20 J=1,N S=S+A(I,J)*X(J) 20 CONTINUE Y(I)=S 10 CONTINUE END