10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 13:53:49 +01:00

Fixed bound

This commit is contained in:
Anthony Scemama 2018-06-27 16:31:48 +02:00
parent 7246641fce
commit 724cab95f4

View File

@ -561,7 +561,7 @@ subroutine add_comb(com, computed, cp, N, tbc)
implicit none implicit none
double precision, intent(in) :: com double precision, intent(in) :: com
integer, intent(inout) :: N integer, intent(inout) :: N
double precision, intent(inout) :: cp(N_det_non_ref) double precision, intent(inout) :: cp(N_det_generators)
logical, intent(inout) :: computed(N_det_generators) logical, intent(inout) :: computed(N_det_generators)
integer, intent(inout) :: tbc(N_det_generators) integer, intent(inout) :: tbc(N_det_generators)
integer :: i, k, l, dets(comb_teeth) integer :: i, k, l, dets(comb_teeth)