modified:   SpecInteg.R