Searched refs:soc_elem (Results 1 – 2 of 2) sorted by relevance
2525 REAL(dp) :: soc_elem local2557 soc_elem = 0.0_dp2561 … soc_elem = soc_elem + pref_diaga*SUM(diag(1:ndo_mo)) + pref_diagb*(SUM(diag(ndo_mo + 1:ndo_so)))2566 soc_elem = soc_elem &2574 soc_elem = soc_elem + pref_diags*SUM(diag)2579 pblock = soc_elem2635 soc_elem = 0.0_dp2639 soc_elem = soc_elem + SUM(diag)2644 soc_elem = soc_elem + pref_trace*SUM(pblock*TRANSPOSE(domo_soc))2648 soc_elem = soc_elem + pref_diags*SUM(diag)[all …]
3542 REAL(dp) :: soc_elem local3574 soc_elem = 0.0_dp3578 … soc_elem = soc_elem + pref_diaga*SUM(diag(1:ndo_mo)) + pref_diagb*(SUM(diag(ndo_mo + 1:ndo_so)))3583 soc_elem = soc_elem &3591 soc_elem = soc_elem + pref_diags*SUM(diag)3596 pblock = soc_elem3652 soc_elem = 0.0_dp3656 soc_elem = soc_elem + SUM(diag)3661 soc_elem = soc_elem + pref_trace*SUM(pblock*TRANSPOSE(domo_soc))3665 soc_elem = soc_elem + pref_diags*SUM(diag)[all …]