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

Subversion Repositories openrisc

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

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


program NF
end program NF
subroutine mattest(nx,ny,nz,band1,band2,band3,stiffness,maxiter,targrms,method)
  integer,parameter :: dpkind=kind(1.0D0)
  character(*) :: method
  real(dpkind),allocatable,dimension(:) :: ad,au1,au2,au3,x,b
  allocate(ad(nxyz),au1(nxyz),au2(nxyz),au3(nxyz),x(nxyz),b(nxyz))
  au1(nx:nxyz:nx) = 0.0
  if ( method=='NFCG' ) then
  endif
end subroutine mattest

Line No.	Rev	Author	Line
1	694	jeremybenn	`program NF`
2			`end program NF`
3			`subroutine mattest(nx,ny,nz,band1,band2,band3,stiffness,maxiter,targrms,method)`
4			`integer,parameter :: dpkind=kind(1.0D0)`
5			`character(*) :: method`
6			`real(dpkind),allocatable,dimension(:) :: ad,au1,au2,au3,x,b`
7			`allocate(ad(nxyz),au1(nxyz),au2(nxyz),au3(nxyz),x(nxyz),b(nxyz))`
8			`au1(nx:nxyz:nx) = 0.0`
9			`if ( method=='NFCG' ) then`
10			`endif`
11			`end subroutine mattest`

Browse

Tools

Subversion Repositories openrisc

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