SCM

SCM Repository

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

Diff of /pkg/Matrix/src/dense.c

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

revision 3054, Sat Mar 14 20:57:39 2015 UTC revision 3055, Sat Mar 14 21:12:03 2015 UTC
# Line 400  Line 400 
400      }      }
401      if(!isNull(nms_dns = getAttrib(dns, R_NamesSymbol)) &&      if(!isNull(nms_dns = getAttrib(dns, R_NamesSymbol)) &&
402         !R_compute_identical(STRING_ELT(nms_dns, 0),         !R_compute_identical(STRING_ELT(nms_dns, 0),
403                              STRING_ELT(nms_dns, 1), 15)) { // names(dimnames(.)) :                              STRING_ELT(nms_dns, 1), 16)) { // names(dimnames(.)) :
404          if(*CHAR(asChar(uplo)) == 'U')          if(*CHAR(asChar(uplo)) == 'U')
405              SET_STRING_ELT(nms_dns, 0, STRING_ELT(nms_dns,1));              SET_STRING_ELT(nms_dns, 0, STRING_ELT(nms_dns,1));
406          else          else
# Line 442  Line 442 
442              }              }
443          }          }
444    
445    // FIXME?: Compare and synchronize with symmetric_DimNames() in ./Mutils.c
446  #       define MK_SYMMETRIC_DIMNAMES_AND_RETURN                         \  #       define MK_SYMMETRIC_DIMNAMES_AND_RETURN                         \
447                                                                          \                                                                          \
448          dns = GET_SLOT(dx, Matrix_DimNamesSym);                         \          dns = GET_SLOT(dx, Matrix_DimNamesSym);                         \
# Line 452  Line 453 
453              if(isNull(VECTOR_ELT(dns, J)))                              \              if(isNull(VECTOR_ELT(dns, J)))                              \
454                  J = !J;                                                 \                  J = !J;                                                 \
455              SET_VECTOR_ELT(dns, !J, VECTOR_ELT(dns, J));                \              SET_VECTOR_ELT(dns, !J, VECTOR_ELT(dns, J));                \
456          } /* names(dimnames(.)):*/                                      \          }                                                               \
457            /* names(dimnames(.)): */                                       \
458          if(!isNull(nms_dns = getAttrib(dns, R_NamesSymbol)) &&          \          if(!isNull(nms_dns = getAttrib(dns, R_NamesSymbol)) &&          \
459             !R_compute_identical(STRING_ELT(nms_dns, 0),                 \             !R_compute_identical(STRING_ELT(nms_dns, 0),                 \
460                                  STRING_ELT(nms_dns, 1), 15)) {          \                                  STRING_ELT(nms_dns, 1), 16)) {          \
461              SET_STRING_ELT(nms_dns, !J, STRING_ELT(nms_dns, J));        \              SET_STRING_ELT(nms_dns, !J, STRING_ELT(nms_dns, J));        \
462              setAttrib(dns, R_NamesSymbol, nms_dns);                     \              setAttrib(dns, R_NamesSymbol, nms_dns);                     \
463          }                                                               \          }                                                               \

Legend:
Removed from v.3054  
changed lines
  Added in v.3055

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