mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 14:01:46 +02:00
Allocatable minilist
This commit is contained in:
parent
28cac78c05
commit
5502f94503
@ -904,12 +904,13 @@ subroutine create_minilist_find_previous(key_mask, fullList, miniList, N_fullLis
|
||||
integer, intent(in) :: Nint
|
||||
integer(bit_kind), intent(in) :: fullList(Nint, 2, N_fullList)
|
||||
integer(bit_kind),intent(out) :: miniList(Nint, 2, N_fullList)
|
||||
integer(bit_kind) :: subList(Nint, 2, N_fullList)
|
||||
integer(bit_kind), allocatable :: subList(:,:,:)
|
||||
logical,intent(out) :: fullMatch
|
||||
integer,intent(out) :: N_miniList
|
||||
integer(bit_kind) :: key_mask(Nint, 2)
|
||||
integer :: ni, i, k, l, N_subList
|
||||
|
||||
allocate (subList(Nint, 2, N_fullList))
|
||||
|
||||
fullMatch = .false.
|
||||
N_miniList = 0
|
||||
@ -962,6 +963,8 @@ subroutine create_minilist_find_previous(key_mask, fullList, miniList, N_fullLis
|
||||
enddo
|
||||
N_minilist = N_minilist + N_subList
|
||||
end if
|
||||
|
||||
deallocate(sublist)
|
||||
end subroutine
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user