Searched refs:quadrupoles_section (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | input_restart_force_eval.F | 722 SUBROUTINE update_quadrupoles_section(quadrupoles, quadrupoles_section) argument
725 TYPE(section_vals_type), POINTER :: quadrupoles_section local
738 CPASSERT(ASSOCIATED(quadrupoles_section))
739 CPASSERT(quadrupoles_section%ref_count > 0)
740 section => quadrupoles_section%section
750 IF (SIZE(quadrupoles_section%values, 2) == 1) EXIT
751 CALL section_vals_add_values(quadrupoles_section)
753 vals => quadrupoles_section%values(ik, 1)%list
792 quadrupoles_section%values(ik, 1)%list => vals
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | input_restart_force_eval.F | 720 SUBROUTINE update_quadrupoles_section(quadrupoles, quadrupoles_section) argument
723 TYPE(section_vals_type), POINTER :: quadrupoles_section local
736 CPASSERT(ASSOCIATED(quadrupoles_section))
737 CPASSERT(quadrupoles_section%ref_count > 0)
738 section => quadrupoles_section%section
748 IF (SIZE(quadrupoles_section%values, 2) == 1) EXIT
749 CALL section_vals_add_values(quadrupoles_section)
751 vals => quadrupoles_section%values(ik, 1)%list
790 quadrupoles_section%values(ik, 1)%list => vals
|