Searched defs:create_multipole_type (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/subsys/ |
| H A D | multipole_types.F | 67 SUBROUTINE create_multipole_type(multipoles, particle_set, subsys_section, max_multipole) subroutine
73 CHARACTER(len=*), PARAMETER :: routineN = 'create_multipole_type', & argument
74 routineP = moduleN//':'//routineN
76 INTEGER :: i, ind2, iparticle, j, n_rep, nparticles
77 LOGICAL :: explicit
78 REAL(KIND=dp), DIMENSION(:), POINTER :: work
79 TYPE(fist_potential_type), POINTER :: fist_potential
80 TYPE(section_vals_type), POINTER :: work_section
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/subsys/ |
| H A D | multipole_types.F | 67 SUBROUTINE create_multipole_type(multipoles, particle_set, subsys_section, max_multipole) subroutine
73 CHARACTER(len=*), PARAMETER :: routineN = 'create_multipole_type', & argument
74 routineP = moduleN//':'//routineN
76 INTEGER :: i, ind2, iparticle, j, n_rep, nparticles
77 LOGICAL :: explicit
78 REAL(KIND=dp), DIMENSION(:), POINTER :: work
79 TYPE(fist_potential_type), POINTER :: fist_potential
80 TYPE(section_vals_type), POINTER :: work_section
|