version 1.188, 2010/04/26 01:10:04 |
version 1.189, 2010/05/06 09:22:09 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.187 2010/04/26 01:06:22 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 6967 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)); |