diff --git a/src/fortran/_dfm.f90 b/src/fortran/_dfm.f90
index d895b3a..e71b065 100644
--- a/src/fortran/_dfm.f90
+++ b/src/fortran/_dfm.f90
@@ -156,7 +156,7 @@ SUBROUTINE EPSILON(MYINFILE, MYOUTDIR)
 !  Opening input/log data files
 !
         OPEN(UNIT=5,FILE=TRIM(INPDATA(JF)),STATUS='OLD')            !
-        OPEN(UNIT=6,FILE=TRIM(LOGFILE(JF)),STATUS='UNKNOWN')        !
+!        OPEN(UNIT=6,FILE=TRIM(LOGFILE(JF)),STATUS='UNKNOWN')        !
 !
 !  Printing the headers
 !
@@ -317,7 +317,7 @@ SUBROUTINE EPSILON(MYINFILE, MYOUTDIR)
 !  Closing input/log data files
 !
         CLOSE(5)                                                    !
-        CLOSE(6)                                                    !
+!        CLOSE(6)                                                    !
 !
         IF(SQO_TYPE == 'UTI') THEN                                  !
           CLOSE(1)                                                  !