function [catanhresult,z]=catanh(z);
catanhresult=[];
persistent ci firstCall ; if isempty(firstCall),firstCall=1;end;
;
%***BEGIN PROLOGUE CATANH
%***PURPOSE Compute the arc hyperbolic tangent.
%***LIBRARY SLATEC (FNLIB)
%***CATEGORY C4C
%***TYPE COMPLEX (ATANH-S, DATANH-D, CATANH-C)
%***KEYWORDS ARC HYPERBOLIC TANGENT, ATANH, ELEMENTARY FUNCTIONS,
% FNLIB, INVERSE HYPERBOLIC TANGENT
%***AUTHOR Fullerton, W., (LANL)
%***DESCRIPTION
%
% CATANH(Z) calculates the complex arc hyperbolic tangent of Z.
%
%***REFERENCES (NONE)
%***ROUTINES CALLED CATAN
%***REVISION HISTORY (YYMMDD)
% 770401 DATE WRITTEN
% 861211 REVISION DATE from Version 3.2
% 891214 Prologue converted to Version 4.0 format. (BAB)
%***end PROLOGUE CATANH
if isempty(ci), ci=0; end;
if firstCall, ci=[complex(0.,1.)]; end;
firstCall=0;
%***FIRST EXECUTABLE STATEMENT CATANH
catanhresult = -ci.*catan(ci.*z);
%
csnil=dbstack(1); csnil=csnil(1).name(1)~='@';
if csnil&&~isempty(inputname(1)), assignin('caller','FUntemp',z); evalin('caller',[inputname(1),'=FUntemp;']); end
end
%DECK CAXPY
