From cf21d5ad49e67f9e21deb9d270120523536adc1e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 13 Mar 2016 19:01:01 +0100 Subject: [PATCH] did not compile without these statements --- code/Makefile | 1 + code/spectral_interface.f90 | 8 +++++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/code/Makefile b/code/Makefile index a0d5ffd26..00639ea52 100644 --- a/code/Makefile +++ b/code/Makefile @@ -626,6 +626,7 @@ IO.o: IO.f90 \ DAMASK_interface.o: spectral_interface.f90 \ $(wildcard DAMASK_FEM_interface.f90) \ prec.o + $(PREFIX) $(COMPILERNAME) $(COMPILE) -c $(INTERFACENAME) -o DAMASK_interface.o $(SUFFIX) prec.o: prec.f90 \ system_routines.o diff --git a/code/spectral_interface.f90 b/code/spectral_interface.f90 index 4010b07ca..731225884 100644 --- a/code/spectral_interface.f90 +++ b/code/spectral_interface.f90 @@ -250,7 +250,7 @@ character(len=1024) function storeWorkingDirectory(workingDirectoryArg,geometryA if (geometryArg(1:1) == pathSep) then ! absolute path given as command line argument storeWorkingDirectory = geometryArg(1:scan(geometryArg,pathSep,back=.true.)) else - error = getCWD2(cwd) ! relative path given as command line argument + error = getCWD2(cwd) ! relative path given as command line argument storeWorkingDirectory = trim(cwd)//pathSep//& geometryArg(1:scan(geometryArg,pathSep,back=.true.)) endif @@ -264,6 +264,8 @@ end function storeWorkingDirectory !> @brief simply returns the private string workingDir !-------------------------------------------------------------------------------------------------- character(len=1024) function getSolverWorkingDirectoryName() + use system_routines, only: & + getCWD2 implicit none getSolverWorkingDirectoryName = workingDirectory @@ -302,6 +304,8 @@ end function getSolverJobName !> @brief basename of geometry file with extension from command line arguments !-------------------------------------------------------------------------------------------------- character(len=1024) function getGeometryFile(geometryParameter) + use system_routines, only: & + getCWD2 implicit none character(len=1024), intent(in) :: & @@ -334,6 +338,8 @@ end function getGeometryFile !> @brief relative path of loadcase from command line arguments !-------------------------------------------------------------------------------------------------- character(len=1024) function getLoadCaseFile(loadCaseParameter) + use system_routines, only: & + getCWD2 implicit none character(len=1024), intent(in) :: &