URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr40421.f] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | 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
 

Line No.	Rev	Author	Line
1	695	jeremybenn	`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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr40421.f] - Blame information for rev 801