Commit f2018157 authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Remove intervening variable declarations in collapsed loops (unsupported by old compilers)

parent 44000bfd

src/trapping/cfrfme.cpp

+4 −4
Original line number Diff line number Diff line
@@ -737,9 +737,9 @@ void map_data( 


#pragma omp target teams distribute parallel for collapse(2)

  for (int j80 = jlmf - 1; j80 < jlml; j80++) {

    for (int jxy50 = 0; jxy50 < nkvs; jxy50++) {

      int j80_index = j80 - jlmf + 1;

      dcomplex *vec_w = global_vec_w + nkvs * j80_index;

    for (int jxy50 = 0; jxy50 < nkvs; jxy50++) {

      int wk_index = nlmmt * jxy50;

      dcomplex wk_value = vec_tt1_wk[wk_index + j80_index];

      int jy50 = jxy50 / nkv;
@@ -764,9 +764,9 @@ void offload_loop( 
  dcomplex uim = 0.0 + I * 1.0;

#pragma omp target teams distribute parallel for collapse(2)

  for (int j80 = jlmf - 1; j80 < jlml; j80++) {

    for (int ixyz = 0; ixyz < nvtot; ixyz++) {

      int j80_index = j80 - jlmf + 1;

      dcomplex *vec_w = global_vec_w + nkvs * j80_index;

    for (int ixyz = 0; ixyz < nvtot; ixyz++) {

      int iz75 = ixyz / nvxy;

      int iy70 = (ixyz % nvxy) / nxv;

      int ix65 = ixyz % nxv;