2
c $Id: tool_rebox.f,v 1.1 2008-10-01 22:32:32 marat Exp $
5
SUBROUTINE tool_rebox(n,mxarray,latt,rlatt,aaa)
13
real*8 rlatt(3,3),latt(3,3)
15
real*8 ssx,ssy,ssz,xss,yss,zss
19
ssx=(rlatt(1,1)*aaa(i,1)+rlatt(1,2)*aaa(i,2)+rlatt(1,3)*aaa(i,3))
20
ssy=(rlatt(2,1)*aaa(i,1)+rlatt(2,2)*aaa(i,2)+rlatt(2,3)*aaa(i,3))
21
ssz=(rlatt(3,1)*aaa(i,1)+rlatt(3,2)*aaa(i,2)+rlatt(3,3)*aaa(i,3))
27
aaa(i,1)=(latt(1,1)*xss+latt(1,2)*yss+latt(1,3)*zss)
28
aaa(i,2)=(latt(2,1)*xss+latt(2,2)*yss+latt(2,3)*zss)
29
aaa(i,3)=(latt(3,1)*xss+latt(3,2)*yss+latt(3,3)*zss)