blob: de7664ce6b34da34b9e1c3eba74bceb8b20cf17c [file] [log] [blame]
SUBROUTINE VROT2(N,DIS)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
PARAMETER(ZERO=0.0D+00)
COMMON /SYMSPD/ PTR(3,144)
DIMENSION DIS(3,2),TMP(3,2)
DO I = 1,3
TMP1 = ZERO
DO J = 1,3
TMP1 = TMP1 + PTR(I,N+J)
END DO
TMP(I,1) = TMP1
END DO
DO I = 1,3
DIS(I,1) = TMP(I,1)
END DO
RETURN
END