LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-29 16:34:50 +02:00
Code Issues Releases Wiki Activity

OMP PARALLEL BUG

Browse Source
This commit is contained in:
Anthony Scemama 2016-06-06 10:15:59 +02:00
parent ac3f5f9893
commit 85dfee525b
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Determinants/s2.irp.f
View File

@ -313,7 +313,7 @@ subroutine diagonalize_s2_betweenstates(keys_tmp,psi_coefs_inout,n,nmax_keys,nma
endif
enddo
enddo
!$OMP END PARALLEL
!$OMP END PARALLEL DO
print*,'Overlap matrix in the basis of the states considered'
do i = 1, nstates
write(*,'(10(F16.10,X))')overlap(i,:)