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