sistuspf_mod.f90

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