Use default(none) in elpa_transpose_vectors_ss

src/elpa1/elpa_transpose_vectors_ss.F90

@@ -131,7 +131,11 @@ subroutine elpa_transpose_vectors_ss_&
   allocate(aux( ((nblks_tot-nblks_skip+lcm_s_t-1)/lcm_s_t) * nblk * nvc ))
   check_allocate("elpa_transpose_vectors_ss: aux", istat, errorMessage)
 #ifdef WITH_OPENMP_TRADITIONAL
-  !$omp parallel private(lc, i, k, ns, nl, nblks_comm, auxstride, ips, ipt, n)
+  !$omp parallel &
+  !$omp default(none) &
+  !$omp private(lc, i, k, ns, nl, nblks_comm, auxstride, ips, ipt, n) &
+  !$omp shared(nps, npt, lcm_s_t, mypt, nblk, myps, vmat_t, mpierr, comm_s, &
+  !$omp&       obj, vmat_s, aux, nblks_skip, nblks_tot, nvc, nvr)
 #endif
   do n = 0, lcm_s_t-1