implicit double precision (a-h,p-z),integer (i-n),logical (o)
parameter (mxcon=10)
dimension iconn(mxcon+1,*),icnn(mxcon+1)
dimension iconn(mxcon+1,*),icnn(*)
ibnds = 0