00001 extern void dcholesky_down_0( 00002 /* 00003 Given Cholesky decomposion of matrix compute decomposition of matrix 00004 with one row and column removed 00005 00006 call dcholesky_down_0(uplo, n, a, lda, idel, info) 00007 uplo,n,a,lda are the same as for dpotrf 00008 idel is the column/row to be deleted 0<=idel<n 00009 */ 00010 char *uplo, 00011 int *n, 00012 double *a, 00013 int *lda, 00014 int *idel, 00015 int *info 00016 ); 00017 00018 extern void dcholesky_down_multi_0( 00019 /* 00020 Given Cholesky decomposion of matrix compute decomposition of matrix 00021 with one row and column removed 00022 00023 call dcholesky_down_multi_0(uplo, n, a, lda, ndel, wdel, info) 00024 uplo,n,a,lda are the same as for dpotrf 00025 ndel is the number of columns/rows to be deleted 00026 wdel is the list of columns/rows to be deleted 00027 */ 00028 char *uplo, 00029 int *n, 00030 double *a, 00031 int *lda, 00032 int *ndel, 00033 int *wdel, 00034 int *info 00035 ); 00036 00037 extern void dcholesky_down_mask( 00038 /* 00039 Given Cholesky decomposion of matrix compute decomposition of matrix 00040 with one row and column removed 00041 00042 call dcholesky_down_mask(uplo, n, a, lda, mask, info) 00043 uplo,n,a,lda are the same as for dpotrf 00044 mask is 0 for elements to retain, !=0 for elements to remove 00045 */ 00046 char *uplo, 00047 int *n_in, 00048 double *a, 00049 int *lda, 00050 int *mask, 00051 int *info 00052 );