1      SUBROUTINE VROT2(N,DIS)
2      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3      PARAMETER(ZERO=0.0D+00)
4      COMMON /SYMSPD/ PTR(3,144)
5      DIMENSION DIS(3,2),TMP(3,2)
6      DO I = 1,3
7        TMP1 = ZERO
8        DO J = 1,3
9          TMP1 = TMP1 + PTR(I,N+J)
10        END DO
11        TMP(I,1) = TMP1
12      END DO
13      DO I = 1,3
14        DIS(I,1) = TMP(I,1)
15      END DO
16      RETURN
17      END
18
19