Home
last modified time | relevance | path

Searched defs:s_vgauss_ab (Results 1 – 2 of 2) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/shg_int/
H A Ds_contract_shg.F786 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 Ds_contract_shg.F786 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