type_int_2d_assignment Subroutine

private subroutine type_int_2d_assignment(a, b)

Arguments

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

Called by

proc~~type_int_2d_assignment~~CalledByGraph proc~type_int_2d_assignment type_int_2d_assignment interface~assignment(=)~2 assignment(=) interface~assignment(=)~2->proc~type_int_2d_assignment

Source Code

    subroutine type_int_2d_assignment(a, b)
        implicit none
        class(type_int_2d), intent(inout) :: a
        class(type_int_2d), intent(in) :: b

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

    end subroutine type_int_2d_assignment