From 1f11a618887ee14bc8bfb2b15514eceb6bf2c875 Mon Sep 17 00:00:00 2001 From: Dunseath Kevin Date: Mon, 16 Mar 2020 15:45:51 +0100 Subject: [PATCH] In eig_mat_ms.f, moved initialisation of IOUT2 and IOUT3 to before the test on JE, otherwise they were not initialised for JE > 1 --- src/msspec/spec/fortran/eig/common/eig_mat_ms.f | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/msspec/spec/fortran/eig/common/eig_mat_ms.f b/src/msspec/spec/fortran/eig/common/eig_mat_ms.f index b29c9ae..03ee7e7 100644 --- a/src/msspec/spec/fortran/eig/common/eig_mat_ms.f +++ b/src/msspec/spec/fortran/eig/common/eig_mat_ms.f @@ -46,13 +46,19 @@ C NPRINT=10 C WRITE(IUO1,5) +CKMD + IOUT2=55 + IOUT3=60 +CKMD IF(JE.EQ.1) THEN C C Name of the second output file where all the eigenvalues C will be written C - IOUT2=55 - IOUT3=60 +CKMD Moved initialisation of IOUT2 and IOUT3 to before the test on JE, +CKMD otherwise they were not initialised for JE > 1 +CKMD IOUT2=55 +CKMD IOUT3=60 N_DOT=1 DO J_CHAR=1,24 IF(OUTFILE2(J_CHAR:J_CHAR).EQ.'.') GOTO 888