The Fortran program calculates the axial trapping efficiency Q for a multilayered sphere. By Alexander Moroz.