Searched refs:kick_pcm_function (Results 1 – 1 of 1) sorted by relevance
| /dports/science/octopus/octopus-10.5/src/hamiltonian/ |
| H A D | kick.F90 | 955 subroutine kick_pcm_function_get(mesh, kick, psolver, pcm, kick_pcm_function) argument
960 CMPLX, intent(out) :: kick_pcm_function(:)
967 kick_pcm_function = M_ZERO
986 kick_pcm_function = pcm%v_kick_rs / kick%delta_strength
1009 CMPLX, allocatable :: kick_pcm_function(:)
1027 SAFE_ALLOCATE(kick_pcm_function(1:mesh%np))
1028 call kick_pcm_function_get(mesh, kick, psolver, pcm, kick_pcm_function)
1029 kick_function = kick_function + kick_pcm_function
|