assignment_type_dp_3d Subroutine

private subroutine assignment_type_dp_3d(a, b)

Arguments

Type IntentOptional Attributes Name
class(type_dp_3d), intent(inout) :: a
class(type_dp_3d), intent(in) :: b

Called by

proc~~assignment_type_dp_3d~~CalledByGraph proc~assignment_type_dp_3d assignment_type_dp_3d interface~assignment(=) assignment(=) interface~assignment(=)->proc~assignment_type_dp_3d

Source Code

    subroutine assignment_type_dp_3d(a, b)
        implicit none
        class(type_dp_3d), intent(inout) :: a
        class(type_dp_3d), intent(in) :: b

        a%x(:) = b%x(:)
        a%y(:) = b%y(:)
        a%z(:) = b%z(:)

    end subroutine assignment_type_dp_3d