source/unres/src_MD/src/md-diff/md/eigtransf1.f

   1 c-------------------------------------------------------------
   2       subroutine eigtransf1(n,ndim,ab,d,c)
   3       implicit none
   4       integer n,ndim
   5       double precision ab(ndim,ndim,n),c(ndim,n),d(ndim)
   6       integer i,j,k
   7       do i=1,n
   8         do j=1,n
   9           c(i,j)=0.0d0
  10           do k=1,n
  11             c(i,j)=c(i,j)+ab(k,j,i)*d(k)
  12           enddo
  13         enddo
  14       enddo
  15       return
  16       end