Searched refs:blk_sum_c_dp (Results 1 – 2 of 2) sorted by relevance
1094 COMPLEX(KIND=real_8) :: blk_sum_c_dp local1151 blk_sum_c_dp = SUM(c_dp(blk_p:blk_p + mn - 1))1153 br, bc, REAL(blk_sum_c_dp), AIMAG(blk_sum_c_dp)
1097 COMPLEX(KIND=real_8) :: blk_sum_c_dp local1154 blk_sum_c_dp = SUM(c_dp(blk_p:blk_p + mn - 1))1156 br, bc, REAL(blk_sum_c_dp), AIMAG(blk_sum_c_dp)