PURE REAL FUNCTION clean(w, x, y)
¡¡¡¡REAL, INTENT(IN)::W
¡¡¡¡REAL, INTENT(IN)::x(10)
¡¡¡¡REAL, TARGET :: Y(100)
¡¡¡¡ INTEGER last
¡¡¡¡ REAL, POINTER :: z
¡¡¡¡ INTEGER num_call
¡¡¡¡ REAL, TARGET :: lookup
¡¡¡¡ COMMON /GLOBAL/ num_call, lookup
¡¡¡¡ INTERFACE
¡¡¡¡¡¡¡¡PURE SUBROUTINE bin_search(a, b, i)
¡¡¡¡¡¡¡¡REAL, INTENT(IN) :: a
¡¡¡¡¡¡¡¡REAL, INTENT(IN) :: b(100)
¡¡¡¡¡¡¡¡INTEGER, INTENT(INOUT):: i
¡¡¡¡¡¡¡¡END SUBROUTINE bin_search
¡¡¡¡END INTERFACE
¡¡¡¡last = 1
¡¡¡¡CALL bin_search(w,lookup, last)
¡¡¡¡clean = SUM(x*y(last:last+9))
END FUNCTION clean