projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Merge branch 'feature-ga' of mmka:unres into feature-ga
[unres.git]
/
source
/
unres
/
src_MD
/
md-diff
/
mts
/
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