[ccoshresult,z]=ccosh(z);

function [ccoshresult,z]=ccosh(z);
ccoshresult=[];
persistent ci firstCall ; if isempty(firstCall),firstCall=1;end; 

;
%***BEGIN PROLOGUE  CCOSH
%***PURPOSE  Compute the complex hyperbolic cosine.
%***LIBRARY   SLATEC (FNLIB)
%***CATEGORY  C4C
%***TYPE      COMPLEX (CCOSH-C)
%***KEYWORDS  ELEMENTARY FUNCTIONS, FNLIB, HYPERBOLIC COSINE
%***AUTHOR  Fullerton, W., (LANL)
%***DESCRIPTION
%
% CCOSH(Z) calculates the complex hyperbolic cosine of Z.
%
%***REFERENCES  (NONE)
%***ROUTINES CALLED  (NONE)
%***REVISION HISTORY  (YYMMDD)
%   770401  DATE WRITTEN
%   890531  Changed all specific intrinsics to generic.  (WRB)
%   890531  REVISION DATE from Version 3.2
%   891214  Prologue converted to Version 4.0 format.  (BAB)
%***end PROLOGUE  CCOSH
if isempty(ci), ci=0; end;
if firstCall,   ci=[complex(0.,1.)];  end;
firstCall=0;
%***FIRST EXECUTABLE STATEMENT  CCOSH
ccoshresult = cos(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 CCOT