From a5c27f22ca7d402395a78244380dcce77c7511b8 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Wed, 13 Jun 2012 07:28:43 +0000 Subject: [PATCH] now uses unit 5 for file name inquiery (unit 6 points to stdout in 2012, might be a bug though) --- code/DAMASK_marc.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90 index 5158005fa..115babb2c 100644 --- a/code/DAMASK_marc.f90 +++ b/code/DAMASK_marc.f90 @@ -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