Searched refs:my_atm4 (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | force_fields_all.F | 3348 CHARACTER(LEN=4) :: my_atm1, my_atm2, my_atm3, my_atm4 local
3406 my_atm4 = array(i) (56:59)
3410 CALL compress(my_atm4, .TRUE.)
3411 …(((atm1 == my_atm1) .AND. (atm2 == my_atm2) .AND. (atm3 == my_atm3) .AND. (atm4 == my_atm4)) .OR. &
3412 … ((atm1 == my_atm4) .AND. (atm2 == my_atm3) .AND. (atm3 == my_atm2) .AND. (atm4 == my_atm1))) &
3419 my_atm4 = array(i) (56:59)
3423 CALL compress(my_atm4, .TRUE.)
3429 … ((atm1 == my_atm1) .AND. (atm2 == my_atm2) .AND. (atm3 == my_atm4) .AND. (atm4 == my_atm3))) &
3437 my_atm4 = array(i) (56:59)
3441 CALL compress(my_atm4, .TRUE.)
[all …]
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | force_fields_all.F | 3348 CHARACTER(LEN=4) :: my_atm1, my_atm2, my_atm3, my_atm4 local
3406 my_atm4 = array(i) (56:59)
3410 CALL compress(my_atm4, .TRUE.)
3411 …(((atm1 == my_atm1) .AND. (atm2 == my_atm2) .AND. (atm3 == my_atm3) .AND. (atm4 == my_atm4)) .OR. &
3412 … ((atm1 == my_atm4) .AND. (atm2 == my_atm3) .AND. (atm3 == my_atm2) .AND. (atm4 == my_atm1))) &
3419 my_atm4 = array(i) (56:59)
3423 CALL compress(my_atm4, .TRUE.)
3429 … ((atm1 == my_atm1) .AND. (atm2 == my_atm2) .AND. (atm3 == my_atm4) .AND. (atm4 == my_atm3))) &
3437 my_atm4 = array(i) (56:59)
3441 CALL compress(my_atm4, .TRUE.)
[all …]
|