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:
Franz Roters 2012-06-13 07:28:43 +00:00
parent 98b790004a
commit a5c27f22ca
1 changed files with 4 additions and 4 deletions

View File

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