Searched refs:recur_nucpot_hket (Results 1 – 2 of 2) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/recur/ |
| H A D | recur_nucpot.F90 | 48 public :: recur_nucpot_hket
230 recursive function recur_nucpot_hket(order_hket, order_geo) result(hket_pint) function
237 * recur_nucpot_hket((/order_hket(1)-1,order_hket(2:3)/), &
240 * recur_nucpot_hket((/order_hket(1)-2,order_hket(2:3)/), &
242 + recur_nucpot_hket((/order_hket(1)-1,order_hket(2:3)/), &
247 * recur_nucpot_hket((/order_hket(1),order_hket(2)-1,order_hket(3)/), &
257 * recur_nucpot_hket((/order_hket(1:2),order_hket(3)-1/), &
260 * recur_nucpot_hket((/order_hket(1:2),order_hket(3)-2/), &
262 + recur_nucpot_hket((/order_hket(1:2),order_hket(3)-1/), &
271 end function recur_nucpot_hket
[all …]
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/nucpot/ |
| H A D | test_nucpot_hket.F90 | 233 recur_pint = recur_nucpot_hket((/x_hket,y_hket,z_hket/), &
|