projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
aea2e0ef5e4ff8bdf5ceee1e4ac395a7d2e50c7f
[unres.git]
/
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