Ticket #45617: patch-src-71_bse-haydock.F90.diff

File patch-src-71_bse-haydock.F90.diff, 1.6 KB (added by cram5431@…, 10 years ago)

Patch: correct a syntax error in openMP directives

  • src/71_bse/haydock.F90

    old new  
    22292229
    22302230 c = czero
    22312231
    2232  !$OMP PARALLEL DO DEFAULT(none) PRIVATE(A,b,c,is1,iv1,ic1,ibnd_coarse,it,allindices,is,iv,ic,idense,ineighbour,ind_with_nb) SHARED(BSp,overlaps,phi,nbnd_coarse,ophi,grid)
     2232!$OMP PARALLEL DO DEFAULT(none) PRIVATE(A,b,c,is1,iv1,ic1,ibnd_coarse,it,allindices, &
     2233!$OMP is,iv,ic,idense,ineighbour,ind_with_nb), &
     2234!$OMP SHARED(BSp,overlaps,phi,nbnd_coarse,ophi,grid)
    22332235 do ik_dense = 1,grid%nbz_dense
    22342236 ! if( ik_dense is not in my set of k-points)
    22352237 !   ! continue
    … …  
    22922294 ABI_MALLOC(b,(grid%ndiv))
    22932295 ABI_MALLOC(c,(grid%ndiv))
    22942296
    2295  !$OMP PARALLEL DO COLLAPSE(2) DEFAULT(none) PRIVATE(is, it_coarse, ibnd_coarse, ineighbour, b, c, tmp) SHARED(allp,BSp,interp_factors,ophi,indices)
     2297 !$OMP PARALLEL DO COLLAPSE(2) DEFAULT(none), &
     2298 !$OMP PRIVATE(is, it_coarse, ibnd_coarse, ineighbour, b, c, tmp), &
     2299 !$OMP SHARED(allp,BSp,interp_factors,ophi,indices)
    22962300 do is = 1, BSp%nsppol
    22972301   do ineighbour = 1,8
    22982302
    … …  
    23482352
    23492353 c = czero
    23502354
    2351  !$OMP PARALLEL DO COLLAPSE(2) DEFAULT(none) PRIVATE(ineighbour,ik_dense,is1,iv1,ic1,is,iv,ic,A,b,c,ibnd_coarse,ik_coarse,it,idense) SHARED(test,overlaps,ophi,BSp,grid,corresp,nbnd_coarse)
     2355 !$OMP PARALLEL DO COLLAPSE(2) DEFAULT(none), &
     2356 !$OMP PRIVATE(ineighbour,ik_dense,is1,iv1,ic1,is,iv,ic,A,b,c,ibnd_coarse, &
     2357 !$OMP ik_coarse,it,idense), &
     2358 !$OMP SHARED(test,overlaps,ophi,BSp,grid,corresp,nbnd_coarse)
    23522359 do ineighbour = 1,8
    23532360   do ik_dense = 1,grid%nbz_dense
    23542361     do is1 = 1, Bsp%nsppol