SPEC 3.20
Stepped Pressure Equilibrium Code
spsmat.f90 File Reference

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

Detailed Description

Constructs matrices for the precondtioner.

Function/Subroutine Documentation

◆ push_back()

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

Parameters
iq
nq
NN
vA
vD
vjA
qA
qD
qjA

References constants::zero.

Referenced by spsmat().

Here is the caller graph for this function:

◆ clean_queue()

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

Parameters
nq
NN
qA
qD
qjA

References constants::zero.

Referenced by spsmat().

Here is the caller graph for this function:

◆ addline()

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

Parameters
nq
NN
qA
qD
qjA
ns
nrow
dMAS
dMDS
jdMAS
idMAS

Referenced by spsmat().

Here is the caller graph for this function: