aobasis: Fix allocation of sphi in create_primitive_basis_set

cp2k · Jul 22, 2020 · 21a643d · 21a643d
1 parent 61852fc
commit 21a643d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/aobasis/basis_set_types.F b/src/aobasis/basis_set_types.F
@@ -476,7 +476,7 @@ SUBROUTINE create_primitive_basis_set(basis_set, pbasis)
       ALLOCATE (pbasis%norm_cgf(ncgf))
       ALLOCATE (pbasis%cphi(maxco, ncgf))
       pbasis%cphi = 0.0_dp
-      ALLOCATE (pbasis%sphi(maxco, ncgf))
+      ALLOCATE (pbasis%sphi(maxco, nsgf))
       pbasis%sphi = 0.0_dp
       ALLOCATE (pbasis%scon(maxco, ncgf))
       pbasis%scon = 0.0_dp