Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
west-public
West
Commits
3af78c01
Commit
3af78c01
authored
Jul 29, 2019
by
Marco Govoni
Browse files
Testing new fetch_input
parent
96ab1ade
Changes
1
Hide whitespace changes
Inline
Side-by-side
Wstat/wstat_readin.f90
View file @
3af78c01
...
...
@@ -36,7 +36,7 @@ SUBROUTINE wstat_readin()
!
! READ INPUT_WEST
!
CALL
fetch_input
(
1
,(/
1
/),
.TRUE.
)
CALL
fetch_input
1
(
1
,(/
1
/),
.TRUE.
)
!
! read the input file produced by the pwscf program
! allocate memory and recalculate what is needed
...
...
@@ -52,7 +52,7 @@ SUBROUTINE wstat_readin()
!
! READ other sections of the input file
!
CALL
fetch_input
(
1
,(/
2
/),
.TRUE.
)
CALL
fetch_input
1
(
1
,(/
2
/),
.TRUE.
)
!
CALL
stop_clock
(
'wstat_readin'
)
!
...
...
Write
Preview
Markdown
is supported
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