version 1.9, 2003/07/29 08:36:40 |
version 1.10, 2003/07/30 09:00:52 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.8 2003/07/17 23:37:02 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/option.c,v 1.9 2003/07/29 08:36:40 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "stackm.h" |
#include "stackm.h" |
Line 306 struct object KsystemVariable(ob) |
|
Line 306 struct object KsystemVariable(ob) |
|
Ecart = KopInteger(ob2); |
Ecart = KopInteger(ob2); |
rob = KpoInteger(Ecart); |
rob = KpoInteger(Ecart); |
}else if (strcmp(ob1.lc.str,"EcartAutomaticHomogenization") == 0) { |
}else if (strcmp(ob1.lc.str,"EcartAutomaticHomogenization") == 0) { |
Ecart = KopInteger(ob2); |
EcartAutomaticHomogenization = KopInteger(ob2); |
rob = KpoInteger(EcartAutomaticHomogenization); |
rob = KpoInteger(EcartAutomaticHomogenization); |
}else{ |
}else{ |
warningKan("KsystemVariable():Unknown key word.\n"); |
warningKan("KsystemVariable():Unknown key word.\n"); |