Searched refs:natoms_current (Results 1 – 2 of 2) sorted by relevance
430 natoms_current = 1433 natoms_current = natoms_current + 1442 negf_control%atomlist_S_screening(1:natoms_current) = inds(1:natoms_current)504 natoms_current = SIZE(iptr)505 DO iatom = 1, natoms_current559 natoms_current = SIZE(iptr)560 atomlist(natoms_total + 1:natoms_total + natoms_current) = iptr(1:natoms_current)598 natoms_current = 1601 natoms_current = natoms_current + 1609 ALLOCATE (atomlist(natoms_current))[all …]