223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/DAMASK_marc.f90
View File

@ -84,13 +84,13 @@ function getSolverWorkingDirectoryName()
implicit none implicit none
character(1024) getSolverWorkingDirectoryName, outName character(1024) getSolverWorkingDirectoryName, inputName
character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash
getSolverWorkingDirectoryName='' getSolverWorkingDirectoryName=''
outName='' inputName=''
inquire(6, name=outName) ! determine outputfile inquire(5, name=inputName) ! determine inputputfile
getSolverWorkingDirectoryName=outName(1:scan(outName,pathSep,back=.true.)) getSolverWorkingDirectoryName=inputName(1:scan(inputName,pathSep,back=.true.))
! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName ! write(6,*) 'getSolverWorkingDirectoryName', getSolverWorkingDirectoryName
end function getSolverWorkingDirectoryName end function getSolverWorkingDirectoryName