void LRBFGS::Run(void) { DeleteVectors(S, LengthSY); NewVectors(S, LengthSY); DeleteVectors(Y, LengthSY); NewVectors(Y, LengthSY); if (RHO != nullptr) delete [] RHO; RHO = new double [LengthSY]; SolversLS::Run(); };
void LRTRSR1::Run(void) { DeleteVectors(S, LengthSY); NewVectors(S, LengthSY); DeleteVectors(Y, LengthSY); NewVectors(Y, LengthSY); DeleteVectors(YMGS, LengthSY); NewVectors(YMGS, LengthSY); if (SS != nullptr) delete[] SS; SS = new double[LengthSY * LengthSY]; if (SY != nullptr) delete[] SY; SY = new double[LengthSY * LengthSY]; if (PMGQ != nullptr) delete[] PMGQ; PMGQ = new double[LengthSY * LengthSY]; if (P != nullptr) delete[] P; P = new integer [LengthSY]; SolversTR::Run(); };