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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-23.f] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
      SUBROUTINE CAMB(RX2,RTX,NUM)
2 
      DIMENSION RX2(NUM,NUM),RTX(NUM,NUM)
3 
      DO I=1,NUM
4 
        DO J=1,I
5 
          DO M=1,NUM
6 
            RX2(I,J)=RX2(I,J)+RTX(M,I)
7 
          END DO
8 
        END DO
9 
      END DO
10 
      IF (RX2(I,1).LE.EIGCT2) THEN
11 
      RTX(I,1)=4.0D+00
12 
      END IF
13 
      END

powered by: WebSVN 2.1.0

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