function [cacoshresult,z]=cacosh(z);
cacoshresult=[];
persistent ci firstCall ; if isempty(firstCall),firstCall=1;end;
;
%***BEGIN PROLOGUE CACOSH
%***PURPOSE Compute the arc hyperbolic cosine.
%***LIBRARY SLATEC (FNLIB)
%***CATEGORY C4C
%***TYPE COMPLEX (ACOSH-S, DACOSH-D, CACOSH-C)
%***KEYWORDS ACOSH, ARC HYPERBOLIC COSINE, ELEMENTARY FUNCTIONS, FNLIB,
% INVERSE HYPERBOLIC COSINE
%***AUTHOR Fullerton, W., (LANL)
%***DESCRIPTION
%
% CACOSH(Z) calculates the complex arc hyperbolic cosine of Z.
%
%***REFERENCES (NONE)
%***ROUTINES CALLED CACOS
%***REVISION HISTORY (YYMMDD)
% 770401 DATE WRITTEN
% 861211 REVISION DATE from Version 3.2
% 891214 Prologue converted to Version 4.0 format. (BAB)
%***end PROLOGUE CACOSH
if isempty(ci), ci=0; end;
if firstCall, ci=[complex(0.,1.)]; end;
firstCall=0;
%***FIRST EXECUTABLE STATEMENT CACOSH
cacoshresult = ci.*cacos(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 CAIRY
