 hkon_secder_tch.f |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/hkon_secder_tch.f b/hkon_secder_tch.f
index 31794b0..86d2cdf 100644
--- a/hkon_secder_tch.f
+++ b/hkon_secder_tch.f
@@ -3724,7 +3724,8 @@ c---External functions and subprutines
       INTEGER NWORKSPACE
       REAL*8 TOLER
       REAL*8 WORKSPACE(300)
-      REAL LSTLSQ,D2DF_WEIGHT
+      REAL*8 D2DF_WEIGHT
+      REAL LSTLSQ
 C
       INTEGER IBIN,IBIN_S
       INTEGER I,J,K