Searched refs:PartOrder (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | CalvingGeometry.F90 | 1798 disps(:), nodenum_disps(:), PartOrder(:,:), MyCornerNodes(:), MyNeighbourParts(:), & local
2193 ALLOCATE(PartOrder(SIZE(NeighbourPartsList)/2,2),&
2264 PartOrder = 0 !init
2377 PartOrder(counter,1) = next - 1
2378 PartOrder(counter,2) = direction * segnum
2441 IF(Debug) PRINT *, 'Debug GetDomainEdge, part order:', PartOrder
2452 DO i=1,SIZE(PartOrder,1)
2453 j = PartOrder(i,1) + 1
2454 segnum = PartOrder(i,2)
2650 PartOrder, &
|