git-svn-id: https://lxsd.femto-st.fr/svn/fvn@69 b657c933-2333-4658-acf2-d3c7c2708721
complex(kind(1.d0)) function zcosh (z) implicit none c april 1977 version. w. fullerton, c3, los alamos scientific lab. complex(kind(1.d0)) z, ci data ci /(0.,1.)/ c zcosh = cos (ci*z) c return end