Commit 01f64608 authored by Matthias Redies's avatar Matthias Redies

remove mpi fully

parent 61a3267d
......@@ -89,9 +89,6 @@
! read in cmt
DO ikpt = 1, nkpti
#ifdef CPP_MPI
IF (skip_kpt(ikpt)) CYCLE
#endif
call read_cmt(cmt(:, :, :, ikpt), ikpt)
END DO
......@@ -246,9 +243,6 @@
END IF
DO ikpt = 1, nkpti
#ifdef CPP_MPI
IF (skip_kpt(ikpt)) CYCLE
#endif
carr1 = 0; carr2 = 0; carr3 = 0
! calculate k1,k2,k3
......
......@@ -171,17 +171,8 @@ CONTAINS
! determine boundaries for parallel calculations
lower = 1
upper = nkpti
found = .false.
#ifdef CPP_MPI
DO ikpt = 1, nkpti
IF (.NOT. found) THEN
lower = ikpt
found = .true.
END IF
END DO
#else
found = .true.
#endif
IF (.NOT. found) THEN
upper = 0
END IF
......
......@@ -36,9 +36,7 @@ CONTAINS
!
IF (.NOT. ALLOCATED(hybrid%d_wgn2)) THEN !calculate sym%d_wgn only once
#ifndef CPP_MPI
PRINT *, "calculate wigner-matrix"
#endif
STOP "WIGNER MATRIX should be available in hybrid part"
!IF (.NOT.oneD%odi%d1) THEN
! ALLOCATE (sym%d_wgn(-atoms%lmaxd:atoms%lmaxd,-atoms%lmaxd:atoms%lmaxd,atoms%lmaxd,sym%nop))
......
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