is_position_xyz Function

private pure function is_position_xyz(s)

The sources are x, y, z of the position, unscaled.

Arguments

Type IntentOptional Attributes Name
type(DataSource), intent(in) :: s(3)

x, y, z data sources

Return Value logical


Called by

proc~~is_position_xyz~~CalledByGraph proc~is_position_xyz is_position_xyz proc~curve_pick curve_pick proc~curve_pick->proc~is_position_xyz proc~write_curve CurveArtist%write_curve proc~write_curve->proc~is_position_xyz proc~drawable_pick DrawableTrajectory%drawable_pick proc~drawable_pick->proc~curve_pick

Source Code

    pure logical function is_position_xyz(s)
        type(DataSource), intent(in) :: s(3)                !! x, y, z data sources
        integer :: k
        is_position_xyz = .true.
        do k = 1, 3
            if (s(k)%src /= SOURCE_POSOPT .or. s(k)%opt /= 0 .or. s(k)%element /= k .or. s(k)%scale /= 1.0_wp) &
                is_position_xyz = .false.
        end do
    end function is_position_xyz