H A D | ai_contraction_sphi.F | 96 SUBROUTINE abc_contract(abcint, sabc, sphi_a, sphi_b, sphi_c, ncoa, ncob, ncoc, & argument 100 REAL(KIND=dp), DIMENSION(:, :) :: sphi_a, sphi_b, sphi_c local 116 msphic = SIZE(sphi_c, 1) 129 … CALL dgemm("N", "N", nsgfa*nsgfb, nsgfc, ncoc, 1._dp, cpc, nsgfa*nsgfb, sphi_c, msphic, 0.0_dp, & 156 SUBROUTINE abcd_contract(abcdint, sabcd, sphi_a, sphi_b, sphi_c, sphi_d, ncoa, ncob, & argument 162 REAL(KIND=dp), DIMENSION(:, :), INTENT(IN) :: sphi_a, sphi_b, sphi_c, sphi_d local 178 msphic = SIZE(sphi_c, 1) 205 sphi_c, msphic, 0.0_dp, temp_cpcc, nsgfa*m2) 242 SUBROUTINE libxsmm_abc_contract(abcint, sabc, tsphi_a, sphi_b, sphi_c, ncoa, ncob, ncoc, & argument 246 REAL(dp), DIMENSION(:, :) :: tsphi_a, sphi_b, sphi_c local [all …]
|