lupiv_mod.f90

module lupiv_mod
interface
	subroutine lupiv(a, ip, det)
	implicit none
	real(8), intent (inout) :: a(:,:)
	integer, intent (out) :: ip(:)
	real(8), intent (out) :: det
	end subroutine lupiv
end interface
end module lupiv_mod