split_distances Subroutine

public pure subroutine split_distances(s, d)

Distances s(n) into d(high/low, n).

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: s(:)

(n)
real(kind=c_float), intent(inout) :: d(:,:)

(2, n)

Called by

proc~~split_distances~~CalledByGraph proc~split_distances split_distances proc~measure measure proc~measure->proc~split_distances proc~update_tail CurveArtist%update_tail proc~update_tail->proc~split_distances proc~written LineChain%written proc~written->proc~measure proc~write_intermediates write_intermediates proc~write_intermediates->proc~written proc~write_marker write_marker proc~write_marker->proc~written proc~write_segments write_segments proc~write_segments->proc~written proc~write_segments~2 write_segments proc~write_segments~2->proc~written proc~add_intermediates add_intermediates proc~add_intermediates->proc~write_intermediates proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~write_marker proc~marker_update->proc~add_intermediates proc~segment_update SegmentArtist%segment_update proc~segment_update->proc~write_segments proc~segments_late_update CustomLineSegments%segments_late_update proc~segments_late_update->proc~write_segments~2

Source Code

    pure subroutine split_distances(s, d)
        real(wp), intent(in) :: s(:)                !! (n)
        real(c_float), intent(inout) :: d(:,:)      !! (2, n)
        d(1, :) = real(s, c_float)
        d(2, :) = real(s - real(d(1, :), wp), c_float)
    end subroutine split_distances