CopyDatum Subroutine

private subroutine CopyDatum(datum2, datum1)

Create an exact copy of a datum.

Arguments

Type IntentOptional Attributes Name
type(datum), intent(out) :: datum2
type(datum), intent(in) :: datum1

Source Code

SUBROUTINE  CopyDatum &
!
(datum2, datum1)

IMPLICIT NONE

! Arguments with intent(in):
TYPE (Datum), INTENT(IN) :: datum1


! Arguments with intent(out):
TYPE (Datum), INTENT(OUT) :: datum2

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

datum2 % name     = datum1 % name
datum2 % code     = datum1 % code
datum2 % ellipsoid     = datum1 % ellipsoid
datum2 % prime_meridian        = datum1 % prime_meridian
datum2 % method        = datum1 % method
datum2 % dx    = datum1 % dx
datum2 % dy    = datum1 % dy
datum2 % dz    = datum1 % dz
datum2 % epsg    = datum1 % epsg

END SUBROUTINE CopyDatum