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
d613d813
Commit
d613d813
authored
Dec 12, 2017
by
Matteo Gerosa
Browse files
Initialization of bz_grid objects made compatible with XL compiler on Mira.
parent
f41f571e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Tools/class_bz_grid.f90
View file @
d613d813
...
...
@@ -192,7 +192,7 @@ MODULE class_bz_grid
! Workspace
!
INTEGER
::
i
REAL
(
DP
)
::
dp
(
3
)
REAL
(
DP
)
::
d
elta
p
(
3
)
!
SELECT
CASE
(
unit_type
)
CASE
(
"cryst"
,
"cart"
)
...
...
@@ -206,8 +206,8 @@ MODULE class_bz_grid
!
ip
=
0
DO
i
=
1
,
this
%
np
dp
(:)
=
p
(:)
-
this
%
p_cryst
(:,
i
)
-
NINT
(
p
(:)
-
this
%
p_cryst
(:,
i
)
)
IF
(
ALL
(
ABS
(
dp
)
.LT.
eps8
)
)
THEN
d
elta
p
(:)
=
p
(:)
-
this
%
p_cryst
(:,
i
)
-
NINT
(
p
(:)
-
this
%
p_cryst
(:,
i
)
)
IF
(
ALL
(
ABS
(
d
elta
p
)
.LT.
eps8
)
)
THEN
ip
=
i
+
(
is
-1
)
*
this
%
np
g0
(:)
=
p
(:)
-
this
%
p_cryst
(:,
ip
)
EXIT
...
...
Tools/do_setup.f90
View file @
d613d813
...
...
@@ -63,10 +63,10 @@ SUBROUTINE do_setup
!
! INIT K, Q GRIDS
!
k_grid
=
bz_grid
()
!
k_grid = bz_grid()
CALL
k_grid
%
init
(
'K'
)
!
q_grid
=
bz_grid
()
!
q_grid = bz_grid()
CALL
q_grid
%
init
(
'Q'
)
!
IF
(
ANY
(
(
q_grid
%
ngrid
(:)
-
k_grid
%
ngrid
(:))
/
=
0
)
)
THEN
...
...
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