gausspiv_mod.f90

module gausspiv_mod
interface
	subroutine gausspiv(a, b, ip, det)
	implicit none
	real(8), intent (inout) :: a(:,:)
	real(8), intent (inout) :: b(:)
	integer, intent (out) :: ip(:)
	real(8), intent (out) :: det
	end subroutine gausspiv
end interface
end module gausspiv_mod