← Back to branch summary

~alesster/siesta/trunk_new_xc

« back to all changes in this revision

Viewing changes to Src/fft.F

  • Committer: Nick Papior
  • Date: 2019-08-20 13:23:46 UTC
  • mfrom: (560.1.537 4.1)
  • Revision ID: nickpapior@gmail.com-20190820132346-weqqgh15flh6q6v7
Merged r1097, removed OMP collapse

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/fft.F
388
388
      call re_alloc( ftmp2, 1, 2, 1, n1lmax, 1, BlockSizeYMax, 1, n3l,
389
389
     &               name='ftmp2', routine='redistribXZ' )
390
390
 
391
 
!$OMP parallel do default(shared), private(i,j,k), collapse(3)
 
391
!$OMP parallel do default(shared), private(i,j,k)
392
392
      do i = 1,n3l
393
393
        do j = 1,BlockSizeYMax
394
394
          do k = 1,n1lmax
654
654
      call re_alloc( ftmp2, 1, 2, 1, n1lmax, 1, n2l, 1, BlockSizeZMax,
655
655
     &               name='ftmp2', routine='redistribXY' )
656
656
 
657
 
!$OMP parallel do default(shared), private(i,j,k), collapse(3)
 
657
!$OMP parallel do default(shared), private(i,j,k)
658
658
      do i = 1,BlockSizeZMax
659
659
        do j = 1,n2l
660
660
          do k = 1,n1lmax