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