mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-29 16:34:50 +02:00
If associated
This commit is contained in:
parent
1e15823494
commit
bc0d6624ac
|
@ -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'
|
||||
|
|
Loading…
Reference in New Issue
Block a user