Blame view
fvn_fnlib/zacos.f
316 Bytes
0c3098aed ChW 02/2010 for t... |
1 |
complex(kind(1.d0)) function zacos (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 5 |
complex(kind(1.d0)) z, zasin real(kind(1.d0)) pi2 |
38581db0c git-svn-id: https... |
6 7 8 9 10 11 12 |
external zasin data pi2 /1.5707963267 9489661923d0/ c zacos = pi2 - zasin (z) c return end |