Functions/Subroutines | |
subroutine | helm2delem (alpha, beta, ul, xl, ss, pp, isw) |
subroutine | diff2delem (D, xl, tri_center_r, psi_hat, ss, mass_flag) |
Computes the matrix elements of the diffusion operator div(D_ij.grad(...)) with linear, triangular finite elements. More... | |
subroutine | bdotgradelem (ul, xl, bb, pp, area) |
subroutine | new_thfx2d (alpha, ul, shp, gradpot, pot, dd) |
subroutine | new_tint2d (l, lint, el) |
subroutine | new_trishp (el, xl, xsj, shp) |
subroutine bdotgradelem | ( | real*8, dimension(3), intent(in) | ul, |
real*8, dimension(2,3), intent(in) | xl, | ||
real*8, dimension(3,2), intent(in) | bb, | ||
real*8, dimension(3), intent(out) | pp, | ||
real*8, dimension(3), intent(out) | area | ||
) |
subroutine diff2delem | ( | intent(in) | D, |
dimension(2,3), intent(in) | xl, | ||
intent(in) | tri_center_r, | ||
dimension(2), intent(in) | psi_hat, | ||
real (kind=8), dimension(3,3), intent(out) | ss, | ||
integer, intent(in) | mass_flag | ||
) |
Computes the matrix elements of the diffusion operator div(D_ij.grad(...)) with linear, triangular finite elements.
[in] | D | Diffusion coefficient, real(8) |
[in] | xl | R,Z coordinates of the current triangle vertices, real(8) |
[in] | tri_center | R coordinate of the triangle center (or mag. axis for cyl. limit) |
[in] | psi_hat | grad(psi)/|grad(psi)|, real(8) |
[out] | ss | FEM coefficients |
[in] | mass_flag | Whether a mass matrix is to be computed |
subroutine helm2delem | ( | real*8, intent(in) | alpha, |
real*8, intent(in) | beta, | ||
real*8, dimension(*), intent(in) | ul, | ||
real*8, dimension(2,*), intent(in) | xl, | ||
real*8, dimension(3,3) | ss, | ||
real*8, dimension(3), intent(out) | pp, | ||
integer, intent(in) | isw | ||
) |
subroutine new_thfx2d | ( | real*8, intent(in) | alpha, |
real*8, dimension(3), intent(in) | ul, | ||
real*8, dimension(3,*), intent(in) | shp, | ||
real*8, dimension(2), intent(out) | gradpot, | ||
real*8, intent(out) | pot, | ||
real*8, dimension(2,2), intent(out) | dd | ||
) |
subroutine new_tint2d | ( | integer | l, |
integer | lint, | ||
real*8, dimension(4,*) | el | ||
) |
subroutine new_trishp | ( | real*8, dimension(3) | el, |
real*8, dimension(2,*) | xl, | ||
real*8 | xsj, | ||
real*8, dimension(3,*) | shp | ||
) |