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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`subroutine dasol(al,au,ad,b,jp,neq,energy)`
2			`real8 al(),au(),ad(),b(*),zero,energy,bd,dot`
3			`do 100 is=1,neq`
4			`if(b(is).ne.zero) go to 200`
5			`100 continue`
6			`return`
7			`200 if(is.lt.neq) then`
8			`endif`
9			`do 400 j = is,neq`
10			`energy=energy+bd*b(j)`
11			`400 continue`
12			`if(neq.gt.1)then`
13			`endif`
14			`end`