Searched refs:local_particle_all (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | constraint_fxd.F | 436 local_particle_all, work0, work1, work2 local
476 ALLOCATE (local_particle_all(nparticle_local_all))
484 local_particle_all(nparticle_local_all) = iparticle
487 CALL sort(local_particle_all, nparticle_local_all, work2)
493 DO WHILE (local_particle_all(isize) > fixed_atom_all(jsize))
500 IF (local_particle_all(isize) == fixed_atom_all(jsize)) ncnst = ncnst + 1
510 DO WHILE (local_particle_all(isize) > fixed_atom_all(jsize))
517 IF (local_particle_all(isize) == fixed_atom_all(jsize)) THEN
525 DEALLOCATE (local_particle_all)
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | constraint_fxd.F | 436 local_particle_all, work0, work1, work2 local
476 ALLOCATE (local_particle_all(nparticle_local_all))
484 local_particle_all(nparticle_local_all) = iparticle
487 CALL sort(local_particle_all, nparticle_local_all, work2)
493 DO WHILE (local_particle_all(isize) > fixed_atom_all(jsize))
500 IF (local_particle_all(isize) == fixed_atom_all(jsize)) ncnst = ncnst + 1
510 DO WHILE (local_particle_all(isize) > fixed_atom_all(jsize))
517 IF (local_particle_all(isize) == fixed_atom_all(jsize)) THEN
525 DEALLOCATE (local_particle_all)
|