Subversion Repositories openrisc

      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