identity_matrix Function

public pure function identity_matrix() result(m)

The 4x4 identity matrix.

Arguments

None

Return Value real(kind=wp), (4,4)


Called by

proc~~identity_matrix~~CalledByGraph proc~identity_matrix identity_matrix proc~model_pick Model%model_pick proc~model_pick->proc~identity_matrix proc~terrain_pick TerrainBody%terrain_pick proc~terrain_pick->proc~identity_matrix proc~translation_matrix translation_matrix proc~translation_matrix->proc~identity_matrix proc~window_pick WindowProxy%window_pick proc~window_pick->proc~identity_matrix proc~view_camera view_camera proc~window_pick->proc~view_camera proc~world_to_view View%world_to_view proc~world_to_view->proc~identity_matrix proc~world_to_view->proc~translation_matrix proc~fly fly proc~fly->proc~world_to_view proc~get_camera WindowProxy%get_camera proc~get_camera->proc~world_to_view proc~home View%home proc~home->proc~world_to_view proc~hover_handle hover_handle proc~hover_handle->proc~window_pick proc~place_camera place_camera proc~place_camera->proc~world_to_view proc~place_camera->proc~fly proc~place_camera->proc~home proc~set_camera WindowProxy%set_camera proc~set_camera->proc~world_to_view proc~track_view track_view proc~track_view->proc~world_to_view proc~dispatch_event dispatch_event proc~dispatch_event->proc~hover_handle proc~release_handle release_handle proc~dispatch_event->proc~release_handle proc~drag_handle drag_handle proc~dispatch_event->proc~drag_handle proc~grab_handle grab_handle proc~dispatch_event->proc~grab_handle proc~frame WindowProxy%frame proc~frame->proc~place_camera proc~frame->proc~track_view proc~dispatch_events dispatch_events proc~frame->proc~dispatch_events proc~release_handle->proc~hover_handle proc~view_camera->proc~get_camera proc~cursor_ray WindowProxy%cursor_ray proc~cursor_ray->proc~view_camera proc~dispatch_events->proc~dispatch_event proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame proc~screen_position WindowProxy%screen_position proc~screen_position->proc~view_camera proc~drag_handle->proc~cursor_ray proc~grab_handle->proc~cursor_ray

Source Code

    pure function identity_matrix() result(m)
        real(wp) :: m(4,4)
        integer :: k
        m = 0.0_wp
        do k = 1, 4
            m(k, k) = 1.0_wp
        end do
    end function identity_matrix