From a26456f9c0d3037cf5f1a989687214ba2f5f7c2e Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Thu, 9 Feb 2012 12:20:14 +0000
Subject: [PATCH] now handling capitals in restart argument correctly

---
 code/DAMASK_spectral_interface.f90 | 5 +++++
 1 file changed, 5 insertions(+)

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(64<iachar(commandLine(i:i)) .and. iachar(commandLine(i:i))<91) commandLine(i:i) =achar(iachar(commandLine(i:i))+32)
+ enddo
+
  start = index(commandLine,'-r',.true.) + 3_pInt                   ! search for '-r' and jump forward iby 3 to given name
  if (index(commandLine,'--restart',.true.)>0) 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)