From 1e49f3c889c379b667a9f23db1d64f5b2c1be17d Mon Sep 17 00:00:00 2001 From: Sterling Harper Date: Wed, 14 Mar 2018 12:51:19 -0400 Subject: [PATCH] Fix multipole l value counting --- src/multipole_header.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/multipole_header.F90 b/src/multipole_header.F90 index ec82b16a4e..7fb438bce1 100644 --- a/src/multipole_header.F90 +++ b/src/multipole_header.F90 @@ -147,7 +147,7 @@ contains ! Figure out the number of unique l values in the l_value array. do i = 1, n_poles if (.not. l_val_dict % has(this % l_value(i))) then - call l_val_dict % set(i, 0) + call l_val_dict % set(this % l_value(i), 0) end if end do this % num_l = l_val_dict % size()