Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
fleur
fleur
Commits
e1e180c5
Commit
e1e180c5
authored
Oct 10, 2017
by
Daniel Wortmann
Browse files
Made possible arguments on command line longer (from 20 to 1000 chars)
parent
76b990ae
Changes
4
Hide whitespace changes
Inline
Side-by-side
io/cdn_io.F90
View file @
e1e180c5
...
...
@@ -1223,7 +1223,7 @@ MODULE m_cdn_io
INTEGER
::
readDensityIndex
,
lastDensityIndex
INTEGER
::
sdIndex
,
ioStatus
,
mode
INTEGER
::
densityType
CHARACTER
(
LEN
=
2
0
)
::
numberString
CHARACTER
(
LEN
=
100
0
)
::
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
=
2
0
)
::
ddString
CHARACTER
(
LEN
=
100
0
)
::
ddString
CHARACTER
(
LEN
=
30
)
::
archiveName
LOGICAL
::
l_exist
,
l_deleted
...
...
juDFT/args.F90
View file @
e1e180c5
...
...
@@ -38,7 +38,7 @@ CONTAINS
FUNCTION
juDFT_string_for_argument
(
arg
)
RESULT
(
argstring
)
IMPLICIT
NONE
CHARACTER
(
len
=*
),
INTENT
(
IN
)::
arg
CHARACTER
(
len
=
2
0
)::
argstring
CHARACTER
(
len
=
100
0
)::
argstring
INTEGER
::
i
CHARACTER
(
LEN
=
30
)::
str
...
...
juDFT/time.F90
View file @
e1e180c5
...
...
@@ -399,7 +399,7 @@ CONTAINS
IMPLICIT
NONE
INTEGER
,
INTENT
(
IN
)
::
it
LOGICAL
,
INTENT
(
INOUT
)
::
l_cont
CHARACTER
(
len
=
2
0
)::
wtime_string
CHARACTER
(
len
=
100
0
)::
wtime_string
INTEGER
::
wtime
,
time_used
,
time_per_iter
INTEGER
::
irank
=
0
#ifdef CPP_MPI
...
...
mpi/setupMPI.F90
View file @
e1e180c5
...
...
@@ -91,7 +91,7 @@ CONTAINS
!
!-------------------------------------------------------------------------------------------
INTEGER
::
n_members
,
n_size_min
CHARACTER
(
len
=
2
0
)::
txt
CHARACTER
(
len
=
100
0
)::
txt
n_members
=
MIN
(
nkpt
,
mpi
%
isize
)
IF
(
judft_was_argument
(
"-n_size_min"
))
THEN
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment