|
subroutine | eigensym2 (em, vv, oo) |
| Get the orthogonal eigenvectors, vv, and diagonal matrix of eigenvalues, oo, of the symmetric 2*2 matrix, em. More...
|
|
subroutine | eigensym2d (em, vv, oo, vvd, ood, ff) |
| For a symmetric 2*2 matrix, em, return the normalized eigenvectors, vv, and the diagonal matrix of eigenvalues, oo. More...
|
|
Definition at line 21 of file psym2.f90.
◆ eigensym2()
subroutine psym2::eigensym2::eigensym2 |
( |
real(dp), dimension(2,2), intent(in) |
em, |
|
|
real(dp), dimension(2,2), intent(out) |
vv, |
|
|
real(dp), dimension(2,2), intent(out) |
oo |
|
) |
| |
|
private |
Get the orthogonal eigenvectors, vv, and diagonal matrix of eigenvalues, oo, of the symmetric 2*2 matrix, em.
- Parameters
-
[in] | em | symmetric 2*2 matrix |
[out] | vv | orthogonal eigenvectors |
[out] | oo | diagonal matrix of eigenvalues |
- Author
- R. J. Purser
Definition at line 43 of file psym2.f90.
◆ eigensym2d()
subroutine psym2::eigensym2::eigensym2d |
( |
real(dp), dimension(2,2), intent(in) |
em, |
|
|
real(dp), dimension(2,2), intent(out) |
vv, |
|
|
real(dp), dimension(2,2), intent(out) |
oo, |
|
|
real(dp), dimension(2,2,2,2), intent(out) |
vvd, |
|
|
real(dp), dimension(2,2,2,2), intent(out) |
ood, |
|
|
logical, intent(out) |
ff |
|
) |
| |
|
private |
For a symmetric 2*2 matrix, em, return the normalized eigenvectors, vv, and the diagonal matrix of eigenvalues, oo.
If the two eigenvalues are equal, proceed no further and raise the logical failure flag, ff, to .true.; otherwise, return with vvd=d(vv)/d(em) and ood=d(oo)/d(em) and ff=.false., and maintain the symmetries between the last two of the indices of these derivatives.
- Parameters
-
[in] | em | symmetric 2*2 matrix |
[out] | vv | normalized eigenvectors |
[out] | oo | diagonal matrix of eigenvalues |
[out] | vvd | vvd=d(vv)/d(em) |
[out] | ood | ood=d(oo)/d(em) |
[out] | ff | logical failure flag |
- Author
- R. J. Purser
Definition at line 76 of file psym2.f90.
The documentation for this interface was generated from the following file:
- /lfs/h2/emc/stmp/george.gayno/UFS_UTILS.tag/sorc/grid_tools.fd/regional_esg_grid.fd/psym2.f90