| 4369 | |
| 4370 | |
| 4371 | shared_ptr<CoefficientFunction> NormCF (shared_ptr<CoefficientFunction> coef) |
| 4372 | { |
| 4373 | if (coef->IsZeroCF()) |
| 4374 | return ZeroCF(Array<int>()); |
| 4375 | |
| 4376 | if (coef->IsComplex()) |
| 4377 | return make_shared<NormCoefficientFunctionC> (coef); |
| 4378 | else |
| 4379 | return make_shared<NormCoefficientFunction> (coef); |
| 4380 | } |
| 4381 | |
| 4382 | shared_ptr<CoefficientFunction> EigCF (shared_ptr<CoefficientFunction> coef) |
| 4383 | { |