Commit e1e180c5 authored by Daniel Wortmann's avatar Daniel Wortmann

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

parent 76b990ae
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment