| version 1.187, 2010/04/26 01:06:22 |
version 1.189, 2010/05/06 09:22:09 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.186 2010/04/23 07:35:44 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.188 2010/04/26 01:10:04 noro Exp $ */ |
| |
|
| #include "nd.h" |
#include "nd.h" |
| |
|
| Line 2316 ND_pairs nd_newpairs( NODE g, int t ) |
|
| Line 2316 ND_pairs nd_newpairs( NODE g, int t ) |
|
| if ( t0 >= min && t0 <= max && t >= min && t <= max ) |
if ( t0 >= min && t0 <= max && t >= min && t <= max ) |
| break; |
break; |
| } |
} |
| if ( nd_gbblock[i] >= 0 ) { |
if ( nd_gbblock[i] >= 0 ) |
| fprintf(stderr,"(%d,%d)",t0,t); |
|
| continue; |
continue; |
| } |
|
| } |
} |
| NEXTND_pairs(r0,r); |
NEXTND_pairs(r0,r); |
| r->i1 = (long)BDY(h); |
r->i1 = (long)BDY(h); |
| Line 6969 void parse_nd_option(NODE opt) |
|
| Line 6967 void parse_nd_option(NODE opt) |
|
| if ( !value || OID(value) != O_LIST ) |
if ( !value || OID(value) != O_LIST ) |
| error("nd_* : invalid value for gbblock option"); |
error("nd_* : invalid value for gbblock option"); |
| u = BDY((LIST)value); |
u = BDY((LIST)value); |
| nd_gbblock = MALLOC(2*length(t)+1); |
nd_gbblock = MALLOC((2*length(u)+1)*sizeof(int)); |
| for ( i = 0; u; u = NEXT(u) ) { |
for ( i = 0; u; u = NEXT(u) ) { |
| p = BDY((LIST)BDY(u)); |
p = BDY((LIST)BDY(u)); |
| s = nd_gbblock[i++] = QTOS((Q)BDY(p)); |
s = nd_gbblock[i++] = QTOS((Q)BDY(p)); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to nd.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine