istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/main.f90: fix chdir to absolute output path

Browse Source
This commit is contained in:
Michele Guerini Rocco 2023-11-23 18:51:47 +01:00
parent 621c725948
commit 1b814fcb8a
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/main.f90
View File

@ -80,9 +80,12 @@ program main
call init_misc(params, data)
! Get back to the initial directory
err = chdir(cwd)
! Change the current directory to output files there
if (allocated(opts%output_dir)) then
if (chdir(trim(cwd) // '/' // opts%output_dir) /= 0) then
if (chdir(opts%output_dir) /= 0) then
call log_message(level=ERROR, mod='main', &
msg='chdir to output_dir ('//opts%output_dir//') failed!')
call exit(1)