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 ...@@ -1223,7 +1223,7 @@ MODULE m_cdn_io
INTEGER :: readDensityIndex, lastDensityIndex INTEGER :: readDensityIndex, lastDensityIndex
INTEGER :: sdIndex, ioStatus, mode INTEGER :: sdIndex, ioStatus, mode
INTEGER :: densityType INTEGER :: densityType
CHARACTER(LEN=20) :: numberString CHARACTER(LEN=1000) :: numberString
CHARACTER(LEN=30) :: archiveName CHARACTER(LEN=30) :: archiveName
LOGICAL :: l_exist LOGICAL :: l_exist
...@@ -1284,7 +1284,7 @@ MODULE m_cdn_io ...@@ -1284,7 +1284,7 @@ MODULE m_cdn_io
INTEGER :: readDensityIndex, lastDensityIndex INTEGER :: readDensityIndex, lastDensityIndex
INTEGER :: ioStatus, mode, i INTEGER :: ioStatus, mode, i
INTEGER :: startNumber, endNumber, separatorIndex INTEGER :: startNumber, endNumber, separatorIndex
CHARACTER(LEN=20) :: ddString CHARACTER(LEN=1000) :: ddString
CHARACTER(LEN=30) :: archiveName CHARACTER(LEN=30) :: archiveName
LOGICAL :: l_exist, l_deleted LOGICAL :: l_exist, l_deleted
......
...@@ -38,7 +38,7 @@ CONTAINS ...@@ -38,7 +38,7 @@ CONTAINS
FUNCTION juDFT_string_for_argument(arg) RESULT(argstring) FUNCTION juDFT_string_for_argument(arg) RESULT(argstring)
IMPLICIT NONE IMPLICIT NONE
CHARACTER(len=*),INTENT(IN)::arg CHARACTER(len=*),INTENT(IN)::arg
CHARACTER(len=20)::argstring CHARACTER(len=1000)::argstring
INTEGER:: i INTEGER:: i
CHARACTER(LEN=30)::str CHARACTER(LEN=30)::str
......
...@@ -399,7 +399,7 @@ CONTAINS ...@@ -399,7 +399,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
INTEGER,INTENT(IN) :: it INTEGER,INTENT(IN) :: it
LOGICAL,INTENT(INOUT) :: l_cont LOGICAL,INTENT(INOUT) :: l_cont
CHARACTER(len=20)::wtime_string CHARACTER(len=1000)::wtime_string
INTEGER :: wtime,time_used,time_per_iter INTEGER :: wtime,time_used,time_per_iter
INTEGER:: irank=0 INTEGER:: irank=0
#ifdef CPP_MPI #ifdef CPP_MPI
......
...@@ -91,7 +91,7 @@ CONTAINS ...@@ -91,7 +91,7 @@ CONTAINS
! !
!------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------
INTEGER:: n_members,n_size_min INTEGER:: n_members,n_size_min
CHARACTER(len=20)::txt CHARACTER(len=1000)::txt
n_members = MIN(nkpt,mpi%isize) n_members = MIN(nkpt,mpi%isize)
IF (judft_was_argument("-n_size_min")) THEN 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