LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 10:05:57 +01:00
Code Issues Releases Wiki Activity

Fixed 4 idx

Browse Source
This commit is contained in:
Anthony Scemama 2017-12-12 22:56:09 +01:00
parent 2ede44f483
commit 31b3b7dd79
1 changed files with 3 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/FourIdx/four_index_slave.irp.f
View File

@ -185,9 +185,10 @@ subroutine four_index_transform_slave_work(map_a,matrix_B,LDB, &
V2d(1,b_start), size(V2d,1) ) V2d(1,b_start), size(V2d,1) )
deallocate(T2d) deallocate(T2d)
!$OMP FLUSH(n_running_threads)
!$OMP PARALLEL DEFAULT(NONE) SHARED(a_array_ik,a_array_j,a_array_value, & !$OMP PARALLEL DEFAULT(NONE) SHARED(a_array_ik,a_array_j,a_array_value, &
!$OMP a_start,b_start,b_end,c_start,c_end,i_start,k_start,k_end, & !$OMP a_start,b_start,b_end,c_start,c_end,i_start,k_start,k_end, &
!$OMP matrix_B,U,l,d,V2d,i_end,a_end) & !$OMP matrix_B,U,l,d,V2d,i_end,a_end,n_running_threads) &
!$OMP PRIVATE(T,V,i,k,ik) NUM_THREADS(nproc-n_running_threads+1) !$OMP PRIVATE(T,V,i,k,ik) NUM_THREADS(nproc-n_running_threads+1)
allocate( V(i_start:i_end, k_start:k_end), T(k_start:k_end, a_start:a_end)) allocate( V(i_start:i_end, k_start:k_end), T(k_start:k_end, a_start:a_end))
!$OMP DO SCHEDULE(static,1) !$OMP DO SCHEDULE(static,1)
@ -251,25 +252,8 @@ subroutine four_index_transform_slave_work(map_a,matrix_B,LDB, &
call four_idx_push_results(zmq_socket_push, key, value, idx, -task_id) call four_idx_push_results(zmq_socket_push, key, value, idx, -task_id)
deallocate(key,value) deallocate(key,value)
!WRITE OUTPUT
! OMP CRITICAL
!print *, d
!do b=b_start,d
! do c=c_start,c_end
! do a=a_start,min(b,c)
! if (dabs(U(a,c,b)) < 1.d-15) then
! cycle
! endif
! write(10,*) d,c,b,a,U(a,c,b)
! enddo
! enddo
!enddo
! OMP END CRITICAL
!END WRITE OUTPUT
enddo enddo
!$OMP END DO !$OMP END DO NOWAIT
deallocate(U) deallocate(U)
!$OMP ATOMIC !$OMP ATOMIC