From 41811905dd1aa615518402c6b0e078d5c5d44d75 Mon Sep 17 00:00:00 2001
From: wdaniau <wdaniau@b657c933-2333-4658-acf2-d3c7c2708721>
Date: Tue, 16 Feb 2010 08:14:32 +0000
Subject: [PATCH] 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
---
 fvn_fnlib/ztan.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fvn_fnlib/ztan.f b/fvn_fnlib/ztan.f
index 72ad2ab..6da169c 100644
--- a/fvn_fnlib/ztan.f
+++ b/fvn_fnlib/ztan.f
@@ -1,7 +1,7 @@
       complex(8) function ztan (z)
       implicit none
 c march 1979 edition.  w. fullerton, c3, los alamos scientific lab.
-      complex z
+      complex(8) z
       real(8) d1mach,eps, xmax, ylarge, ybig, ymin,sn2x,den
       real(8) x,y,x2,y2
       integer irold,irold2
-- 
2.16.4