amebsa(p,y,pb,yb,ftol,func,iter,temptr)

    SUBROUTINE amebsa private

                      amotsa = yflu

         END FUNCTION amotsa

END SUBROUTINE amebsa

~~~~~~~~