| version 1.22, 2020/02/11 01:43:57 |
version 1.25, 2021/01/11 08:37:44 |
|
|
| * 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/asir2018/engine/dist.c,v 1.21 2020/02/05 04:56:10 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2018/engine/dist.c,v 1.24 2020/10/06 06:31:19 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| |
|
| Line 582 void _adddl(int n,DL d1,DL d2,DL d3) |
|
| Line 582 void _adddl(int n,DL d1,DL d2,DL d3) |
|
| d3->d[i] = d1->d[i]+d2->d[i]; |
d3->d[i] = d1->d[i]+d2->d[i]; |
| } |
} |
| |
|
| |
void _subdl(int n,DL d1,DL d2,DL d3) |
| |
{ |
| |
int i; |
| |
|
| |
d3->td = d1->td-d2->td; |
| |
for ( i = 0; i < n; i++ ) |
| |
d3->d[i] = d1->d[i]-d2->d[i]; |
| |
} |
| |
|
| |
|
| void _addtodl(int n,DL d1,DL d2) |
void _addtodl(int n,DL d1,DL d2) |
| { |
{ |
| int i; |
int i; |
| Line 591 void _addtodl(int n,DL d1,DL d2) |
|
| Line 601 void _addtodl(int n,DL d1,DL d2) |
|
| d2->d[i] += d1->d[i]; |
d2->d[i] += d1->d[i]; |
| } |
} |
| |
|
| |
void _subfromdl(int n,DL d1,DL d2) |
| |
{ |
| |
int i; |
| |
|
| |
d2->td -= d1->td; |
| |
for ( i = 0; i < n; i++ ) |
| |
d2->d[i] -= d1->d[i]; |
| |
} |
| |
|
| void _copydl(int n,DL d1,DL d2) |
void _copydl(int n,DL d1,DL d2) |
| { |
{ |
| int i; |
int i; |
| Line 3211 int compdmm_schreyer(int n,DMM m1,DMM m2) |
|
| Line 3230 int compdmm_schreyer(int n,DMM m1,DMM m2) |
|
| else return 0; |
else return 0; |
| } |
} |
| } |
} |
| |
/* XXX */ |
| |
return 0; |
| } |
} |
| |
|
| int compdmm_schreyer_old(int n,DMM m1,DMM m2) |
int compdmm_schreyer_old(int n,DMM m1,DMM m2) |
| Line 3293 int compdmm(int n,DMM m1,DMM m2) |
|
| Line 3314 int compdmm(int n,DMM m1,DMM m2) |
|
| else return (*cmpdl)(n,m1->dl,m2->dl); |
else return (*cmpdl)(n,m1->dl,m2->dl); |
| default: |
default: |
| error("compdmm : invalid dpm_ordtype"); |
error("compdmm : invalid dpm_ordtype"); |
| |
return 0; |
| } |
} |
| } |
} |
| |
|