Blame view
fvn_fnlib/zacosh.f
276 Bytes
0c3098aed ChW 02/2010 for t... |
1 |
complex(kind(1.d0)) function zacosh (z) |
38581db0c git-svn-id: https... |
2 3 |
implicit none c april 1977 version. w. fullerton, c3, los alamos scientific lab. |
0c3098aed ChW 02/2010 for t... |
4 |
complex(kind(1.d0)) z, ci, zacos |
38581db0c git-svn-id: https... |
5 6 7 8 9 10 11 |
external zacos data ci /(0.d0,1.d0)/ c zacosh = ci*zacos(z) c return end |