https://pyclip.ru/ru/tapes/r0A2GaPZ6x4/17-programming-with-modern-fortran-if-construct