%*****************************************************************
% File: COORCI.M
%
% Scopo: Metodo delle coordinate ciclico per sist. lin.
%
% Uso:	 [xv,iter]=coorci(a,f,xin,nmax,toll,omega)
%
% Input: A matrice sistema, F vettore termini noti, XIN vettore
%	 iniziale,  NMAX numero max iterazioni, TOLL precisione
%	 richiesta, OMEGA fattore di rilassamento
%
% Output: XV vettore soluzione, ITER numero iterazioni
%
% Richiami:
%
% Commenti: Non si controllano le condizioni di convergenza.
%
% Autori: mffc
%*****************************************************************

function [xv,iter]=coorci(a,f,xin,nmax,toll,omega)
n=max(size(a));
k=1;
i=1;
er=1;
e=eye(a);
xv=xin;
while k