| # | 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 |