In do_sel udf is not set false at the beginning. If selm has an invalid value recGblSetSevr(psel,SOFT_ALARM,MAJOR_ALARM) is called.

This commit is contained in:
Marty Kraimer
2002-03-08 15:25:43 +00:00
parent 3916d4e459
commit a778863602
+5 -2
View File
@@ -380,7 +380,6 @@ struct selRecord *psel; /* pointer to selection record */
double val;
/* selection mechanism */
psel->udf = TRUE;
pvalue = &psel->a;
switch (psel->selm){
case (SELECTED):
@@ -417,12 +416,16 @@ struct selRecord *psel; /* pointer to selection record */
val = order[order_inx/2];
break;
default:
recGblSetSevr(psel,SOFT_ALARM,MAJOR_ALARM);
return(-1);
}
if (val != 1e+30 && val != -1e+30 ){
psel->val=val;
psel->udf=FALSE;
}
} else {
recGblSetSevr(psel,UDF_ALARM,MAJOR_ALARM);
/* If UDF is TRUE this alarm will be overwritten by checkAlarms*/
}
/* initialize flag */
return(0);
}