From bc0d6624acda0c83f87c594657d423617f07bdb7 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Thu, 12 Nov 2015 01:12:24 +0100 Subject: [PATCH] If associated --- src/Determinants/H_apply.irp.f | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Determinants/H_apply.irp.f b/src/Determinants/H_apply.irp.f index 4814000c..7e9861fe 100644 --- a/src/Determinants/H_apply.irp.f +++ b/src/Determinants/H_apply.irp.f @@ -2,11 +2,11 @@ use bitmasks use omp_lib type H_apply_buffer_type -integer :: N_det -integer :: sze -integer(bit_kind), pointer :: det(:,:,:) -double precision , pointer :: coef(:,:) -double precision , pointer :: e2(:,:) + integer :: N_det + integer :: sze + integer(bit_kind), pointer :: det(:,:,:) + double precision , pointer :: coef(:,:) + double precision , pointer :: e2(:,:) end type H_apply_buffer_type 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 endif 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 *, 'H_apply_buffer_allocated should be provided outside' print *, 'of an OpenMP section'