LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00
Code Issues Releases Wiki Activity

If associated

Browse Source
This commit is contained in:
Anthony Scemama 2015-11-12 01:12:24 +01:00
parent 1e15823494
commit bc0d6624ac
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Determinants/H_apply.irp.f
View File

@ -2,11 +2,11 @@ use bitmasks
use omp_lib use omp_lib
type H_apply_buffer_type type H_apply_buffer_type
integer :: N_det integer :: N_det
integer :: sze integer :: sze
integer(bit_kind), pointer :: det(:,:,:) integer(bit_kind), pointer :: det(:,:,:)
double precision , pointer :: coef(:,:) double precision , pointer :: coef(:,:)
double precision , pointer :: e2(:,:) double precision , pointer :: e2(:,:)
end type H_apply_buffer_type end type H_apply_buffer_type
type(H_apply_buffer_type), pointer :: H_apply_buffer(:) type(H_apply_buffer_type), pointer :: H_apply_buffer(:)
@ -42,7 +42,7 @@ type(H_apply_buffer_type), pointer :: H_apply_buffer(:)
!$OMP END PARALLEL !$OMP END PARALLEL
endif endif
do iproc=2,nproc-1 do iproc=2,nproc-1
if (.not.allocated(H_apply_buffer(iproc)%det)) then if (.not.associated(H_apply_buffer(iproc)%det)) then
print *, ' ===================== Error =================== ' print *, ' ===================== Error =================== '
print *, 'H_apply_buffer_allocated should be provided outside' print *, 'H_apply_buffer_allocated should be provided outside'
print *, 'of an OpenMP section' print *, 'of an OpenMP section'