Home
last modified time | relevance | path

Searched refs:PartSegments (Results 1 – 1 of 1) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DCalvingGeometry.F902102 IF(Boss) ALLOCATE(PartSegments(ParEnv % PEs))
2110 DO i=1,SIZE(PartSegments)
2139 PRINT *, 'boss PartSegments: ', PartSegments
2149 WorkInt = MAX(PartSegments-1,0)
2160 j = PartSegments(i)
2174 WorkInt = PartSegments*2
2271 IF(PartSegments(i)==0) CYCLE
2294 IF(PartSegments(i)>0) THEN
2399 IF(segnum == PartSegments(j)) THEN
2460 IF(PartSegments(j) > 1) THEN
[all …]