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-02-04 15:11:52 +00:00
parent c707269064
commit 9ad5b74cca
+5 -2
View File
@@ -381,7 +381,6 @@ struct selRecord *psel; /* pointer to selection record */
double val;
/* selection mechanism */
psel->udf = TRUE;
pvalue = &psel->a;
switch (psel->selm){
case (SELECTED):
@@ -418,12 +417,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);
}