function [x, flag, relres, iter, resvec] = tfqmr(varargin)
%TFQMR   Transpose Free Quasi-Minimal Residual Method for codistributed array.
%   X = TFQMR(A,B)
%   X = TFQMR(A,B)
%   X = TFQMR(A,B,TOL)
%   X = TFQMR(A,B,TOL,MAXIT)
%   X = TFQMR(A,B,TOL,MAXIT,M)
%   X = TFQMR(A,B,TOL,MAXIT,M1,M2)
%   X = TFQMR(A,B,TOL,MAXIT,M1,M2,X0)
%   [X,FLAG] = TFQMR(A,B,...)
%   [X,FLAG,RELRES] = TFQMR(A,B,...)
%   [X,FLAG,RELRES,ITER] = TFQMR(A,B,...)
%   [X,FLAG,RELRES,ITER,RESVEC] = TFQMR(A,B,...)
%      
%   If M1 is a function it is applied independently to each row.
%   
%   Example:
%   Using TFQMR to solve a large system of codistributed array data:
%   spmd
%       n = 1e6; 
%       dOnes = codistributed.ones(n,1); 
%       dA = spdiags([-2*dOnes 4*dOnes -dOnes],-1:1,n,n);
%       db = sum(dA,2);
%       tol = 1e-8; 
%       maxit = 15; 
%       
%       dX = TFQMR(dA,db,tol,maxit)
%   end
%   
%   See also TFQMR, CODISTRIBUTED.


%   Copyright 1984-2020 The MathWorks, Inc.

% Ensure that only the data inputs (args 1,2,5,6,7) are distributed
isData = [1 1 0 0 1 1 1];
varargin = distributedutil.CodistParser.prepareSolverInputs(varargin, isData);

% Check for an acceptable number of input arguments
if nargin < 2
    error(message('MATLAB:tfqmr:NotEnoughInputs'));
end
[A, b, tol, maxit, M1, M2, x0] = iterCheckArgs(varargin{:});

% Check for all zero right hand side vector => all zero solution
isBzero = (nnz(b) == 0);           % is rhs vector, b, all zeros
if (isBzero)                       % if rhs vector is all zeros
    x = b;                         % then  solution is all zeros
    flag = 0;                      % a valid solution has been obtained
    relres = 0;                    % the relative residual is actually 0/0
    iter = 0;                      % no iterations need be performed
    resvec = 0;                    % resvec(1) = norm(b-A*x) = norm(0)
    if (nargout < 2)
        parallel.internal.flowthrough.itermsg('tfqmr', tol, maxit, 0, flag, iter, NaN);
    end
    return
end

[localA, b, M1, M2, x0] = iterSetupArgs(A, b, M1, M2, x0);
workCodistrB = getCodistributor(b);

[localX, flag, relres, iter, resvec] = hTfqmrImpl(workCodistrB, localA, b, tol, maxit, M1, M2, x0);

% Only display a message if the output flag is not used
if nargout < 2
    parallel.internal.flowthrough.itermsg('tfqmr', tol, maxit, length(resvec), flag, iter, relres);
end

% Construct distributed result
x = codistributed.pDoBuildFromLocalPart(localX, workCodistrB);
end
