https://ruclips.ru/ru/watch/r0A2GaPZ6x4/17-programming-with-modern-fortran-if-construct