https://pyclip.ru/en/tapes/DNwUESBw8rQ/16-programming-with-modern-fortran-control-structures