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] - Blame information for rev 774

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`SUBROUTINE ECCODR(FPQR)`
2			`DIMENSION FPQR(25,25,25)`
3			`INTEGER P,Q,R`
4			`DIMENSION REC(73)`
5			`DO 150 P=1,N4MAX,2`
6			`QM2=-ONE`
7			`DO 140 Q=1,N4MAX,2`
8			`DO 130 R=1,N4MAX,2`
9			`IF(P.GT.1) THEN`
10			`FPQR(P,Q,R)= QM2FPQR(P,Q-2,R)REC(P+Q-2+R)`
11			`END IF`
12			`130 RM2= RM2+TWO`
13			`140 QM2= QM2+TWO`
14			`150 PM2= PM2+TWO`
15			`END`

Browse

Tools

Subversion Repositories openrisc

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