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
e1538aab
Commit
e1538aab
authored
Aug 08, 2018
by
mahe
Browse files
read/write function3d tested in serial/parallel and gamma-only/non-gamma-only case
parent
cc24e388
Changes
1
Show whitespace changes
Inline
Side-by-side
Wstat/wstat.f90
View file @
e1538aab
...
@@ -45,20 +45,6 @@ PROGRAM wstat
...
@@ -45,20 +45,6 @@ PROGRAM wstat
!
!
CALL
wstat_setup
(
)
CALL
wstat_setup
(
)
!
!
!PRINT*, SHAPE(evc)
!PRINT*, npw, npwx
PRINT
*
,
evc
(
1
:
100
,
3
)
!
CALL
write_function3d
(
'wfcl.f3d'
,
30
,
30
,
30
,
npw
,
npwx
,
evc
(:,
3
))
PRINT
*
,
"WRITE FINISHED"
!
CALL
read_function3d
(
'wfcl.f3d'
,
nx
,
ny
,
nz
,
npw
,
npwx
,
evc
(:,
3
))
PRINT
*
,
"READ FINISHED"
PRINT
*
,
nx
,
ny
,
nz
PRINT
*
,
evc
(
1
:
100
,
3
)
!
STOP
!
CALL
davidson_diago
(
)
CALL
davidson_diago
(
)
!
!
CALL
exx_ungo
(
)
CALL
exx_ungo
(
)
...
...
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