add a new version of the "position" routine

More meaningful name and no common block used, but there is a longer
input list of course.