Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,19 @@
+      subroutine matrixsquare_up(m,n,A,B)
+      implicit none
+
+! compute B=AA^T. B is symmetrical so only its upper triangle is computed.
+      integer m,n
+      double precision A(m,n),B(m,m)
+      
+      integer i,j,k
+      do i=1,m
+        do j=i,m
+          B(i,j)=0.0d0
+          do k=1,n
+            B(i,j)=B(i,j)+A(i,k)*A(j,k)
+          enddo
+        enddo
+      enddo
+      return
+      end
+