CopyEllipsoid Subroutine

private subroutine CopyEllipsoid(ell2, ell1)

Create an exact copy of an ellipsoid.

Arguments

Type IntentOptional Attributes Name
type(Ellipsoid), intent(out) :: ell2
type(Ellipsoid), intent(in) :: ell1

Source Code

SUBROUTINE  CopyEllipsoid &
!
(ell2, ell1)

IMPLICIT NONE

! Arguments with intent(in):
TYPE (Ellipsoid), INTENT(IN) :: ell1


! Arguments with intent(out):
TYPE (Ellipsoid), INTENT(OUT) :: ell2

!------------end of declaration------------------------------------------------

ell2 % name     = ell1 % name
ell2 % code     = ell1 % code
ell2 % epsg     = ell1 % epsg
ell2 % a        = ell1 % a
ell2 % b        = ell1 % b
ell2 % inv_f    = ell1 % inv_f
ell2 % e        = ell1 % e
ell2 % f        = ell1 % f
ell2 % e_second = ell1 % e_second

END SUBROUTINE CopyEllipsoid