SCM

SCM Repository

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

Diff of /pkg/src/dgBCMatrix.c

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

revision 536, Thu Feb 10 08:15:12 2005 UTC revision 543, Sat Feb 12 13:37:46 2005 UTC
# Line 190  Line 190 
190    
191                      if (scalar) Cx[K] += alpha * Ax[k] * Ax[kk];                      if (scalar) Cx[K] += alpha * Ax[k] * Ax[kk];
192                      else F77_CALL(dgemm)("N", "T", cdims, cdims + 1, adims + 1,                      else F77_CALL(dgemm)("N", "T", cdims, cdims + 1, adims + 1,
193                                           &alpha, Ax + ((uplo==UPP)?kk:k) * asz, adims,                                           &alpha, Ax + ((uplo==UPP)?k:kk) * asz, adims,
194                                           Ax + ((uplo==UPP)?k:kk) * asz, adims,                                           Ax + ((uplo==UPP)?kk:k) * asz, adims,
195                                           &one, Cx + K * asz, cdims);                                           &one, Cx + K * csz, cdims);
196                  }                  }
197              }              }
198          }          }

Legend:
Removed from v.536  
changed lines
  Added in v.543

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