I think if someone needs to have the mass and the stiffness matrices, they can be accessed through the pointer Matrix_t:
Code: Select all
TYPE(Matrix_t), POINTER :: A
A => Solver % Matrix
A % BulkValues ! pointer to the values of the stiffness matrix
A % MassValues ! pointer to the values of the mass matrix
The code
Code: Select all
Dump System Matrix = String "matrix"
Code: Select all
A % Values
Regrds,
Stan