[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd bndy
x real y real a real b real c real ibnd integer [a,b,c] = bndy(x,y,ibnd) function [a,b,c] = bndy(x,y,ibnd)