Thermo-gravitational convection of incompressible viscous fluid in a cube with a cubical internal body. Code ASTRA, 1998.