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