Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Matrix-multiplication/Fortran/matrix-multiplication-1.f
+++ b/Task/Matrix-multiplication/Fortran/matrix-multiplication-1.f
--- a/Task/Matrix-multiplication/Fortran/matrix-multiplication-2.f
+++ b/Task/Matrix-multiplication/Fortran/matrix-multiplication-2.f
@ -0,0 +1,7 @@
+        program mm
+          real   , allocatable :: a(:,:),b(:,:)
+          integer              :: l=5,m=6,n=4
+          a = reshape([1:l*m],[l,m])
+          b = reshape([1:m*n],[m,n])
+          print'(<n>f15.7)',transpose(matmul(a,b))
+        end program