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

Tools/class_bz_grid.f90

@@ -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

Tools/do_setup.f90

@@ -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