Pouzij aritmeticky IF: https://docs.oracle.com/cd/E19957-01/805-4939/6j4m0vn9p/index.html To je teprve ten pravy Fortran!