SCM

SCM Repository

[matrix] Diff of /pkg/src/dsCMatrix.c
ViewVC logotype

Diff of /pkg/src/dsCMatrix.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 534, Tue Feb 8 08:59:31 2005 UTC revision 582, Mon Feb 28 18:15:21 2005 UTC
# Line 7  Line 7 
7      char *val;      char *val;
8    
9      if (length(uplo) != 1)      if (length(uplo) != 1)
10          return mkString("uplo slot must have length 1");          return mkString(_("uplo slot must have length 1"));
11      val = CHAR(STRING_ELT(uplo, 0));      val = CHAR(STRING_ELT(uplo, 0));
12      if (strlen(val) != 1)      if (strlen(val) != 1)
13          return mkString("uplo[1] must have string length 1");          return mkString(_("uplo[1] must have string length 1"));
14      if (*val != 'U' && *val != 'L')      if (*val != 'U' && *val != 'L')
15          return mkString("uplo[1] must be \"U\" or \"L\"");          return mkString(_("uplo[1] must be \"U\" or \"L\""));
16      if (Dim[0] != Dim[1])      if (Dim[0] != Dim[1])
17          return mkString("Symmetric matrix must be square");          return mkString(_("Symmetric matrix must be square"));
18      csc_check_column_sorting(obj);      csc_check_column_sorting(obj);
19      return ScalarLogical(1);      return ScalarLogical(1);
20  }  }
# Line 86  Line 86 
86                           (piv) ? P : (int *)NULL,                           (piv) ? P : (int *)NULL,
87                           (piv) ? Pinv : (int *)NULL);                           (piv) ? Pinv : (int *)NULL);
88      if (info != n)      if (info != n)
89          error("Leading minor of size %d (possibly after permutation) is indefinite",          error(_("Leading minor of size %d (possibly after permutation) is indefinite"),
90                info + 1);                info + 1);
91      if (piv) {      if (piv) {
92          Free(Pinv); Free(Ax); Free(Ai); Free(Ap);          Free(Pinv); Free(Ax); Free(Ai); Free(Ap);
# Line 105  Line 105 
105      double *Lx, *D, *in = REAL(b), *out = REAL(val), *tmp = (double *) NULL;      double *Lx, *D, *in = REAL(b), *out = REAL(val), *tmp = (double *) NULL;
106    
107      if (!(isReal(b) && isMatrix(b)))      if (!(isReal(b) && isMatrix(b)))
108          error("Argument b must be a numeric matrix");          error(_("Argument b must be a numeric matrix"));
109      if (*adims != *bdims || bdims[1] < 1 || *adims < 1)      if (*adims != *bdims || bdims[1] < 1 || *adims < 1)
110          error("Dimensions of system to be solved are inconsistent");          error(_("Dimensions of system to be solved are inconsistent"));
111      if (Chol == R_NilValue) Chol = dsCMatrix_chol(a, ScalarLogical(1));      if (Chol == R_NilValue) Chol = dsCMatrix_chol(a, ScalarLogical(1));
112      perm = GET_SLOT(Chol, Matrix_permSym);      perm = GET_SLOT(Chol, Matrix_permSym);
113      piv = length(perm);      piv = length(perm);

Legend:
Removed from v.534  
changed lines
  Added in v.582

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge