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 use prec, only: pInt
implicit none implicit none
character(1024) :: getSolverJobName, outName character(1024) :: getSolverJobName, 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
integer(pInt) :: extPos integer(pInt) :: extPos
getSolverJobName='' getSolverJobName=''
outName='' inputName=''
inquire(6, name=outName) ! determine outputfile inquire(5, name=inputName) ! determine outputfile
extPos = len_trim(outName)-4 extPos = len_trim(inputName)-4
getSolverJobName=outName(scan(outName,pathSep,back=.true.)+1:extPos) getSolverJobName=inputName(scan(inputName,pathSep,back=.true.)+1:extPos)
! write(6,*) 'getSolverJobName', getSolverJobName ! write(6,*) 'getSolverJobName', getSolverJobName
end function getSolverJobName end function getSolverJobName