m_apm_copy
extern void m_apm_copy(M_APM, M_APM);
m_apm_copy(myVal,oldVal);
m_apm_copy(M_work1, a);
m_apm_copy(M_work2, b);
m_apm_copy(r, M_work1);
m_apm_copy(r, M_work2);
m_apm_copy(r,a);
m_apm_copy(r,b);
m_apm_copy(r, M_work1);
m_apm_copy(r, M_work2);
m_apm_copy(r,b);
m_apm_copy(r,a);
m_apm_copy(a0, MM_One);
m_apm_copy(sum, MM_One);
m_apm_copy(pow_2, MM_Four);
m_apm_copy(a0, a1);
m_apm_copy(b0, b1);
m_apm_copy(pow_2, tmp1);
m_apm_copy(M_div_tmp7, M_div_tmp8);
m_apm_copy(M_div_worka, M_div_tmp9);
m_apm_copy(r, MM_One);
m_apm_copy(tmp7, tmp8);
m_apm_copy(tmp7, tmp8);
m_apm_copy(term, xx);
m_apm_copy(rr, tmp0);
m_apm_copy(bb, aa);
m_apm_copy(bb, MM_One);
m_apm_copy(mtmp, bb);
m_apm_copy(bb, aa);
m_apm_copy(ctmp, mtmp); /* show ALL digits */
m_apm_copy(btmp, atmp);
m_apm_copy(tmpU, tmpN);
m_apm_copy(tmpV, tmpN);
m_apm_copy(tmpT, tmpU);
m_apm_copy(tmpT, tmpN);
m_apm_copy(tmpU, tmpT);
m_apm_copy(r, tmpU);
m_apm_copy(tmpN, MM_One);
m_apm_copy(tmpN, tmpT);
m_apm_copy(tmpU, tmpV);
m_apm_copy(tmpV, tmpN);
m_apm_copy(r, tmpU);
m_apm_copy(tmp7, MM_One);
m_apm_copy(tmpA0, aa);
m_apm_copy(tmpB0, bb);
m_apm_copy(pow_2, MM_0_5);
m_apm_copy(pow_2, tmp2);
m_apm_copy(term, tmpS);
m_apm_copy(tmpS, tmp1);
m_apm_copy(tmp2, a);
m_apm_copy(M_last_xx_input, xx);
m_apm_copy(M_last_xx_log, tmp9);
m_apm_copy(rr, MM_One);
m_apm_copy(last_x, guess);
m_apm_copy(mrnd, M_rnd_XX);
m_apm_copy(ctmp, mtmp);
m_apm_copy(tmp9, MM_lc_PI);
m_apm_copy(rr, aa);
m_apm_copy(current_x, tmp2);
m_apm_copy(current_x, tmp2);
m_apm_copy(term, aa);
m_apm_copy(tmpS, aa);
m_apm_copy(last_x, guess);
m_apm_copy(MM_lc_PI, MM_PI);
m_apm_copy(MM_lc_HALF_PI, MM_HALF_PI);
m_apm_copy(MM_lc_2_PI, MM_2_PI);
m_apm_copy(moutput, MM_One);
m_apm_copy(tmp2, minput);
m_apm_copy(iprod1, MM_One);
m_apm_copy(tmp1, array[mm]);
m_apm_copy(array[ct], iprod1);
m_apm_copy(array[ct], iprod1);
m_apm_copy(tmp1, array[ii]);
m_apm_copy(array[jj], array[kk]);
m_apm_copy(moutput, array[0]);
m_apm_copy(M_ain, aa);
m_apm_copy(M_bin, bb);
m_apm_copy(rr, MM_One);
m_apm_copy(tmpy, MM_One);
m_apm_copy(tmpz, aa);
m_apm_copy(tmpy, tmp0);
m_apm_copy(tmpz, tmp0);
m_apm_copy(rr, tmp0);
m_apm_copy(rr, MM_One);
m_apm_copy(rr, aa);
m_apm_copy(tmpy, MM_One);
m_apm_copy(tmpz, aa);
m_apm_copy(sum, tmp7);
m_apm_copy(sum, tmp7);
m_apm_copy(sum, MM_One);
m_apm_copy(term, MM_One);
m_apm_copy(sum, tmp7);
m_apm_copy(sum, tmp7);
m_apm_copy(sum, xx);
m_apm_copy(term, xx);
m_apm_copy(tmpN, aa);
m_apm_copy(last_x, guess);
m_apm_copy(btmp,atmp);
m_apm_copy(d,s);
m_apm_copy(d,s);