MODULE input_cp2k_motion | |
IMPLICIT NONE | |
interface | |
SUBROUTINE keyword_create(variants) | |
CHARACTER(len=*), DIMENSION(:), & | |
INTENT(in) :: variants | |
end subroutine | |
end interface | |
CONTAINS | |
SUBROUTINE create_neb_section() | |
CALL keyword_create(variants=(/"K"/)) | |
END SUBROUTINE create_neb_section | |
END MODULE input_cp2k_motion | |