Made possible arguments on command line longer (from 20 to 1000 chars)

io/cdn_io.F90

@@ -1223,7 +1223,7 @@ MODULE m_cdn_io
       INTEGER           :: readDensityIndex, lastDensityIndex
       INTEGER           :: sdIndex, ioStatus, mode
       INTEGER           :: densityType
-      CHARACTER(LEN=20) :: numberString
+      CHARACTER(LEN=1000) :: numberString
       CHARACTER(LEN=30) :: archiveName
       LOGICAL           :: l_exist
 
@@ -1284,7 +1284,7 @@ MODULE m_cdn_io
       INTEGER           :: readDensityIndex, lastDensityIndex
       INTEGER           :: ioStatus, mode, i
       INTEGER           :: startNumber, endNumber, separatorIndex
-      CHARACTER(LEN=20) :: ddString
+      CHARACTER(LEN=1000) :: ddString
       CHARACTER(LEN=30) :: archiveName
       LOGICAL           :: l_exist, l_deleted
 

juDFT/args.F90

@@ -38,7 +38,7 @@ CONTAINS
 FUNCTION juDFT_string_for_argument(arg) RESULT(argstring)
     IMPLICIT NONE
     CHARACTER(len=*),INTENT(IN)::arg
-    CHARACTER(len=20)::argstring
+    CHARACTER(len=1000)::argstring
 
     INTEGER:: i
     CHARACTER(LEN=30)::str

juDFT/time.F90

@@ -399,7 +399,7 @@ CONTAINS
     IMPLICIT NONE
     INTEGER,INTENT(IN)     :: it
     LOGICAL,INTENT(INOUT)  :: l_cont
-    CHARACTER(len=20)::wtime_string
+    CHARACTER(len=1000)::wtime_string
     INTEGER          :: wtime,time_used,time_per_iter
     INTEGER:: irank=0
 #ifdef CPP_MPI

mpi/setupMPI.F90

@@ -91,7 +91,7 @@ CONTAINS
     !
     !-------------------------------------------------------------------------------------------
     INTEGER:: n_members,n_size_min
-    CHARACTER(len=20)::txt
+    CHARACTER(len=1000)::txt
 
     n_members = MIN(nkpt,mpi%isize)
     IF (judft_was_argument("-n_size_min")) THEN