did not compile without these statements
This commit is contained in:
parent
e84e90448e
commit
cf21d5ad49
|
@ -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
|
||||
|
|
|
@ -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) :: &
|
||||
|
|
Loading…
Reference in New Issue