diff --git a/code/DAMASK_spectral_interface.f90 b/code/DAMASK_spectral_interface.f90 index 196064787..219830c6e 100644 --- a/code/DAMASK_spectral_interface.f90 +++ b/code/DAMASK_spectral_interface.f90 @@ -119,12 +119,17 @@ subroutine DAMASK_interface_init() loadcaseParameter = '' ! should be empty loadcaseParameter(1:length)=commandLine(start:start+length) + do i=1,len(commandLine) ! remove capitals + if(640) then ! if '--restart' is found, use that (contains '-l') start = index(commandLine,'--restart',.true.) + 7_pInt endif length = index(commandLine(start:len(commandLine)),' ',.false.) + call get_command(commandLine) ! may contain capitals call GET_ENVIRONMENT_VARIABLE('HOST',hostName) call GET_ENVIRONMENT_VARIABLE('USER',userName)