Searched defs:exp_pade_real (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | matrix_exp.F | 579 SUBROUTINE exp_pade_real(exp_H, matrix, nsquare, npade) subroutine
584 CHARACTER(len=*), PARAMETER :: routineN = 'exp_pade_real', routineP = moduleN//':'//routineN argument
585 REAL(KIND=dp), PARAMETER :: one = 1.0_dp, zero = 0.0_dp
587 INTEGER :: handle, i, j, k, ldim, ndim, p, q local
588 REAL(KIND=dp) :: my_fac, scaleD, scaleN, square_fac
589 REAL(KIND=dp), DIMENSION(:, :), POINTER :: local_data
590 TYPE(cp_fm_p_type), DIMENSION(:), POINTER :: mult_p
591 TYPE(cp_fm_type), POINTER :: Dpq, fin_p, Npq, T1, T2, Tres
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | matrix_exp.F | 579 SUBROUTINE exp_pade_real(exp_H, matrix, nsquare, npade) subroutine
584 CHARACTER(len=*), PARAMETER :: routineN = 'exp_pade_real', routineP = moduleN//':'//routineN argument
585 REAL(KIND=dp), PARAMETER :: one = 1.0_dp, zero = 0.0_dp
587 INTEGER :: handle, i, j, k, ldim, ndim, p, q local
588 REAL(KIND=dp) :: my_fac, scaleD, scaleN, square_fac
589 REAL(KIND=dp), DIMENSION(:, :), POINTER :: local_data
590 TYPE(cp_fm_p_type), DIMENSION(:), POINTER :: mult_p
591 TYPE(cp_fm_type), POINTER :: Dpq, fin_p, Npq, T1, T2, Tres
|