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 ! Opening input/log data files
! !
OPEN(UNIT=5,FILE=TRIM(INPDATA(JF)),STATUS='OLD') ! 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 ! Printing the headers
! !
@ -317,7 +317,7 @@ SUBROUTINE EPSILON(MYINFILE, MYOUTDIR)
! Closing input/log data files ! Closing input/log data files
! !
CLOSE(5) ! CLOSE(5) !
CLOSE(6) ! ! CLOSE(6) !
! !
IF(SQO_TYPE == 'UTI') THEN ! IF(SQO_TYPE == 'UTI') THEN !
CLOSE(1) ! CLOSE(1) !