now uses unit 5 for file name inquiery (unit 6 points to stdout in 2012, might be a bug though)
This commit is contained in:
parent
98b790004a
commit
a5c27f22ca
|
@ -84,13 +84,13 @@ function getSolverWorkingDirectoryName()
|
|||
|
||||
implicit none
|
||||
|
||||
character(1024) getSolverWorkingDirectoryName, outName
|
||||
character(1024) getSolverWorkingDirectoryName, inputName
|
||||
character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash
|
||||
|
||||
getSolverWorkingDirectoryName=''
|
||||
outName=''
|
||||
inquire(6, name=outName) ! determine outputfile
|
||||
getSolverWorkingDirectoryName=outName(1:scan(outName,pathSep,back=.true.))
|
||||
inputName=''
|
||||
inquire(5, name=inputName) ! determine inputputfile
|
||||
getSolverWorkingDirectoryName=inputName(1:scan(inputName,pathSep,back=.true.))
|
||||
! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
|
||||
|
||||
end function getSolverWorkingDirectoryName
|
||||
|
|
Loading…
Reference in New Issue