Searched defs:check_sparsity_arrays_for_kp (Results 1 – 1 of 1) sorted by relevance
1637 SUBROUTINE check_sparsity_arrays_for_kp(needed_cutRI_mem_R1vec_R2vec_for_kp, & subroutine1648 CHARACTER(LEN=*), PARAMETER :: routineN = 'check_sparsity_arrays_for_kp', & argument1649 routineP = moduleN//':'//routineN1651 … INTEGER :: handle, i_cell, i_cut_RI, i_mem, j_cell, &1652 num_cells_3c1653 REAL(KIND=dp) :: occ_local, occ_local_sum_j_cell