Searched refs:equatom (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | molsym.F | 485 iequatom = equatom(iatom, a(:), sym, coord)
500 iequatom = equatom(iatom, a(:), sym, coord)
519 iequatom = equatom(iatom, a(:), sym, coord)
594 IF (equatom(iatom, b(:), sym, coord) == 0) RETURN
818 FUNCTION equatom(atoma, a, sym, coord) function
823 INTEGER :: equatom local
827 equatom = 0
834 equatom = iatom
839 END FUNCTION equatom
1610 IF (equatom(iatom, b(:), sym, coord) == 0) RETURN
[all …]
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | molsym.F | 485 iequatom = equatom(iatom, a(:), sym, coord)
500 iequatom = equatom(iatom, a(:), sym, coord)
519 iequatom = equatom(iatom, a(:), sym, coord)
594 IF (equatom(iatom, b(:), sym, coord) == 0) RETURN
818 FUNCTION equatom(atoma, a, sym, coord) function
823 INTEGER :: equatom local
827 equatom = 0
834 equatom = iatom
839 END FUNCTION equatom
1610 IF (equatom(iatom, b(:), sym, coord) == 0) RETURN
[all …]
|