also keep L2R

Author: Bruno02468

Source/LK9/LINK9/LINK9.f90

@@ -514,7 +514,7 @@ SUBROUTINE LINK9 ( LK9_PROC_NUM )
                WRITE(SC1,9092) LINKNO,MODNAM,HOUR,MINUTE,SEC,SFRAC
                CLOSE_IT   = 'Y'
                CALL ALLOCATE_SPARSE_MAT ( 'LMN',  NDOFM, NTERM_LMN, SUBR_NAME )
-               CALL READ_MATRIX_1 ( LINK2R, L2R, 'N', CLOSE_IT, L2RSTAT, L2R_MSG, 'LMN', NTERM_LMN, 'Y', NDOFM                     &
+               CALL READ_MATRIX_1 ( LINK2R, L2R, 'N', CLOSE_IT, 'KEEP', L2R_MSG, 'LMN', NTERM_LMN, 'Y', NDOFM                     &
                                   , I_LMN, J_LMN, LMN )
             ENDIF