Commit d613d813 authored by Matteo Gerosa's avatar Matteo Gerosa
Browse files

Initialization of bz_grid objects made compatible with XL compiler on Mira.

parent f41f571e
......@@ -192,7 +192,7 @@ MODULE class_bz_grid
! Workspace
!
INTEGER :: i
REAL(DP) :: dp(3)
REAL(DP) :: deltap(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
deltap(:) = p(:) - this%p_cryst(:,i) - NINT( p(:) - this%p_cryst(:,i) )
IF ( ALL ( ABS ( deltap ) .LT. eps8 ) ) THEN
ip = i + (is-1) * this%np
g0(:) = p(:) - this%p_cryst(:,ip)
EXIT
......
......@@ -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
......
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