Searched defs:s_vgauss_ab (Results 1 – 2 of 2) sorted by relevance
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/shg_int/ |
H A D | s_contract_shg.F | 786 SUBROUTINE s_vgauss_ab(la_max, npgfa, zeta, lb_max, npgfb, zetb, omega, rab, v, calculate_forces) subroutine 797 CHARACTER(len=*), PARAMETER :: routineN = 's_vgauss_ab', routineP = moduleN//':'//routineN argument 799 INTEGER :: ids, ipgfa, j, jpgfb, n, ndev, nmax 800 REAL(KIND=dp) :: a, b, eta, etaT, expT, oeta, prefac, & 801 rab2, T, xeta, xhi, zet 802 REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: f local
|
/dports/science/cp2k-data/cp2k-7.1.0/src/shg_int/ |
H A D | s_contract_shg.F | 786 SUBROUTINE s_vgauss_ab(la_max, npgfa, zeta, lb_max, npgfb, zetb, omega, rab, v, calculate_forces) subroutine 797 CHARACTER(len=*), PARAMETER :: routineN = 's_vgauss_ab', routineP = moduleN//':'//routineN argument 799 INTEGER :: ids, ipgfa, j, jpgfb, n, ndev, nmax 800 REAL(KIND=dp) :: a, b, eta, etaT, expT, oeta, prefac, & 801 rab2, T, xeta, xhi, zet 802 REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: f local
|