lapack_interfaces.f90

Go to the documentation of this file.

 
 
module lapack_interfaces
  use num_types, only: rp
 
  implicit none
  private
 
  public :: dgesv
 
  interface
     pure subroutine dgesv(n, nrhs, a, lda, ipiv, b, ldb, info)
       import :: rp
       integer, intent(in) :: n, nrhs, lda, ldb
       real(kind=rp), intent(inout), dimension(lda, n) :: a
       integer, intent(out), dimension(n) :: ipiv
       real(kind=rp), intent(inout), dimension(ldb, nrhs) :: b
       integer, intent(out) :: info
     end subroutine dgesv
  end interface
 
end module lapack_interfaces