Data validity check for confidence.
694 CALL keep_var(this%datiattr%c)
695 CALL qc_reform(this,data_id, miss=.true., purgeana=purgeana)
697 ELSE IF (
PRESENT(delete_attr))
THEN
699 if (optio_log(preserve))
call l4f_log(l4f_warn,
"preserve parameter ignored: delete_attr passed")
700 CALL delete_var(this%datiattr%r)
701 CALL delete_var(this%datiattr%d)
702 CALL delete_var(this%datiattr%i)