Thursday, February 12, 2009

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


    SUBROUTINE amebsa private

                      amotsa = yflu

         END FUNCTION amotsa

END SUBROUTINE amebsa








~~~~~~~~