| 1609 | } |
| 1610 | |
| 1611 | int OPS_getNP() |
| 1612 | { |
| 1613 | int nump = 1; |
| 1614 | |
| 1615 | #ifdef _PARALLEL_INTERPRETERS |
| 1616 | MPI_Comm_size(MPI_COMM_WORLD, &nump); |
| 1617 | #endif |
| 1618 | |
| 1619 | int size = 1; |
| 1620 | if (OPS_SetIntOutput(&size, &nump, true) < 0) { |
| 1621 | opserr << "WARNING: failed to set np\n"; |
| 1622 | return -1; |
| 1623 | } |
| 1624 | |
| 1625 | return 0; |
| 1626 | } |
| 1627 | |
| 1628 | int OPS_barrier() |
| 1629 | { |
no test coverage detected