| version 1.43, 2007/09/17 12:47:45 |
version 1.44, 2011/03/30 02:43:18 |
|
|
| * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
| * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
| * |
* |
| * $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.42 2006/08/27 22:17:27 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.43 2007/09/17 12:47:45 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| |
|
| Line 1104 void adddl(int n,DL d1,DL d2,DL *dr) |
|
| Line 1104 void adddl(int n,DL d1,DL d2,DL *dr) |
|
| DL dt; |
DL dt; |
| int i; |
int i; |
| |
|
| if ( !d1->td ) |
*dr = dt = (DL)MALLOC_ATOMIC((n+1)*sizeof(int)); |
| *dr = d2; |
dt->td = d1->td + d2->td; |
| else if ( !d2->td ) |
for ( i = 0; i < n; i++ ) |
| *dr = d1; |
dt->d[i] = d1->d[i]+d2->d[i]; |
| else { |
|
| *dr = dt = (DL)MALLOC_ATOMIC((n+1)*sizeof(int)); |
|
| dt->td = d1->td + d2->td; |
|
| for ( i = 0; i < n; i++ ) |
|
| dt->d[i] = d1->d[i]+d2->d[i]; |
|
| } |
|
| } |
} |
| |
|
| /* d1 += d2 */ |
/* d1 += d2 */ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dist.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine