# | Line 601 | Line 601 | contains | |
---|---|---|
601 | endif | |
602 | end do | |
603 | enddo | |
604 | – | |
604 | ||
606 | – | do i = 1, nLocal |
607 | – | do j = 1, nTopoPairsForAtom(i) |
608 | – | |
609 | – | write(*,*) 'pair: ', i, ', ', toposForAtom(i,j), ' = ', topoDistance(i,j) |
610 | – | enddo |
611 | – | enddo |
612 | – | |
613 | – | |
605 | call createSimHasAtype(alloc_stat) | |
606 | if (alloc_stat /= 0) then | |
607 | status = -1 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |