OpenCores

URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr40421.f] - Rev 303

Compare with Previous | Blame | View Log

      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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.