lxsd / fvn

Download as
Browse Code ยป

Commit 41811905dd1aa615518402c6b0e078d5c5d44d75

Authored by wdaniau
1 parent ba393a2696
Exists in master and in 3 other branches geevx, geevx_2020, multi

Correction of a bad type declaration in ztan.f 

git-svn-id: https://lxsd.femto-st.fr/svn/fvn@67 b657c933-2333-4658-acf2-d3c7c2708721

Showing 1 changed file with 1 additions and 1 deletions Side-by-side Diff

1 1 complex(8) function ztan (z)
2 2 implicit none
3 3 c march 1979 edition. w. fullerton, c3, los alamos scientific lab.
4   - complex z
  4 + complex(8) z
5 5 real(8) d1mach,eps, xmax, ylarge, ybig, ymin,sn2x,den
6 6 real(8) x,y,x2,y2
7 7 integer irold,irold2