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().