https://ruclips.ru/en/watch/M8-Gj2xCdz0/14-programming-with-modern-fortran-relational-operators