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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`SUBROUTINE EIJDEN(EPS,V,E,IA,WRK,L1,L2,L3,L0,ECI)`
2			`DIMENSION V(L1,L0),EPS(L2),E(*),IA(L1),WRK(L1),ECI(L0,L0)`
3			`IF(SCFTYP.EQ.RHF .AND. MPLEVL.EQ.0 .AND.`
4			`* CITYP.NE.GUGA .AND. CITYP.NE.CIS) THEN`
5			`CALL DCOPY(NORB,E(IADDE),1,E(IADD),1)`
6			`END IF`
7			`IF (CITYP.NE.GUGA) THEN`
8			`DO 500 I = 1,L1`
9			`DO 430 L = 1,NORB`
10			`DO 420 K = 1,NORB`
11			`IF(K.LE.L) THEN`
12			`WRK(L) = WRK(L) - V(I,K)*ECI(K,L)`
13			`ELSE`
14			`WRK(L) = WRK(L) - V(I,K)*ECI(L,K)`
15			`END IF`
16			`420 CONTINUE`
17			`430 CONTINUE`
18			`DO 440 L = 1,NORB`
19			`440 CONTINUE`
20			`500 CONTINUE`
21			`END IF`
22			`END`