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 | |