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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-2.f90] - Blame information for rev 862

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


module solv_cap
  integer, parameter, public :: dp = selected_real_kind(5)
contains
  subroutine prod0( G, X )
    real(kind=dp), intent(in out), dimension(:,:)    :: X
    real(kind=dp), dimension(size(X,1),size(X,2)) :: Y
    X = Y
  end subroutine prod0
  function Ginteg(xq1,yq1, xq2,yq2, xp,yp)  result(G)
  end function Ginteg
  subroutine fourir(A,ntot,kconjg, E,useold)
  end subroutine fourir
end module solv_cap

Line No.	Rev	Author	Line
1	302	jeremybenn	`module solv_cap`
2			`integer, parameter, public :: dp = selected_real_kind(5)`
3			`contains`
4			`subroutine prod0( G, X )`
5			`real(kind=dp), intent(in out), dimension(:,:) :: X`
6			`real(kind=dp), dimension(size(X,1),size(X,2)) :: Y`
7			`X = Y`
8			`end subroutine prod0`
9			`function Ginteg(xq1,yq1, xq2,yq2, xp,yp) result(G)`
10			`end function Ginteg`
11			`subroutine fourir(A,ntot,kconjg, E,useold)`
12			`end subroutine fourir`
13			`end module solv_cap`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-2.f90] - Blame information for rev 862