diff --git a/src/bandstr.f90 b/src/bandstr.f90 index 58f774a5d..8a155d960 100644 --- a/src/bandstr.f90 +++ b/src/bandstr.f90 @@ -149,7 +149,7 @@ Subroutine bandstr splittfile = .True. Do ik = firstk (rank), lastk (rank) #endif -#ifdef KSMP +#ifdef USEOMP !$OMP PARALLEL DEFAULT(SHARED) & !$OMP PRIVATE(evalfv,evecfv,evecsv) & !$OMP PRIVATE(dmat,apwalm) & @@ -224,7 +224,7 @@ Subroutine bandstr Call MPI_barrier(MPI_COMM_WORLD, ierr) #endif -#ifdef KSMP +#ifdef USEOMP !$OMP END DO !$OMP END PARALLEL #endif