| /dports/science/tinker/tinker/source/ |
| H A D | eopbend2.f | 27 integer i,j,k,iopbend local
51 do iopbend = 1, nopbend
52 k = iopb(iopbend)
70 call eopbend2a (iopbend,de)
84 call eopbend2a (iopbend,de)
93 call eopbend2a (iopbend,de)
107 call eopbend2a (iopbend,de)
116 call eopbend2a (iopbend,de)
130 call eopbend2a (iopbend,de)
139 call eopbend2a (iopbend,de)
|
| H A D | eopbend.f | 31 integer i,iopbend local
65 do iopbend = 1, nopbend
66 i = iopb(iopbend)
71 force = opbk(iopbend)
|
| H A D | eopbend3.f | 36 integer i,iopbend
87 do iopbend = 1, nopbend
88 i = iopb(iopbend)
93 force = opbk(iopbend)
|
| H A D | eopbend1.f | 33 integer i,iopbend local
85 do iopbend = 1, nopbend
86 i = iopb(iopbend)
91 force = opbk(iopbend)
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | force_fields_util.F | 1151 DO iopbend = 1, SIZE(opbend_kind_set)
1163 IF (unsetme) bad1(iopbend) = 1
1169 DO iopbend = 1, SIZE(opbend_kind_set)
1170 IF (bad1(iopbend) == 0) THEN
1178 DO iopbend = 1, SIZE(opbend_list)
1182 IF (unsetme) bad2(iopbend) = 1
1188 DO iopbend = 1, SIZE(opbend_list)
1189 IF (bad2(iopbend) == 0) THEN
1191 new_opbend_list(counter) = opbend_list(iopbend)
1201 DO iopbend = 1, SIZE(new_opbend_kind_set)
[all …]
|
| H A D | fist_intra_force.F | 107 index_c, index_d, iopbend, ishell, itorsion, nbends, nbonds, nimptors, nkind, & local
504 OPBEND: DO iopbend = 1, nopbends
505 index_a = opbend_list(iopbend)%a + first_atom - 1
506 index_b = opbend_list(iopbend)%b + first_atom - 1
507 index_c = opbend_list(iopbend)%c + first_atom - 1
508 index_d = opbend_list(iopbend)%d + first_atom - 1
526 CALL force_opbends(opbend_list(iopbend)%opbend_kind%id_type, &
528 opbend_list(iopbend)%opbend_kind%k, &
529 opbend_list(iopbend)%opbend_kind%phi0, &
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | force_fields_util.F | 1151 DO iopbend = 1, SIZE(opbend_kind_set)
1163 IF (unsetme) bad1(iopbend) = 1
1169 DO iopbend = 1, SIZE(opbend_kind_set)
1170 IF (bad1(iopbend) == 0) THEN
1178 DO iopbend = 1, SIZE(opbend_list)
1182 IF (unsetme) bad2(iopbend) = 1
1188 DO iopbend = 1, SIZE(opbend_list)
1189 IF (bad2(iopbend) == 0) THEN
1191 new_opbend_list(counter) = opbend_list(iopbend)
1201 DO iopbend = 1, SIZE(new_opbend_kind_set)
[all …]
|
| H A D | fist_intra_force.F | 107 index_c, index_d, iopbend, ishell, itorsion, nbends, nbonds, nimptors, nkind, & local
504 OPBEND: DO iopbend = 1, nopbends
505 index_a = opbend_list(iopbend)%a + first_atom - 1
506 index_b = opbend_list(iopbend)%b + first_atom - 1
507 index_c = opbend_list(iopbend)%c + first_atom - 1
508 index_d = opbend_list(iopbend)%d + first_atom - 1
526 CALL force_opbends(opbend_list(iopbend)%opbend_kind%id_type, &
528 opbend_list(iopbend)%opbend_kind%k, &
529 opbend_list(iopbend)%opbend_kind%phi0, &
|
| /dports/science/tinker/tinker/other/ |
| H A D | eopbend.alt | 31 integer i,iopbend
56 do iopbend = 1, nopbend
57 i = iopb(iopbend)
62 force = kopb(iopbend)
177 integer i,iopbend
220 do iopbend = 1, nopbend
221 i = iopb(iopbend)
412 integer i,j,k,iopbend
428 k = iopb(iopbend)
726 integer i,iopbend
[all …]
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/subsys/ |
| H A D | molecule_kind_types.F | 749 INTEGER :: ibend, ibond, iimpr, imolecule_kind, iopbend, itorsion, iub, na, nc, nc_fixd, & local
781 nopbend=iopbend, &
794 IF (PRESENT(nopbend)) nopbend = nopbend + iopbend*nm
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/subsys/ |
| H A D | molecule_kind_types.F | 749 INTEGER :: ibend, ibond, iimpr, imolecule_kind, iopbend, itorsion, iub, na, nc, nc_fixd, & local
781 nopbend=iopbend, &
794 IF (PRESENT(nopbend)) nopbend = nopbend + iopbend*nm
|