The R Project SVN R

Rev

Rev 28433 | Rev 29410 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 28433 Rev 29387
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 1998-2001   The R Development Core Team
 4 
 *  Copyright (C) 1998-2001   The R Development Core Team
5 
 *  Copyright (C) 2002--2003  The R Foundation
 5 
 *  Copyright (C) 2002--2004  The R Foundation
6 
 *
 6 
 *
7 
 *  This program is free software; you can redistribute it and/or modify
 7 
 *  This program is free software; you can redistribute it and/or modify
8 
 *  it under the terms of the GNU General Public License as published by
 8 
 *  it under the terms of the GNU General Public License as published by
9 
 *  the Free Software Foundation; either version 2 of the License, or
 9 
 *  the Free Software Foundation; either version 2 of the License, or
10 
 *  (at your option) any later version.
 10 
 *  (at your option) any later version.
Line 744... Line 744...
744 
	else {
 744 
	else {
745 
#ifdef IEEE_754
 745 
#ifdef IEEE_754
746 
	    if(sym)
 746 
	    if(sym)
747 
		symcrossprod(REAL(CAR(args)), nrx, ncx, REAL(ans));
 747 
		symcrossprod(REAL(CAR(args)), nrx, ncx, REAL(ans));
748 
	    else
 748 
	    else
- 
 
 749 
		crossprod(REAL(CAR(args)), nrx, ncx,
- 
 
 750 
			  REAL(CADR(args)), nry, ncy, REAL(ans));
749 
#endif
 751 
#endif
- 
 
 752 
	    if(sym)
- 
 
 753 
		crossprod(REAL(CAR(args)), nrx, ncx,
- 
 
 754 
			  REAL(CAR(args)), nry, ncy, REAL(ans));
- 
 
 755 
	    else
750 
		crossprod(REAL(CAR(args)), nrx, ncx,
 756 
		crossprod(REAL(CAR(args)), nrx, ncx,
751 
			  REAL(CADR(args)), nry, ncy, REAL(ans));
 757 
			  REAL(CADR(args)), nry, ncy, REAL(ans));
752 
	}
 758 
	}
753 
 
 759 
 
754 
	PROTECT(xdims = getAttrib(CAR(args), R_DimNamesSymbol));
 760 
	PROTECT(xdims = getAttrib(CAR(args), R_DimNamesSymbol));