OpenCores

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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-19.f] - Rev 739

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

      SUBROUTINE ECCODR(FPQR)
      DIMENSION FPQR(25,25,25)
      INTEGER P,Q,R
      DIMENSION REC(73)
      DO 150 P=1,N4MAX,2
         QM2=-ONE
         DO 140 Q=1,N4MAX,2
            DO 130 R=1,N4MAX,2
               IF(P.GT.1) THEN
                  FPQR(P,Q,R)= QM2*FPQR(P,Q-2,R)*REC(P+Q-2+R)
               END IF
  130       RM2= RM2+TWO
  140    QM2= QM2+TWO
  150 PM2= PM2+TWO
      END

Go to most recent revision | 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.