10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-03 18:05:59 +02: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
double precision, intent(in) :: com
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)
integer, intent(inout) :: tbc(N_det_generators)
integer :: i, k, l, dets(comb_teeth)