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

now both getSolverJobName and getSolverWorkingDirectoryName use unit 5!

This commit is contained in:
Franz Roters 2012-06-13 09:58:06 +00:00
parent dfc8606207
commit 7754416b35
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/DAMASK_marc.f90
View File

@ -110,15 +110,15 @@ function getSolverJobName()
use prec, only: pInt
implicit none
character(1024) :: getSolverJobName, outName
character(1024) :: getSolverJobName, inputName
character(len=*), parameter :: pathSep = achar(47)//achar(92) ! forward and backward slash
integer(pInt) :: extPos
getSolverJobName=''
outName=''
inquire(6, name=outName) ! determine outputfile
extPos = len_trim(outName)-4
getSolverJobName=outName(scan(outName,pathSep,back=.true.)+1:extPos)
inputName=''
inquire(5, name=inputName) ! determine outputfile
extPos = len_trim(inputName)-4
getSolverJobName=inputName(scan(inputName,pathSep,back=.true.)+1:extPos)
! write(6,*) 'getSolverJobName', getSolverJobName
end function getSolverJobName