https://pyclip.ru/ru/tapes/FldHNQAEVcc/13-programming-with-modern-fortran-computing-discriminant