Subroutine */
| 28783 | } /* dlasdq_ */ |
| 28784 | |
| 28785 | /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer * |
| 28786 | inode, integer *ndiml, integer *ndimr, integer *msub) |
| 28787 | { |
| 28788 | /* System generated locals */ |
| 28789 | integer i__1, i__2; |
| 28790 | |
| 28791 | /* Local variables */ |
| 28792 | static integer i__, il, ir, maxn; |
| 28793 | static doublereal temp; |
| 28794 | static integer nlvl, llst, ncrnt; |
| 28795 | |
| 28796 | |
| 28797 | /* |
| 28798 | -- LAPACK auxiliary routine (version 3.2.2) -- |
| 28799 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 28800 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 28801 | June 2010 |
| 28802 | |
| 28803 | |
| 28804 | Purpose |
| 28805 | ======= |
| 28806 | |
| 28807 | DLASDT creates a tree of subproblems for bidiagonal divide and |
| 28808 | conquer. |
| 28809 | |
| 28810 | Arguments |
| 28811 | ========= |
| 28812 | |
| 28813 | N (input) INTEGER |
| 28814 | On entry, the number of diagonal elements of the |
| 28815 | bidiagonal matrix. |
| 28816 | |
| 28817 | LVL (output) INTEGER |
| 28818 | On exit, the number of levels on the computation tree. |
| 28819 | |
| 28820 | ND (output) INTEGER |
| 28821 | On exit, the number of nodes on the tree. |
| 28822 | |
| 28823 | INODE (output) INTEGER array, dimension ( N ) |
| 28824 | On exit, centers of subproblems. |
| 28825 | |
| 28826 | NDIML (output) INTEGER array, dimension ( N ) |
| 28827 | On exit, row dimensions of left children. |
| 28828 | |
| 28829 | NDIMR (output) INTEGER array, dimension ( N ) |
| 28830 | On exit, row dimensions of right children. |
| 28831 | |
| 28832 | MSUB (input) INTEGER |
| 28833 | On entry, the maximum row dimension each subproblem at the |
| 28834 | bottom of the tree can be of. |
| 28835 | |
| 28836 | Further Details |
| 28837 | =============== |
| 28838 | |
| 28839 | Based on contributions by |
| 28840 | Ming Gu and Huan Ren, Computer Science Division, University of |
| 28841 | California at Berkeley, USA |
| 28842 |