![]() |
SPEC 3.20
Stepped Pressure Equilibrium Code
|
Constructs matrices for the precondtioner. More...
Functions/Subroutines | |
| subroutine | spsmat (lvol, mn, lrad) |
| Constructs matrices for the precondtioner. More... | |
| subroutine | push_back (iq, nq, NN, vA, vD, vjA, qA, qD, qjA) |
| push a new element at the back of the queue More... | |
| subroutine | clean_queue (nq, NN, qA, qD, qjA) |
| clean the queue More... | |
| subroutine | addline (nq, NN, qA, qD, qjA, ns, nrow, dMAS, dMDS, jdMAS, idMAS) |
| add the content from the queue to the real matrices More... | |
Constructs matrices for the precondtioner.
| subroutine push_back | ( | integer, intent(in) | iq, |
| integer, dimension(4), intent(inout) | nq, | ||
| integer, intent(in) | NN, | ||
| real, intent(in) | vA, | ||
| real, intent(in) | vD, | ||
| integer, intent(in) | vjA, | ||
| real, dimension(nn,4), intent(inout) | qA, | ||
| real, dimension(nn,4), intent(inout) | qD, | ||
| integer, dimension(nn,4), intent(inout) | qjA | ||
| ) |
push a new element at the back of the queue
| iq | |
| nq | |
| NN | |
| vA | |
| vD | |
| vjA | |
| qA | |
| qD | |
| qjA |
References constants::zero.
Referenced by spsmat().
| subroutine clean_queue | ( | integer, dimension(4), intent(inout) | nq, |
| integer, intent(in) | NN, | ||
| real, dimension(nn,4), intent(inout) | qA, | ||
| real, dimension(nn,4), intent(inout) | qD, | ||
| integer, dimension(nn,4), intent(inout) | qjA | ||
| ) |
clean the queue
| nq | |
| NN | |
| qA | |
| qD | |
| qjA |
References constants::zero.
Referenced by spsmat().
| subroutine addline | ( | integer, dimension(4), intent(inout) | nq, |
| integer, intent(inout) | NN, | ||
| real, dimension(nn,4), intent(inout) | qA, | ||
| real, dimension(nn,4), intent(inout) | qD, | ||
| integer, dimension(nn,4), intent(inout) | qjA, | ||
| integer, intent(inout) | ns, | ||
| integer, intent(inout) | nrow, | ||
| real, dimension(*) | dMAS, | ||
| real, dimension(*) | dMDS, | ||
| integer, dimension(*) | jdMAS, | ||
| integer, dimension(*) | idMAS | ||
| ) |
add the content from the queue to the real matrices
| nq | |
| NN | |
| qA | |
| qD | |
| qjA | |
| ns | |
| nrow | |
| dMAS | |
| dMDS | |
| jdMAS | |
| idMAS |
Referenced by spsmat().