PRC_TAB stores some precomputed coefficients for the finite element matrices
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=I4), | public | :: | ng | Gauss point number along a direction |
|||
| real(kind=R8), | public, | dimension(:), allocatable | :: | pg | point coordinates in a direction |
||
| real(kind=R8), | public, | dimension(:), allocatable | :: | wg | point weight |
||
| real(kind=R8), | public, | dimension(:,:,:), allocatable | :: | vni4 | for each node, shape function at Gauss points |
||
| real(kind=R8), | public, | dimension(:,:,:), allocatable | :: | vni4x | for each node, shape function derivative at Gauss points |
||
| real(kind=R8), | public, | dimension(:,:,:), allocatable | :: | vni4y | for each node, shape function derivative at Gauss points |
||
| real(kind=R8), | public, | dimension(:,:,:), allocatable | :: | vni4d | for each node, upwind shape function at Gauss points |
||
| real(kind=R8), | public, | dimension(:,:,:), allocatable | :: | vcal | 14 values calculated at the Gauss points |
type PRC_TAB
!! <span style="color:green">
!! *PRC_TAB* stores some precomputed coefficients for the finite element matrices
!! </span>
integer(kind=I4) :: ng !! *Gauss point number along a direction*
real(kind=R8), dimension(:), allocatable :: pg !! *point coordinates in a direction*
real(kind=R8), dimension(:), allocatable :: wg !! *point weight*
real(kind=R8), dimension(:,:,:), allocatable :: vni4 !! *for each node, shape function at Gauss points*
real(kind=R8), dimension(:,:,:), allocatable :: vni4x !! *for each node, shape function derivative at Gauss points*
real(kind=R8), dimension(:,:,:), allocatable :: vni4y !! *for each node, shape function derivative at Gauss points*
real(kind=R8), dimension(:,:,:), allocatable :: vni4d !! *for each node, upwind shape function at Gauss points*
real(kind=R8), dimension(:,:,:), allocatable :: vcal !! *14 values calculated at the Gauss points*
endtype PRC_TAB