| 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 |