sistuspf_mod.f90

module sistuspf_mod
interface
	subroutine sistuspf(a, b, u, ip)
	implicit none
	real(8), intent (in) :: a(:,:), b(:)
	integer, intent (in) :: ip(:)
	real(8), intent (out) :: u(:)
	end subroutine sistuspf
end interface
end module sistuspf_mod