epsi
/
MsSpec-DFM
3
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Output is redirected to stdout by default.

This commit is contained in:
Sylvain Tricot 2022-03-07 11:53:48 +01:00
parent a28696d2a7
commit 2a5bfba3da
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/fortran/_dfm.f90
View File

@ -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) !