{"id":476903,"date":"2026-04-22T07:09:55","date_gmt":"2026-04-22T07:09:55","guid":{"rendered":"https:\/\/savepearlharbor.com\/?p=476903"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=476903","title":{"rendered":"\u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0435\u043d\u0438\u0435 \u043b\u0435\u0433\u0435\u043d\u0434\u044b: \u043f\u043e\u0447\u0435\u043c\u0443 Fortran \u0441\u043d\u043e\u0432\u0430 \u0432 \u0442\u043e\u043f\u0435 \u0438 \u0433\u0434\u0435 \u0435\u0433\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u0435\u0433\u043e\u0434\u043d\u044f"},"content":{"rendered":"<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<p>\u042f \u0432\u0437\u0433\u043b\u044f\u043d\u0443\u043b \u043d\u0430 \u0430\u043f\u0440\u0435\u043b\u044c\u0441\u043a\u0438\u0439 \u0440\u0435\u0439\u0442\u0438\u043d\u0433 TIOBE \u0437\u0430 2026 \u0433\u043e\u0434 \u0438 \u043f\u0440\u043e\u0442\u0451\u0440 \u0433\u043b\u0430\u0437\u0430. Python, C, C++, Java, C# \u2014 \u0441\u043a\u0443\u0447\u043d\u043e. \u041d\u043e \u0432\u043e\u0442 \u043d\u0430 10-\u0439 \u0441\u0442\u0440\u043e\u0447\u043a\u0435 \u0432\u043e\u0441\u0441\u0435\u0434\u0430\u0435\u0442 Delphi. \u0410 Fortran, \u044f\u0437\u044b\u043a, \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043f\u0438\u0441\u0430\u043b\u0438 \u0435\u0449\u0451 \u043f\u0440\u0438 \u0446\u0430\u0440\u0435 \u0413\u043e\u0440\u043e\u0445\u0435 \u0438 \u043a\u043e\u0442\u043e\u0440\u044b\u0439, \u043f\u043e \u043c\u043d\u0435\u043d\u0438\u044e \u0432\u0441\u0435\u0439 \u00ab\u043c\u043e\u0434\u043d\u043e\u0439\u00bb \u0442\u0443\u0441\u043e\u0432\u043a\u0438, \u0434\u0430\u0432\u043d\u043e \u0434\u043e\u043b\u0436\u0435\u043d \u043b\u0435\u0436\u0430\u0442\u044c \u043d\u0430 \u0441\u0432\u0430\u043b\u043a\u0435 \u0438\u0441\u0442\u043e\u0440\u0438\u0438, \u0441\u0442\u0430\u0431\u0438\u043b\u044c\u043d\u043e \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u0432 \u0442\u043e\u043f-15. \u0412 \u043c\u0430\u0440\u0442\u0435 2025 \u0433\u043e\u0434\u0430 \u043e\u043d \u0432\u043e\u043e\u0431\u0449\u0435 \u0432\u043e\u0440\u0432\u0430\u043b\u0441\u044f \u0432 \u0434\u0432\u0430\u0434\u0446\u0430\u0442\u043a\u0443 \u0432\u043c\u0435\u0441\u0442\u0435 \u0441 \u0442\u0430\u043a\u0438\u043c\u0438 \u00ab\u043c\u0430\u043c\u043e\u043d\u0442\u0430\u043c\u0438\u00bb, \u043a\u0430\u043a Ada \u0438 COBOL. <\/p>\n<p>\u0427\u0442\u043e \u0437\u0430 \u0447\u0435\u0440\u0442\u043e\u0432\u0449\u0438\u043d\u0430? Rust, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043a\u0440\u0438\u0447\u0430\u043b\u0438 \u043d\u0430 \u043a\u0430\u0436\u0434\u043e\u043c \u0443\u0433\u043b\u0443 \u043a\u0430\u043a \u00ab\u0443\u0431\u0438\u0439\u0446\u0443 \u0421++\u00bb, \u043f\u044b\u0436\u0438\u0442\u0441\u044f \u043d\u0430 16-\u043c \u043c\u0435\u0441\u0442\u0435, \u0430 \u0435\u0433\u043e \u0440\u043e\u0441\u0442, \u043f\u043e \u0441\u043b\u043e\u0432\u0430\u043c \u0433\u0435\u043d\u0435\u0440\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0434\u0438\u0440\u0435\u043a\u0442\u043e\u0440\u0430 TIOBE \u041f\u043e\u043b\u0430 \u042f\u043d\u0441\u0435\u043d\u0430, \u0437\u0430\u043c\u0435\u0434\u043b\u044f\u0435\u0442\u0441\u044f. \u0412 \u044d\u0442\u043e \u0436\u0435 \u0432\u0440\u0435\u043c\u044f Fortran, \u0442\u0438\u0445\u043e \u0438 \u0431\u0435\u0437 \u043b\u0438\u0448\u043d\u0435\u0433\u043e \u0448\u0443\u043c\u0430, \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0430\u0435\u0442 \u0431\u044b\u0442\u044c \u0444\u0443\u043d\u0434\u0430\u043c\u0435\u043d\u0442\u043e\u043c, \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u0432\u0441\u044f \u043c\u0438\u0440\u043e\u0432\u0430\u044f \u043d\u0430\u0443\u043a\u0430. \u041f\u043e\u0447\u0435\u043c\u0443 \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0438 \u043d\u0435 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044b\u0432\u0430\u044e\u0442 \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u044b \u0441\u0442\u0440\u043e\u043a \u043b\u0435\u0433\u0430\u0441\u0438 \u043d\u0430 Python \u0438\u043b\u0438 Go? \u041f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u0446\u0435\u043d\u0430 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u043a\u043e\u0434\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0441\u0447\u0438\u0442\u0430\u0435\u0442 \u044f\u0434\u0435\u0440\u043d\u044b\u0439 \u0440\u0435\u0430\u043a\u0442\u043e\u0440 \u0438\u043b\u0438 \u043f\u0440\u043e\u0433\u043d\u043e\u0437 \u043f\u043e\u0433\u043e\u0434\u044b \u043d\u0430 \u0437\u0430\u0432\u0442\u0440\u0430, \u0438\u0441\u0447\u0438\u0441\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u0435 \u0432 \u0447\u0430\u0441\u0430\u0445 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430, \u0430 \u0432 \u043c\u0438\u043b\u043b\u0438\u0430\u0440\u0434\u0430\u0445 \u0434\u043e\u043b\u043b\u0430\u0440\u043e\u0432 \u0438 \u0447\u0435\u043b\u043e\u0432\u0435\u0447\u0435\u0441\u043a\u0438\u0445 \u0436\u0438\u0437\u043d\u044f\u0445. <\/p>\n<p>\u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0440\u0430\u0437\u0431\u0438\u0440\u0430\u0442\u044c\u0441\u044f, \u0447\u0442\u043e \u0442\u0430\u043a\u043e\u0435 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 Fortran \u0438 \u043f\u043e\u0447\u0435\u043c\u0443 \u0432\u0430\u0448 \u0441\u043a\u0435\u043f\u0441\u0438\u0441 \u043f\u043e \u043f\u043e\u0432\u043e\u0434\u0443 \u00ab\u0434\u0438\u043d\u043e\u0437\u0430\u0432\u0440\u0430\u00bb \u043d\u0435 \u0438\u043c\u0435\u0435\u0442 \u043f\u043e\u0434 \u0441\u043e\u0431\u043e\u0439 \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u043e\u0441\u043d\u043e\u0432\u0430\u043d\u0438\u0439.<\/p>\n<h4>\u0413\u043b\u0430\u0432\u0430 1. \u0418\u0441\u0442\u043e\u0440\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u044d\u043a\u0441\u043a\u0443\u0440\u0441: Fortran \u2014 \u044d\u0442\u043e \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u043e\u0448\u043b\u043e\u0435, \u043d\u043e \u0438 \u043d\u0430\u0441\u0442\u043e\u044f\u0449\u0435\u0435<\/h4>\n<p>\u041c\u043d\u043e\u0433\u0438\u0435 \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0442 Fortran \u043a\u0430\u043a \u043d\u0435\u0447\u0442\u043e \u0441\u0440\u0435\u0434\u043d\u0435\u0435 \u043c\u0435\u0436\u0434\u0443 \u043f\u0435\u0440\u0444\u043e\u043a\u0430\u0440\u0442\u0430\u043c\u0438 \u0438 \u043a\u0430\u043c\u0435\u043d\u043d\u044b\u043c \u0432\u0435\u043a\u043e\u043c \u0441 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u043e\u043c FORTRAN 77, \u0433\u0434\u0435 \u0432\u0441\u0451 \u043f\u0438\u0448\u0435\u0442\u0441\u044f \u043a\u0430\u043f\u0441\u043e\u043c \u0438 \u0441 \u043e\u0442\u0441\u0442\u0443\u043f\u0430\u043c\u0438 \u0432 6 \u043f\u0440\u043e\u0431\u0435\u043b\u043e\u0432. \u0414\u0440\u0443\u0437\u044c\u044f, \u044d\u0442\u043e \u043a\u0430\u043a \u0441\u0443\u0434\u0438\u0442\u044c \u043e \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u0430\u0432\u0442\u043e \u043f\u043e \u0442\u0435\u043b\u0435\u0433\u0435.<\/p>\n<p>\u0414\u0430, FORTRAN 77 \u0431\u044b\u043b \u0441\u0443\u0440\u043e\u0432. \u041d\u043e \u044d\u0432\u043e\u043b\u044e\u0446\u0438\u044f \u043d\u0435 \u0441\u0442\u043e\u044f\u043b\u0430 \u043d\u0430 \u043c\u0435\u0441\u0442\u0435: Fortran 90 \u0432\u0432\u0451\u043b \u043c\u043e\u0434\u0443\u043b\u0438, \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0443\u044e \u043f\u0430\u043c\u044f\u0442\u044c \u0438 \u0440\u0430\u0431\u043e\u0442\u0443 \u0441 \u043c\u0430\u0441\u0441\u0438\u0432\u0430\u043c\u0438 \u043a\u0430\u043a \u0441 \u043e\u0431\u044a\u0435\u043a\u0442\u0430\u043c\u0438. Fortran 2003\/2008 \u0434\u043e\u0431\u0430\u0432\u0438\u043b\u0438 \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u0443\u044e \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0443\u044e \u043f\u0430\u0440\u0430\u0434\u0438\u0433\u043c\u0443 \u0438 \u043a\u043e-\u043c\u0430\u0441\u0441\u0438\u0432\u044b (coarrays) \u0434\u043b\u044f \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u044b\u0445 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439.<\/p>\n<p>\u0410 \u0432 \u043a\u043e\u043d\u0446\u0435 2023 \u0433\u043e\u0434\u0430 \u0442\u0438\u0445\u043e \u0438 \u0431\u0443\u0434\u043d\u0438\u0447\u043d\u043e \u0432\u044b\u0448\u0435\u043b \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442 <strong>Fortran 2023 (ISO\/IEC 1539-1:2023)<\/strong>. \u0412\u044b \u0434\u0443\u043c\u0430\u0435\u0442\u0435, \u0442\u0430\u043c \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0434\u043a\u0440\u0443\u0442\u0438\u043b\u0438 \u0441\u0442\u0430\u0440\u044b\u0435 \u0433\u0430\u0439\u043a\u0438? \u041a\u0430\u043a \u0431\u044b \u043d\u0435 \u0442\u0430\u043a. \u0412\u043e\u0442 \u043b\u0438\u0448\u044c \u043f\u0430\u0440\u0430 \u00ab\u0432\u043a\u0443\u0441\u043d\u044b\u0445\u00bb \u0444\u0438\u0447, \u043e\u0442 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0443 \u043b\u044e\u0431\u043e\u0433\u043e \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0433\u043e \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 \u0437\u0430\u0433\u043e\u0440\u044f\u0442\u0441\u044f \u0433\u043b\u0430\u0437\u0430:<\/p>\n<ul>\n<li>\n<p><strong>\u0423\u0441\u043b\u043e\u0432\u043d\u044b\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f:<\/strong> \u0422\u0435\u043f\u0435\u0440\u044c \u043c\u043e\u0436\u043d\u043e \u043f\u0438\u0441\u0430\u0442\u044c \u043d\u0435 \u0433\u0440\u043e\u043c\u043e\u0437\u0434\u043a\u0438\u0435 <code>IF<\/code>-\u0431\u043b\u043e\u043a\u0438, \u0430 \u044d\u043b\u0435\u0433\u0430\u043d\u0442\u043d\u044b\u0439 \u0442\u0435\u0440\u043d\u0430\u0440\u043d\u044b\u0439 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440 \u043f\u0440\u044f\u043c\u043e \u043a\u0430\u043a \u0432 \u0421\u0438: <code>value = ( a &gt; 0.0 ? a : 0.0 )<\/code>.<\/p>\n<\/li>\n<li>\n<p><strong>\u0410\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u0440\u0430\u0437\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u0442\u0440\u043e\u043a:<\/strong> \u0411\u043e\u043b\u044c\u0448\u0435 \u043d\u0438\u043a\u0430\u043a\u043e\u0433\u043e \u0440\u0443\u0447\u043d\u043e\u0433\u043e \u0432\u044b\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0431\u0443\u0444\u0435\u0440\u043e\u0432 \u043f\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u0434\u043b\u0438\u043d\u044b \u2014 \u044f\u0437\u044b\u043a \u0434\u0435\u043b\u0430\u0435\u0442 \u044d\u0442\u043e \u0441\u0430\u043c.<\/p>\n<\/li>\n<li>\n<p><strong>\u0422\u0440\u0438\u0433\u043e\u043d\u043e\u043c\u0435\u0442\u0440\u0438\u044f \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445:<\/strong> \u0424\u0443\u043d\u043a\u0446\u0438\u0438 <code>acosd<\/code>, <code>sind<\/code> \u0438 \u0434\u0440\u0443\u0433\u0438\u0435 \u2014 \u043c\u0435\u043b\u043e\u0447\u044c, \u0430 \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0431\u043e\u043b\u0438 \u043e\u043d\u0430 \u0441\u043d\u0438\u043c\u0430\u0435\u0442 \u0443 \u0438\u043d\u0436\u0435\u043d\u0435\u0440\u043e\u0432 \u0438 \u0443\u0447\u0451\u043d\u044b\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u043c \u043d\u0430\u0434\u043e\u0435\u043b\u043e \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0443\u043c\u043d\u043e\u0436\u0430\u0442\u044c \u043d\u0430 <code>pi\/180.<\/code><\/p>\n<\/li>\n<li>\n<p><strong>\u041c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u0430\u044f \u0434\u043b\u0438\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b:<\/strong> \u0423\u0432\u0435\u043b\u0438\u0447\u0435\u043d\u0430 \u0434\u043e 10 000 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432, \u0430 \u0434\u043b\u0438\u043d\u0430 \u043e\u0434\u043d\u043e\u0433\u043e \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u0430 \u2014 \u0434\u043e \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u041a\u0430\u043a \u0443\u0442\u0432\u0435\u0440\u0436\u0434\u0430\u0435\u0442\u0441\u044f, \u043e\u0434\u043d\u043e\u0439 \u0438\u0437 \u0446\u0435\u043b\u0435\u0439 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u0431\u043b\u0435\u0433\u0447\u0435\u043d\u0438\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u0438\u0441\u043a\u0443\u0441\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u043c \u0438\u043d\u0442\u0435\u043b\u043b\u0435\u043a\u0442\u043e\u043c.Fortran \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u0436\u0438\u0432 \u2014 \u043e\u043d \u0430\u043a\u0442\u0438\u0432\u043d\u043e \u0440\u0430\u0437\u0432\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0438 \u0432\u043f\u0438\u0442\u044b\u0432\u0430\u0435\u0442 \u0432 \u0441\u0435\u0431\u044f \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0444\u0438\u0448\u043a\u0438.<\/p>\n<\/li>\n<\/ul>\n<h4>\u0413\u043b\u0430\u0432\u0430 2. \u00ab\u041a\u0440\u043e\u0432\u0430\u0432\u044b\u0439 \u044d\u043d\u0442\u0435\u0440\u043f\u0440\u0430\u0439\u0437\u00bb: \u041f\u043e\u0447\u0435\u043c\u0443 Fortran \u043d\u0435 \u0443\u043c\u0438\u0440\u0430\u0435\u0442<\/h4>\n<details class=\"spoiler\">\n<summary>\u0421\u043a\u0440\u044b\u0442\u044b\u0439 \u0442\u0435\u043a\u0441\u0442<\/summary>\n<div class=\"spoiler__content\">\n<p>\u041e\u0442\u0432\u0435\u0442 \u043f\u0440\u043e\u0441\u0442 \u0438 \u0446\u0438\u043d\u0438\u0447\u0435\u043d: \u0434\u0435\u043d\u044c\u0433\u0438 \u0438 \u0441\u0442\u0440\u0430\u0445. <\/p>\n<\/div>\n<\/details>\n<p>\u041f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u044c\u0442\u0435, \u0447\u0442\u043e \u0432\u044b \u2014 \u0434\u0438\u0440\u0435\u043a\u0442\u043e\u0440 \u0430\u044d\u0440\u043e\u043a\u043e\u0441\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0430\u0433\u0435\u043d\u0442\u0441\u0442\u0432\u0430. \u0423 \u0432\u0430\u0441 \u0435\u0441\u0442\u044c 5 \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u043e\u0432 \u0441\u0442\u0440\u043e\u043a Fortran-\u043a\u043e\u0434\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 40 \u043b\u0435\u0442 \u0441\u0447\u0438\u0442\u0430\u0435\u0442 \u0430\u044d\u0440\u043e\u0434\u0438\u043d\u0430\u043c\u0438\u043a\u0443 \u043a\u0440\u044b\u043b\u0430. \u041e\u043d \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d \u0432 \u0434\u0435\u0441\u044f\u0442\u043a\u0430\u0445 \u0442\u044b\u0441\u044f\u0447 \u043b\u0451\u0442\u043d\u044b\u0445 \u0447\u0430\u0441\u043e\u0432, \u0438 \u0432 \u043d\u0451\u043c \u043d\u0435\u0442 \u043d\u0438 \u043e\u0434\u043d\u043e\u0439 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u043e\u0448\u0438\u0431\u043a\u0438. \u0412\u0430\u043c \u043f\u0440\u0435\u0434\u043b\u0430\u0433\u0430\u044e\u0442 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u044d\u0442\u043e \u043d\u0430 Rust. \u0417\u0430 3 \u0433\u043e\u0434\u0430, \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439 \u0438\u0437 50 \u0447\u0435\u043b\u043e\u0432\u0435\u043a, \u0441 \u0431\u044e\u0434\u0436\u0435\u0442\u043e\u043c \u0432 100 \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u043e\u0432 \u0434\u043e\u043b\u043b\u0430\u0440\u043e\u0432. \u0412\u044b \u0441\u043e\u0433\u043b\u0430\u0441\u0438\u0442\u0435\u0441\u044c?<\/p>\n<p>\u0410\u043d\u0430\u043b\u0438\u0442\u0438\u043a\u0438 TIOBE \u043f\u043e\u0434\u0442\u0432\u0435\u0440\u0436\u0434\u0430\u044e\u0442: Fortran \u0436\u0438\u0432\u0451\u0442 \u043d\u0435 \u043f\u043e\u0442\u043e\u043c\u0443, \u0447\u0442\u043e \u0435\u0433\u043e \u043b\u044e\u0431\u044f\u0442, \u0430 \u043f\u043e\u0442\u043e\u043c\u0443, \u0447\u0442\u043e \u043d\u0430 \u043d\u0451\u043c \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u0438\u043d\u0444\u0440\u0430\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430: \u0430\u0432\u0438\u043e\u043d\u0438\u043a\u0430, \u044f\u0434\u0435\u0440\u043d\u044b\u0435 \u0440\u0435\u0430\u043a\u0442\u043e\u0440\u044b, \u043c\u0435\u0442\u0435\u043e\u0440\u043e\u043b\u043e\u0433\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u0441\u0443\u043f\u0435\u0440\u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u044b, \u0430\u0441\u0442\u0440\u043e\u0444\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u0441\u0438\u043c\u0443\u043b\u044f\u0446\u0438\u0438. \u041f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u2014 \u0437\u043d\u0430\u0447\u0438\u0442 \u0441 \u0432\u0435\u0440\u043e\u044f\u0442\u043d\u043e\u0441\u0442\u044c\u044e 99% \u0432\u043d\u0435\u0441\u0442\u0438 \u0441\u043e\u0442\u043d\u0438 \u043d\u043e\u0432\u044b\u0445 \u0431\u0430\u0433\u043e\u0432, \u043a\u0430\u0436\u0434\u044b\u0439 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043c\u043e\u0436\u0435\u0442 \u0441\u0442\u043e\u0438\u0442\u044c \u043a\u0430\u043a \u043a\u0440\u044b\u043b\u043e \u0441\u0430\u043c\u043e\u043b\u0451\u0442\u0430.<\/p>\n<p>\u0411\u043e\u043b\u0435\u0435 \u0442\u043e\u0433\u043e, \u044d\u0442\u043e\u0442 \u00ab\u0434\u0440\u0435\u0432\u043d\u0438\u0439\u00bb \u043a\u043e\u0434 \u0447\u0430\u0441\u0442\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0431\u044b\u0441\u0442\u0440\u0435\u0435, \u0447\u0435\u043c \u0435\u0433\u043e \u00ab\u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435\u00bb \u043f\u043e\u0440\u0442\u044b. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u043a\u043b\u0430\u0441\u0441\u0438\u043a\u0443 \u0436\u0430\u043d\u0440\u0430 \u2014 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 \u0447\u0438\u0441\u043b\u0430 \u03c0 \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u041c\u043e\u043d\u0442\u0435-\u041a\u0430\u0440\u043b\u043e. \u042d\u0442\u043e \u0438\u0434\u0435\u0430\u043b\u044c\u043d\u044b\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u0434\u043b\u044f \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u0438 \u044d\u0432\u043e\u043b\u044e\u0446\u0438\u0438 \u044f\u0437\u044b\u043a\u0430: \u043f\u0435\u0440\u0432\u044b\u0439 \u2014 \u0441\u0442\u0430\u0440\u044b\u0439 FORTRAN 77, \u0432\u0442\u043e\u0440\u043e\u0439 \u2014 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 Fortran 2018+.<\/p>\n<pre><code>! \u0421\u0442\u0430\u0440\u044b\u0439 \u0434\u043e\u0431\u0440\u044b\u0439 FORTRAN 77 (Fixed format)! \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435: \u043c\u0435\u0442\u043a\u0438, \u043e\u0442\u0441\u0442\u0443\u043f\u044b \u0432 6 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432, \u0432\u0441\u0451 \u043a\u0430\u043f\u0441\u043e\u043c      PROGRAM PI_MONTE_CARLO_77      INTEGER I, N, COUNT      REAL X, Y, PI            N = 100000000      COUNT = 0            DO 10 I = 1, N         CALL RANDOM_NUMBER(X)  ! \u0412 77 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0435 \u043d\u0435 \u0431\u044b\u043b\u043e \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u043e\u0433\u043e random_number,         CALL RANDOM_NUMBER(Y)  ! \u043d\u043e \u043c\u043d\u043e\u0433\u0438\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u044b \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u043b\u0438 \u0441\u0432\u043e\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438         IF (X*X + Y*Y .LE. 1.0) COUNT = COUNT + 1   10 CONTINUE            PI = 4.0 * REAL(COUNT) \/ REAL(N)      WRITE(*,*) '\u0412\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 Pi = ', PI      END<\/code><div class=\"code-explainer\"><a href=\"https:\/\/sourcecraft.dev\/\" class=\"tm-button code-explainer__link\" style=\"visibility: hidden;\"><img style=\"width:87px;height:14px;object-fit:cover;object-position:left;\"\/><\/a><\/div><\/pre>\n<pre><code><\/code><div class=\"code-explainer\"><a href=\"https:\/\/sourcecraft.dev\/\" class=\"tm-button code-explainer__link\" style=\"visibility: hidden;\"><img style=\"width:14px;height:14px;object-fit:cover;object-position:left;\"\/><\/a><\/div><\/pre>\n<p>\u0420\u0430\u0437\u043d\u0438\u0446\u0430, \u043a\u0430\u043a \u043c\u0435\u0436\u0434\u0443 \u00ab\u0416\u0438\u0433\u0443\u043b\u044f\u043c\u0438\u00bb \u0438 \u00ab\u0422\u0435\u0441\u043b\u043e\u0439\u00bb, \u0445\u043e\u0442\u044f \u043e\u0431\u0430 \u0435\u0434\u0443\u0442. \u041b\u0435\u0433\u0430\u0441\u0438-\u043a\u043e\u0434 (\u043f\u0435\u0440\u0432\u044b\u0439) \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043d\u0430 \u043a\u0430\u043a\u043e\u043c-\u043d\u0438\u0431\u0443\u0434\u044c \u0441\u0443\u043f\u0435\u0440\u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0435 NOAA, \u0438 \u0435\u0433\u043e \u043d\u0438\u043a\u0442\u043e \u043d\u0435 \u0442\u0440\u043e\u0433\u0430\u0435\u0442 \u2014 <em>\u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442? \u041d\u0435 \u043b\u0435\u0437\u044c!<\/em> \u0410 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0432\u0435\u0440\u0441\u0438\u044f (\u0432\u0442\u043e\u0440\u043e\u0439) \u0443\u0436\u0435 \u0447\u0438\u0442\u0430\u0435\u0442\u0441\u044f \u043a\u0430\u043a \u043a\u043e\u0434 \u043d\u0430 Python \u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430\u043c\u0438 Julia, \u043d\u043e \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u043a\u043e\u043c\u043f\u0438\u043b\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u0432 \u043d\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u043c\u0430\u0448\u0438\u043d\u043d\u044b\u0439 \u043a\u043e\u0434 \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0432\u0435\u043a\u0442\u043e\u0440\u043d\u044b\u0435 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430 (<code>count(array)<\/code>).<\/p>\n<h4>\u0413\u043b\u0430\u0432\u0430 3. \u041f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c: \u0422\u0430\u043d\u0446\u044b \u0441 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u043e\u043c \u0438 \u043a\u044d\u0448\u0435\u043c<\/h4>\n<p>\u042f \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0441\u043b\u044b\u0448\u0443: \u00ab\u041d\u043e \u0432\u0435\u0434\u044c \u0421++ \u0442\u0430\u043a\u043e\u0439 \u0436\u0435 \u0431\u044b\u0441\u0442\u0440\u044b\u0439, \u0435\u0441\u043b\u0438 \u043d\u0435 \u0431\u044b\u0441\u0442\u0440\u0435\u0435!\u00bb. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043f\u0440\u0430\u0432\u0434\u0435 \u0432 \u0433\u043b\u0430\u0437\u0430. \u0412 \u0441\u0438\u043d\u0442\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0442\u0435\u0441\u0442\u0430\u0445 \u043d\u0430 \u0446\u0435\u043b\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0439 \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u043a\u0435 \u0438\u043b\u0438 \u043f\u0430\u0440\u0441\u0438\u043d\u0433\u0435 \u0441\u0442\u0440\u043e\u043a \u2014 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e. \u041d\u043e \u043a\u043e\u0433\u0434\u0430 \u0434\u0435\u043b\u043e \u0434\u043e\u0445\u043e\u0434\u0438\u0442 \u0434\u043e \u00ab\u0447\u0438\u0441\u0442\u043e\u0439\u00bb \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u0438 \u0441 \u043c\u043d\u043e\u0433\u043e\u043c\u0435\u0440\u043d\u044b\u043c\u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430\u043c\u0438, Fortran \u0443\u0445\u043e\u0434\u0438\u0442 \u0432 \u043e\u0442\u0440\u044b\u0432. <\/p>\n<p><strong>\u041f\u043e\u0447\u0435\u043c\u0443? \u0414\u0432\u0430 \u043a\u043b\u044e\u0447\u0435\u0432\u044b\u0445 \u0441\u043b\u043e\u0432\u0430: \u0430\u043b\u0438\u0430\u0441\u0438\u043d\u0433 \u0438 \u043f\u0430\u043c\u044f\u0442\u044c.<\/strong> <\/p>\n<ol>\n<li>\n<p><strong>Column-major.<\/strong> \u0412 \u043e\u0442\u043b\u0438\u0447\u0438\u0435 \u043e\u0442 C\/C++ (\u0433\u0434\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b \u0445\u0440\u0430\u043d\u044f\u0442\u0441\u044f \u043f\u043e \u0441\u0442\u0440\u043e\u043a\u0430\u043c, row-major), \u0432 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b \u0432 \u043f\u0430\u043c\u044f\u0442\u0438 \u0438\u0434\u0443\u0442 \u043f\u043e \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c. \u042d\u0442\u043e \u0438\u0434\u0435\u0430\u043b\u044c\u043d\u043e \u043b\u043e\u0436\u0438\u0442\u0441\u044f \u043d\u0430 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u0443 \u043b\u0438\u043d\u0435\u0439\u043d\u043e\u0439 \u0430\u043b\u0433\u0435\u0431\u0440\u044b (BLAS\/LAPACK), \u0433\u0434\u0435 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u043d\u0430\u0434 \u0432\u0435\u043a\u0442\u043e\u0440\u0430\u043c\u0438-\u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c\u0438 \u2014 \u0445\u043b\u0435\u0431 \u043d\u0430\u0441\u0443\u0449\u043d\u044b\u0439. \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u043c\u043e\u0436\u0435\u0442 \u0441\u043c\u0435\u043b\u043e \u0432\u0435\u043a\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0446\u0438\u043a\u043b\u044b, \u043d\u0435 \u0431\u043e\u044f\u0441\u044c \u0437\u0430 \u043a\u044d\u0448-\u043f\u0440\u043e\u043c\u0430\u0445\u0438.<\/p>\n<\/li>\n<li>\n<p><strong>\u041f\u0440\u0430\u0432\u0438\u043b\u043e <\/strong><code><strong>restrict<\/strong><\/code><strong>.<\/strong> \u0412 \u0421\/C++, \u0447\u0442\u043e\u0431\u044b \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u043c\u043e\u0433 \u0430\u0433\u0440\u0435\u0441\u0441\u0438\u0432\u043d\u043e \u043e\u043f\u0442\u0438\u043c\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0446\u0438\u043a\u043b \u0441 \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044f\u043c\u0438, \u0432\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u0433\u0430\u0440\u0430\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0435\u043c\u0443 \u0447\u0435\u0440\u0435\u0437 \u043a\u043b\u044e\u0447\u0435\u0432\u043e\u0435 \u0441\u043b\u043e\u0432\u043e <code>restrict<\/code>, \u0447\u0442\u043e \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u043f\u0430\u043c\u044f\u0442\u0438 \u043d\u0435 \u043f\u0435\u0440\u0435\u0441\u0435\u043a\u0430\u044e\u0442\u0441\u044f. \u0412 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u044d\u0442\u043e \u043f\u0440\u0430\u0432\u0438\u043b\u043e \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043e \u0432 \u044f\u0437\u044b\u043a \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0434\u043b\u044f \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u043e\u0432-\u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432. \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0432\u0441\u0435\u0433\u0434\u0430 \u0437\u043d\u0430\u0435\u0442, \u0447\u0442\u043e \u043f\u0440\u0438 \u0443\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u0438 \u043c\u0430\u0442\u0440\u0438\u0446\u044b <code>C = A * B<\/code> \u0434\u0430\u043d\u043d\u044b\u0435 \u043d\u0435 \u043d\u0430\u043b\u043e\u0436\u0430\u0442\u0441\u044f \u0434\u0440\u0443\u0433 \u043d\u0430 \u0434\u0440\u0443\u0433\u0430 \u0438 \u043d\u0435 \u0438\u0441\u043f\u043e\u0440\u0442\u044f\u0442 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442.<\/p>\n<\/li>\n<\/ol>\n<p>\u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0441\u0440\u0430\u0432\u043d\u0438\u043c \u043a\u043e\u0434 \u0443\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u044f \u043c\u0430\u0442\u0440\u0438\u0446. \u042f \u043d\u0430\u043f\u0438\u0441\u0430\u043b \u043d\u0430\u0438\u0432\u043d\u044b\u0439 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c (\u0442\u0440\u0438 \u0432\u043b\u043e\u0436\u0435\u043d\u043d\u044b\u0445 \u0446\u0438\u043a\u043b\u0430) \u043d\u0430 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u0438 \u043d\u0430 \u0421\u0438, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c, \u0432 \u0447\u0451\u043c \u043f\u043e\u0434\u0432\u043e\u0445. <\/p>\n<pre><code>subroutine matmul_fortran(A, B, C, n)    implicit none    integer, intent(in) :: n    real(8), intent(in) :: A(n,n), B(n,n)    real(8), intent(out) :: C(n,n)    integer :: i, j, k    C = 0.0d0    do j = 1, n        do k = 1, n            do i = 1, n                ! \u0417\u0434\u0435\u0441\u044c \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0432\u0438\u0434\u0438\u0442: A(:,k) \u0438 B(k,j) \u2014 \u044d\u0442\u043e \u0447\u0435\u0442\u043a\u0438\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b.                ! \u041d\u0435\u0442 \u043f\u0435\u0440\u0435\u0441\u0435\u0447\u0435\u043d\u0438\u044f \u0441 C, \u0442\u0430\u043a \u043a\u0430\u043a C \u043e\u0431\u044a\u044f\u0432\u043b\u0435\u043d \u043a\u0430\u043a intent(out).                ! \u0421\u043c\u0435\u043b\u043e \u0432\u0435\u043a\u0442\u043e\u0440\u0438\u0437\u0443\u0435\u043c \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0438\u0439 \u0446\u0438\u043a\u043b \u043f\u043e 'i'.                C(i,j) = C(i,j) + A(i,k) * B(k,j)            end do        end do    end doend subroutine matmul_fortran<\/code><div class=\"code-explainer\"><a href=\"https:\/\/sourcecraft.dev\/\" class=\"tm-button code-explainer__link\" style=\"visibility: hidden;\"><img style=\"width:14px;height:14px;object-fit:cover;object-position:left;\"\/><\/a><\/div><\/pre>\n<pre><code>\/\/ \u0412\u041d\u0418\u041c\u0410\u041d\u0418\u0415: \u042d\u0442\u043e \u043d\u0430\u0438\u0432\u043d\u044b\u0439 \u0438 \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043e\u043f\u0430\u0441\u043d\u044b\u0439 \u043a\u043e\u0434!void matmul_c(int n, double A[n][n], double B[n][n], double C[n][n]) {    for (int i = 0; i &lt; n; ++i) {        for (int j = 0; j &lt; n; ++j) {            double sum = 0.0;            for (int k = 0; k &lt; n; ++k) {                \/\/ \u0410\u043b\u0438\u0430\u0441\u0438\u043d\u0433! \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u043d\u0435 \u0437\u043d\u0430\u0435\u0442, \u043d\u0435 \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u043b\u0438 A \u043d\u0430 \u0442\u0443 \u0436\u0435 \u043f\u0430\u043c\u044f\u0442\u044c,                \/\/ \u0447\u0442\u043e \u0438 C. \u0412\u0434\u0440\u0443\u0433 \u044d\u0442\u043e C = C * A? \u0422\u043e\u0433\u0434\u0430 \u043c\u0435\u043d\u044f\u0442\u044c \u043f\u043e\u0440\u044f\u0434\u043e\u043a \u0446\u0438\u043a\u043b\u043e\u0432                \/\/ \u0438\u043b\u0438 \u0432\u0435\u043a\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u041d\u0415\u041b\u042c\u0417\u042f!                sum += A[i][k] * B[k][j];            }            C[i][j] = sum;        }    }}<\/code><div class=\"code-explainer\"><a href=\"https:\/\/sourcecraft.dev\/\" class=\"tm-button code-explainer__link\" style=\"visibility: hidden;\"><img style=\"width:14px;height:14px;object-fit:cover;object-position:left;\"\/><\/a><\/div><\/pre>\n<p>\u0412 \u0421\u0438-\u0432\u0435\u0440\u0441\u0438\u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0432\u044b\u043d\u0443\u0436\u0434\u0435\u043d \u00ab\u043f\u0435\u0440\u0435\u0441\u0442\u0440\u0430\u0445\u043e\u0432\u044b\u0432\u0430\u0442\u044c\u0441\u044f\u00bb \u0438 \u0433\u0435\u043d\u0435\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043c\u0435\u043d\u0435\u0435 \u043e\u043f\u0442\u0438\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u043a\u043e\u0434, \u0435\u0441\u043b\u0438 \u0432\u044b \u044f\u0432\u043d\u043e \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043b\u0438 <code>restrict<\/code> \u0438\u043b\u0438 \u043f\u0440\u0430\u0433\u043c\u044b. \u0412 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u0436\u0435 \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430 \u0430\u043b\u0438\u0430\u0441\u0438\u043d\u0433\u0430 \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043f\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044e \u0434\u043b\u044f \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u0441 \u0440\u0430\u0437\u043d\u044b\u043c\u0438 \u0430\u0442\u0440\u0438\u0431\u0443\u0442\u0430\u043c\u0438 <code>intent<\/code>.<\/p>\n<p><strong>\u0418\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0439 \u043d\u0435 \u0434\u0440\u0435\u043c\u043b\u0435\u0442:<\/strong>\u0420\u0430\u043d\u044c\u0448\u0435 \u0431\u044b\u0442\u043e\u0432\u0430\u043b\u043e \u043c\u043d\u0435\u043d\u0438\u0435, \u0447\u0442\u043e \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 GNU Fortran (<code>gfortran<\/code>) \u043f\u0440\u043e\u0438\u0433\u0440\u044b\u0432\u0430\u0435\u0442 \u043f\u0440\u043e\u043f\u0440\u0438\u0435\u0442\u0430\u0440\u043d\u044b\u043c \u0433\u0438\u0433\u0430\u043d\u0442\u0430\u043c \u0432\u0440\u043e\u0434\u0435 Intel Fortran. \u0421\u0435\u0439\u0447\u0430\u0441 \u0432 \u0438\u0433\u0440\u0443 \u0432\u043e\u0440\u0432\u0430\u043b\u0441\u044f <strong>LLVM Flang<\/strong>. \u0412 \u043c\u0430\u0440\u0442\u0435 2025 \u0433\u043e\u0434\u0430 \u0441 \u0432\u044b\u0445\u043e\u0434\u043e\u043c LLVM 20 \u0434\u0440\u0430\u0439\u0432\u0435\u0440 Flang \u0431\u044b\u043b \u043e\u0444\u0438\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043f\u0435\u0440\u0435\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d \u0438\u0437 <code>flang-new<\/code> \u0432 \u043f\u0440\u043e\u0441\u0442\u043e <code>flang<\/code>, \u0447\u0442\u043e \u0433\u043e\u0432\u043e\u0440\u0438\u0442 \u043e \u043f\u043e\u043b\u043d\u043e\u0439 \u0443\u0432\u0435\u0440\u0435\u043d\u043d\u043e\u0441\u0442\u0438 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432 \u0432 \u0435\u0433\u043e \u043f\u0440\u043e\u0434\u0430\u043a\u0448\u0435\u043d-\u0433\u043e\u0442\u043e\u0432\u043d\u043e\u0441\u0442\u0438. \u0418\u0441\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u044e\u0442, \u0447\u0442\u043e \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c Flang \u0443\u0436\u0435 \u0441\u043e\u043f\u043e\u0441\u0442\u0430\u0432\u0438\u043c\u0430 \u0441 \u043b\u0438\u0434\u0435\u0440\u0430\u043c\u0438 \u0440\u044b\u043d\u043a\u0430 HPC.<\/p>\n<h4>\u0413\u043b\u0430\u0432\u0430 4. Fortran \u0438 GPU: \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u0434\u043b\u044f CPU<\/h4>\n<p>\u042f \u0447\u0430\u0441\u0442\u043e \u0441\u043b\u044b\u0448\u0443: \u00abFortran \u2014 \u044d\u0442\u043e \u0447\u0438\u0441\u0442\u043e \u043f\u0440\u043e CPU, \u0430 \u0434\u043b\u044f GPU \u043d\u0443\u0436\u0435\u043d Python\/CUDA\/C++\u00bb. \u042d\u0442\u043e \u043e\u043f\u0430\u0441\u043d\u043e\u0435 \u0437\u0430\u0431\u043b\u0443\u0436\u0434\u0435\u043d\u0438\u0435, \u0437\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0432 HPC-\u0441\u0440\u0435\u0434\u0435 \u0431\u044c\u044e\u0442 \u043a\u0430\u043d\u0434\u0435\u043b\u044f\u0431\u0440\u043e\u043c.<\/p>\n<p>\u0421\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 Fortran \u2014 \u044d\u0442\u043e \u043f\u0435\u0440\u0432\u043e\u043a\u043b\u0430\u0441\u0441\u043d\u044b\u0439 \u0433\u0440\u0430\u0436\u0434\u0430\u043d\u0438\u043d \u0432 \u043c\u0438\u0440\u0435 \u0443\u0441\u043a\u043e\u0440\u0438\u0442\u0435\u043b\u0435\u0439. \u0423 \u043d\u0430\u0441 \u0435\u0441\u0442\u044c \u0442\u0440\u0438 \u043c\u043e\u0449\u043d\u044b\u0445 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0442 \u043d\u0435 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0442\u043e\u043d\u043d\u044b \u043b\u0435\u0433\u0430\u0441\u0438, \u0430 \u043f\u0440\u043e\u0441\u0442\u043e \u00ab\u0432\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u0443\u0441\u043a\u043e\u0440\u0435\u043d\u0438\u0435\u00bb:<\/p>\n<ol>\n<li>\n<p><strong>CUDA Fortran:<\/strong> \u041f\u0440\u044f\u043c\u043e\u0439 \u0434\u043e\u0441\u0442\u0443\u043f \u043a \u044f\u0434\u0440\u0430\u043c NVIDIA. \u0412\u044b \u043f\u0438\u0448\u0435\u0442\u0435 \u0430\u0442\u0440\u0438\u0431\u0443\u0442\u044b <code>attributes(global)<\/code>, \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442\u0435 \u044f\u0434\u0440\u0430 \u0447\u0435\u0440\u0435\u0437 <code>&lt;&lt;&lt;...&gt;&gt;&gt;<\/code> \u0438 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442\u0435 \u0441 \u043f\u0430\u043c\u044f\u0442\u044c\u044e \u0443\u0441\u0442\u0440\u043e\u0439\u0441\u0442\u0432\u0430. \u041f\u043e\u043b\u043d\u044b\u0439 \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u044c, \u043a\u0430\u043a \u0432 C++. <\/p>\n<\/li>\n<li>\n<p><strong>OpenACC:<\/strong> \u0414\u0438\u0440\u0435\u043a\u0442\u0438\u0432\u043d\u044b\u0439 \u043f\u043e\u0434\u0445\u043e\u0434. \u0412\u044b \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442\u0435 \u0432 \u0441\u0432\u043e\u0439 \u0441\u0442\u0430\u0440\u044b\u0439 \u043a\u043e\u0434 \u0441\u0442\u0440\u043e\u0447\u043a\u0438 \u0442\u0438\u043f\u0430 <code>!$acc parallel loop<\/code>, \u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 (\u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, <code>nvfortran<\/code> \u0438\u0437 NVIDIA HPC SDK) \u0441\u0430\u043c \u0440\u0430\u0437\u0431\u0438\u0440\u0430\u0435\u0442\u0441\u044f, \u043a\u0430\u043a \u0437\u0430\u0442\u0430\u0449\u0438\u0442\u044c \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f \u043d\u0430 \u0432\u0438\u0434\u0435\u043e\u043a\u0430\u0440\u0442\u0443. <\/p>\n<\/li>\n<li>\n<p><strong>DO CONCURRENT:<\/strong> \u0421\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u0439 \u0446\u0438\u043a\u043b \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0433\u043e\u0432\u043e\u0440\u0438\u0442 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u0443: \u00ab\u0417\u0434\u0435\u0441\u044c \u043d\u0435\u0442 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0435\u0439 \u043f\u043e \u0434\u0430\u043d\u043d\u044b\u043c, \u0434\u0435\u043b\u0430\u0439 \u0447\u0442\u043e \u0445\u043e\u0447\u0435\u0448\u044c, \u0445\u043e\u0442\u044c \u043d\u0430 1000 \u044f\u0434\u0435\u0440 GPU \u0440\u0430\u0437\u043c\u0430\u0436\u044c\u00bb. NVIDIA HPC SDK \u0443\u043c\u0435\u0435\u0442 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0440\u0430\u0437\u0433\u0440\u0443\u0436\u0430\u0442\u044c \u0442\u0430\u043a\u0438\u0435 \u0446\u0438\u043a\u043b\u044b \u043d\u0430 GPU \u0441 \u0444\u043b\u0430\u0433\u043e\u043c <code>-stdpar=gpu<\/code>. <\/p>\n<\/li>\n<\/ol>\n<p>\u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c, \u043a\u0430\u043a \u044d\u0442\u043e \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0432 \u043a\u043e\u0434\u0435. \u0412\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u0438\u0440\u0435\u043a\u0442\u0438\u0432 OpenACC \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0435\u0442\u0430 \u043a\u0430\u043a\u043e\u0433\u043e-\u043d\u0438\u0431\u0443\u0434\u044c \u0442\u044f\u0436\u0435\u043b\u043e\u0433\u043e \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b\u0430 (\u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0433\u0440\u0430\u0432\u0438\u0442\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u0433\u043e): <\/p>\n<pre><code>program gpu_acceleration    implicit none    integer, parameter :: n = 1000000    real(8) :: pos(3, n), forces(3, n)    integer :: i, j    real(8) :: dx, dy, dz, dist_sq, inv_dist        ! \u0418\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f \u0434\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 \u0445\u043e\u0441\u0442\u0435 (CPU)    call random_number(pos)    forces = 0.0d0        ! --- \u0421\u0430\u043c\u043e\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0435: \u0434\u0438\u0440\u0435\u043a\u0442\u0438\u0432\u044b OpenACC ---    ! \u041a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u043d\u0430 GPU \u043f\u0435\u0440\u0435\u0434 \u0440\u0430\u0441\u0447\u0435\u0442\u0430\u043c\u0438    !$acc data copyin(pos) copy(forces)        !$acc parallel loop    do i = 1, n        ! \u041b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0431\u0443\u0434\u0443\u0442 \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u043c\u0438 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u043f\u043e\u0442\u043e\u043a\u0430 GPU        real(8) :: fx, fy, fz        fx = 0.0d0; fy = 0.0d0; fz = 0.0d0                !$acc loop reduction(+:fx, fy, fz)        do j = 1, n            if (i == j) cycle                        dx = pos(1, i) - pos(1, j)            dy = pos(2, i) - pos(2, j)            dz = pos(3, i) - pos(3, j)                        dist_sq = dx*dx + dy*dy + dz*dz + 1.0d-12            inv_dist = 1.0d0 \/ sqrt(dist_sq)  ! \u0422\u044f\u0436\u0435\u043b\u0430\u044f \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u0430                        fx = fx + dx * inv_dist**3            fy = fy + dy * inv_dist**3            fz = fz + dz * inv_dist**3        end do                forces(1, i) = fx        forces(2, i) = fy        forces(3, i) = fz    end do        !$acc end data    end program gpu_acceleration<\/code><div class=\"code-explainer\"><a href=\"https:\/\/sourcecraft.dev\/\" class=\"tm-button code-explainer__link\" style=\"visibility: hidden;\"><img style=\"width:14px;height:14px;object-fit:cover;object-position:left;\"\/><\/a><\/div><\/pre>\n<p>\u0417\u0434\u0435\u0441\u044c \u043c\u044b \u043f\u0440\u043e\u0441\u0442\u043e \u0441\u043a\u0430\u0437\u0430\u043b\u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u0443 <code>nvfortran -acc=gpu -O3<\/code>, \u043a\u0430\u043a\u0438\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0441\u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043d\u0430 \u0443\u0441\u043a\u043e\u0440\u0438\u0442\u0435\u043b\u044c \u0438 \u043a\u0430\u043a\u0438\u0435 \u0446\u0438\u043a\u043b\u044b \u0440\u0430\u0441\u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u0438\u0442\u044c. \u0412\u0441\u0451! \u041d\u0438\u043a\u0430\u043a\u0438\u0445 \u0430\u043b\u043b\u043e\u043a\u0430\u0446\u0438\u0439 \u0447\u0435\u0440\u0435\u0437 <code>cudaMalloc<\/code> \u0438 \u0440\u0443\u0447\u043d\u044b\u0445 \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0439, \u0445\u043e\u0442\u044f, \u0435\u0441\u043b\u0438 \u0437\u0430\u0445\u043e\u0447\u0435\u0442\u0441\u044f \u043f\u043e\u043b\u043d\u043e\u0433\u043e \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u044f, CUDA Fortran \u0434\u0430\u0441\u0442 \u0432\u0430\u043c \u044d\u0442\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u044b. <\/p>\n<h4>\u0413\u043b\u0430\u0432\u0430 5. Fortran \u0438 AI: \u0421\u0442\u0440\u0430\u043d\u043d\u0430\u044f, \u043d\u043e \u043c\u043e\u0449\u043d\u0430\u044f \u0441\u0438\u043d\u0435\u0440\u0433\u0438\u044f<\/h4>\n<p>\u041a\u0430\u0437\u0430\u043b\u043e\u0441\u044c \u0431\u044b, AI \u0438 Fortran \u2014 \u0434\u0432\u0435 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u044b\u0435 \u0432\u0441\u0435\u043b\u0435\u043d\u043d\u044b\u0435. AI \u0436\u0438\u0432\u0451\u0442 \u0432 Python \u0441 PyTorch\/TensorFlow, \u0430 Fortran \u2014 \u0432 \u043c\u0438\u0440\u0435 \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u0439 \u041d\u0430\u0432\u044c\u0435-\u0421\u0442\u043e\u043a\u0441\u0430. \u041d\u043e, \u043a\u0430\u043a \u043b\u044e\u0431\u0438\u043b \u0433\u043e\u0432\u043e\u0440\u0438\u0442\u044c \u043e\u0434\u0438\u043d \u043c\u043e\u0439 \u043d\u0430\u0443\u0447\u0440\u0443\u043a, \u00ab\u0432 \u0442\u043e\u0447\u043a\u0435 \u0441\u0438\u043d\u0433\u0443\u043b\u044f\u0440\u043d\u043e\u0441\u0442\u0438 \u0441\u0445\u043e\u0434\u044f\u0442\u0441\u044f \u0434\u0430\u0436\u0435 \u043f\u0440\u043e\u0442\u0438\u0432\u043e\u043f\u043e\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u0438\u00bb.<\/p>\n<p>\u041f\u0440\u043e\u0431\u043b\u0435\u043c\u0430 \u043a\u043b\u0430\u0441\u0441\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043f\u043e\u0434\u0445\u043e\u0434\u0430: \u0443 \u0432\u0430\u0441 \u0435\u0441\u0442\u044c CFD-\u0440\u0430\u0441\u0447\u0435\u0442 \u043d\u0430 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0441\u0447\u0438\u0442\u0430\u0435\u0442 \u043f\u043e\u043b\u0435 \u0442\u0435\u0447\u0435\u043d\u0438\u044f. \u0412\u044b \u0445\u043e\u0442\u0438\u0442\u0435 \u0437\u0430\u043c\u0435\u043d\u0438\u0442\u044c \u0434\u043e\u0440\u043e\u0433\u043e\u0439 \u0431\u043b\u043e\u043a \u043c\u043e\u0434\u0435\u043b\u0438 \u0442\u0443\u0440\u0431\u0443\u043b\u0435\u043d\u0442\u043d\u043e\u0441\u0442\u0438 \u043d\u0430 \u043d\u0435\u0439\u0440\u043e\u0441\u0435\u0442\u044c. \u0427\u0442\u043e \u043e\u0431\u044b\u0447\u043d\u043e \u0434\u0435\u043b\u0430\u044e\u0442? \u0412\u044b\u0433\u0440\u0443\u0436\u0430\u044e\u0442 \u0434\u0430\u043d\u043d\u044b\u0435, \u043f\u0435\u0440\u0435\u0434\u0430\u044e\u0442 \u0432 Python-\u0441\u043a\u0440\u0438\u043f\u0442, \u0442\u043e\u0442 \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u0442 PyTorch, \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u043e\u0431\u0440\u0430\u0442\u043d\u043e \u0432 Fortran. \u042d\u0442\u043e \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u00ab\u043a\u043e\u0441\u0442\u044b\u043b\u044c \u0447\u0435\u0440\u0435\u0437 \u0444\u0430\u0439\u043b\u043e\u0432\u0443\u044e \u0441\u0438\u0441\u0442\u0435\u043c\u0443\u00bb, \u0438 \u043e\u043d \u0441\u0436\u0438\u0440\u0430\u0435\u0442 \u0432\u0441\u044e \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u043d\u0430\u0441\u043c\u0430\u0440\u043a\u0443.<\/p>\n<p>\u0420\u0435\u0448\u0435\u043d\u0438\u0435 \u043f\u0440\u0438\u0448\u043b\u043e \u0438\u0437 \u0434\u0432\u0443\u0445 \u0432\u0435\u0434\u0443\u0449\u0438\u0445 \u043b\u0430\u0431\u043e\u0440\u0430\u0442\u043e\u0440\u0438\u0439: <\/p>\n<ol>\n<li>\n<p><strong>Fiats (Berkeley Lab):<\/strong> \u042d\u0442\u043e \u043d\u0430\u0442\u0438\u0432\u043d\u0430\u044f \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0430 \u0433\u043b\u0443\u0431\u043e\u043a\u043e\u0433\u043e \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u044f \u043d\u0430 \u0447\u0438\u0441\u0442\u043e\u043c \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u043c \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435. \u0411\u0435\u0437 Python, \u0431\u0435\u0437 Torch, \u0431\u0435\u0437 \u0432\u043d\u0435\u0448\u043d\u0438\u0445 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0435\u0439. \u0415\u0451 \u0444\u0438\u0448\u043a\u0430 \u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u043d\u0430\u0442\u0438\u0432\u043d\u044b\u0445 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u044b\u0445 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0439 \u044f\u0437\u044b\u043a\u0430, \u0442\u0430\u043a\u0438\u0445 \u043a\u0430\u043a <code>do concurrent<\/code>, \u0434\u043b\u044f \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u044f \u043d\u0435\u0439\u0440\u043e\u0441\u0435\u0442\u0435\u0439 \u043f\u0440\u044f\u043c\u043e \u0432\u043d\u0443\u0442\u0440\u0438 \u0444\u043e\u0440\u0442\u0440\u0430\u043d\u043e\u0432\u0441\u043a\u043e\u0433\u043e \u043a\u043e\u0434\u0430. \u041f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u044c\u0442\u0435: \u043a\u043b\u0438\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u043c\u043e\u0434\u0435\u043b\u044c E3SM (Energy Exascale Earth System), \u0432\u0441\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u0430\u044f \u043d\u0430 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435, \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u0442 \u0431\u043b\u043e\u043a \u043d\u0435\u0439\u0440\u043e\u0441\u0435\u0442\u0435\u0432\u043e\u0433\u043e \u0443\u0441\u043a\u043e\u0440\u0435\u043d\u0438\u044f, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0438\u0441\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u043d\u0430 GPU \u0431\u0435\u0437 \u0435\u0434\u0438\u043d\u043e\u0433\u043e \u0431\u0430\u0439\u0442\u0430 Python. Fiats \u0443\u0436\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0434\u043b\u044f \u0441\u0443\u0440\u0440\u043e\u0433\u0430\u0442\u043d\u043e\u0433\u043e \u043c\u043e\u0434\u0435\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043c\u0438\u043a\u0440\u043e\u0444\u0438\u0437\u0438\u043a\u0438 \u043e\u0431\u043b\u0430\u043a\u043e\u0432 \u0432 ICAR \u0438 \u0430\u044d\u0440\u043e\u0437\u043e\u043b\u044c\u043d\u043e\u0439 \u0434\u0438\u043d\u0430\u043c\u0438\u043a\u0438 \u0432 E3SM. \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u2014 \u0443\u0441\u043a\u043e\u0440\u0435\u043d\u0438\u0435 \u0440\u0430\u0441\u0447\u0451\u0442\u043e\u0432 \u043d\u0430 \u043f\u043e\u0440\u044f\u0434\u043a\u0438 \u0431\u0435\u0437 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044b\u0432\u0430\u043d\u0438\u044f \u043a\u043e\u0434\u043e\u0432\u043e\u0439 \u0431\u0430\u0437\u044b. <\/p>\n<\/li>\n<li>\n<p><strong>FTorch (Cambridge\/ICCS):<\/strong> \u0410 \u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u0443\u0436\u0435 \u0435\u0441\u0442\u044c \u043e\u0431\u0443\u0447\u0435\u043d\u043d\u0430\u044f \u043d\u0430 Python \u043c\u043e\u0434\u0435\u043b\u044c PyTorch \u0438 \u0432\u0430\u043c \u043b\u0435\u043d\u044c \u0435\u0451 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c? FTorch \u2014 \u044d\u0442\u043e \u043c\u043e\u0441\u0442 \u043c\u0435\u0436\u0434\u0443 \u043c\u0438\u0440\u0430\u043c\u0438. \u0412\u044b \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u0442\u0435 \u043c\u043e\u0434\u0435\u043b\u044c \u0432 TorchScript, \u0430 \u0437\u0430\u0442\u0435\u043c \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u0442\u0435 \u0435\u0451 \u043d\u0430\u043f\u0440\u044f\u043c\u0443\u044e \u0438\u0437 \u0441\u0432\u043e\u0435\u0433\u043e \u0444\u043e\u0440\u0442\u0440\u0430\u043d\u043e\u0432\u0441\u043a\u043e\u0433\u043e \u043a\u043e\u0434\u0430, \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u044f \u0442\u0435\u043d\u0437\u043e\u0440\u044b \u0442\u0443\u0434\u0430 \u0438 \u043e\u0431\u0440\u0430\u0442\u043d\u043e. \u042d\u0442\u043e \u043e\u0444\u0438\u0446\u0438\u0430\u043b\u044c\u043d\u0430\u044f \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0430 \u0441 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u043e\u0439 CPU \u0438 GPU, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u0430\u044f \u043d\u0430 Fortran 2008 \u0438 \u043f\u0440\u043e\u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0430\u044f \u0432 \u0431\u043e\u0435\u0432\u044b\u0445 \u043d\u0430\u0443\u0447\u043d\u044b\u0445 \u043f\u0440\u043e\u0435\u043a\u0442\u0430\u0445. <\/p>\n<\/li>\n<\/ol>\n<p>\u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0433\u043b\u044f\u043d\u0435\u043c, \u043a\u0430\u043a \u043f\u0440\u043e\u0441\u0442\u043e \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0432\u044b\u0437\u043e\u0432 PyTorch \u043c\u043e\u0434\u0435\u043b\u0438 \u0438\u0437 Fortran \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e FTorch: <\/p>\n<pre><code>program ai_in_fortran    use ftorch    implicit none        type(torch_module) :: model    type(torch_tensor), dimension(1) :: input_tensor, output_tensor        real, dimension(:,:), allocatable :: input_data, output_data        integer :: i, j    integer, parameter :: input_dim = 10    integer, parameter :: output_dim = 1        ! 1. \u0413\u043e\u0442\u043e\u0432\u0438\u043c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0434\u043b\u044f \u043d\u0435\u0439\u0440\u043e\u0441\u0435\u0442\u0438 (\u043a\u0430\u043a \u043e\u0431\u044b\u0447\u043d\u043e \u0432 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435)    allocate(input_data(input_dim, 1))    allocate(output_data(output_dim, 1))        ! \u0417\u0430\u043f\u043e\u043b\u043d\u044f\u0435\u043c \u0432\u0445\u043e\u0434\u043d\u043e\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 (\u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0442\u0443\u0440\u0431\u0443\u043b\u0435\u043d\u0442\u043d\u043e\u0441\u0442\u0438 \u0438\u0437 CFD)    call random_number(input_data)        ! 2. \u0413\u0440\u0443\u0437\u0438\u043c \u043c\u043e\u0434\u0435\u043b\u044c, \u043e\u0431\u0443\u0447\u0435\u043d\u043d\u0443\u044e \u0432 Python (\u0441\u043e\u0445\u0440\u0430\u043d\u0435\u043d\u043d\u0443\u044e \u043a\u0430\u043a TorchScript)    call torch_module_load(model, 'turbulence_model.pt', torch_kCPU)        ! 3. \u041e\u0431\u043e\u0440\u0430\u0447\u0438\u0432\u0430\u0435\u043c \u0444\u043e\u0440\u0442\u0440\u0430\u043d\u043e\u0432\u0441\u043a\u0438\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b \u0432 \u0442\u0435\u043d\u0437\u043e\u0440\u044b, \u043f\u043e\u043d\u044f\u0442\u043d\u044b\u0435 Torch    call torch_tensor_from_array(input_tensor(1), input_data, torch_kCPU)    call torch_tensor_from_array(output_tensor(1), output_data, torch_kCPU)        ! 4. \u0414\u0435\u043b\u0430\u0435\u043c \u0438\u043d\u0444\u0435\u0440\u0435\u043d\u0441! \u041c\u043e\u0434\u0435\u043b\u044c \u0441\u0447\u0438\u0442\u0430\u0435\u0442, \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043f\u0430\u0434\u0430\u0435\u0442 \u043f\u0440\u044f\u043c\u043e \u0432 output_data    call torch_module_forward(model, input_tensor, output_tensor)        ! 5. \u0420\u0430\u0431\u043e\u0442\u0430\u0435\u043c \u0441 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u043c \u0432 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u0434\u0430\u043b\u044c\u0448\u0435    print *, '\u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0440\u0430\u0431\u043e\u0442\u044b \u043d\u0435\u0439\u0440\u043e\u0441\u0435\u0442\u0438:', output_data(:,1)        ! 6. \u0427\u0438\u0441\u0442\u0438\u043c \u0437\u0430 \u0441\u043e\u0431\u043e\u0439    call torch_tensor_delete(input_tensor(1))    call torch_tensor_delete(output_tensor(1))    call torch_module_delete(model)    end program ai_in_fortran<\/code><div class=\"code-explainer\"><a href=\"https:\/\/sourcecraft.dev\/\" class=\"tm-button code-explainer__link\" style=\"visibility: hidden;\"><img style=\"width:14px;height:14px;object-fit:cover;object-position:left;\"\/><\/a><\/div><\/pre>\n<p>\u042d\u0442\u043e \u043d\u0435 \u043c\u0430\u0433\u0438\u044f. \u042d\u0442\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0433\u0440\u0430\u043c\u043e\u0442\u043d\u0430\u044f \u0438\u043d\u0436\u0435\u043d\u0435\u0440\u043d\u0430\u044f \u0440\u0430\u0431\u043e\u0442\u0430, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0438\u0437\u0431\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u0430\u0441 \u043e\u0442 \u0430\u0434\u0441\u043a\u043e\u0433\u043e \u0444\u0430\u0439\u043b\u043e\u0432\u043e\u0433\u043e \u043e\u0431\u043c\u0435\u043d\u0430 \u0438 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c \u0433\u0438\u0431\u0440\u0438\u0434\u043d\u044b\u0435 \u043c\u043e\u0434\u0435\u043b\u0438 \u00ab\u0444\u0438\u0437\u0438\u043a\u0430 + ML\u00bb \u043d\u0430\u0442\u0438\u0432\u043d\u043e. <\/p>\n<h4>\u0413\u043b\u0430\u0432\u0430 6. Fortran vs Julia vs Rust: \u0411\u0438\u0442\u0432\u0430 \u0437\u0430 HPC-\u0442\u0440\u043e\u043d<\/h4>\n<p>\u041d\u0430\u0443\u0447\u043d\u043e\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u0441\u0442\u0432\u043e \u0441\u0435\u0439\u0447\u0430\u0441 \u043d\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u0435\u0442 \u043c\u043d\u0435 \u00ab\u0418\u0433\u0440\u0443 \u043f\u0440\u0435\u0441\u0442\u043e\u043b\u043e\u0432\u00bb. \u0417\u0430 \u0416\u0435\u043b\u0435\u0437\u043d\u044b\u0439 \u0422\u0440\u043e\u043d HPC \u0441\u0440\u0430\u0436\u0430\u044e\u0442\u0441\u044f \u0442\u0440\u0438 \u043e\u0441\u043d\u043e\u0432\u043d\u044b\u0445 \u043f\u0440\u0435\u0442\u0435\u043d\u0434\u0435\u043d\u0442\u0430. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0440\u0430\u0441\u0441\u0442\u0430\u0432\u0438\u043c \u0442\u043e\u0447\u043a\u0438 \u043d\u0430\u0434 \u00abi\u00bb \u0431\u0435\u0437 \u043b\u0438\u0448\u043d\u0438\u0445 \u044d\u043c\u043e\u0446\u0438\u0439. <\/p>\n<div>\n<div class=\"table\">\n<table>\n<tbody>\n<tr>\n<th>\n<p align=\"left\">\u0425\u0430\u0440\u0430\u043a\u0442\u0435\u0440\u0438\u0441\u0442\u0438\u043a\u0430<\/p>\n<\/th>\n<th>\n<p align=\"left\">Fortran (\u041a\u043e\u0440\u043e\u043b\u044c \u041d\u043e\u0447\u0438)<\/p>\n<\/th>\n<th>\n<p align=\"left\">Julia (\u0414\u0435\u0439\u043d\u0435\u0440\u0438\u0441 \u0441 \u0434\u0440\u0430\u043a\u043e\u043d\u0430\u043c\u0438)<\/p>\n<\/th>\n<th>\n<p align=\"left\">Rust (\u0414\u0436\u043e\u043d \u0421\u043d\u043e\u0443)<\/p>\n<\/th>\n<\/tr>\n<tr>\n<td>\n<p align=\"left\"><strong>\u041f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c<\/strong><\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u041f\u0438\u043a\u043e\u0432\u0430\u044f<\/strong> \u043d\u0430 \u0442\u0435\u043d\u0437\u043e\u0440\u0430\u0445 \u0438 \u043c\u0430\u0442\u0440\u0438\u0446\u0430\u0445. \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0437\u043d\u0430\u0435\u0442 \u0432\u0441\u0451 \u043e \u043f\u0430\u043c\u044f\u0442\u0438.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0412\u044b\u0441\u043e\u043a\u0430\u044f<\/strong>. LLVM-\u0431\u044d\u043a\u0435\u043d\u0434, \u043d\u043e \u0435\u0441\u0442\u044c \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430 \u00ab\u0440\u0430\u0437\u043e\u0433\u0440\u0435\u0432\u0430\u00bb JIT.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0412\u044b\u0441\u043e\u043a\u0430\u044f<\/strong>. \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u044f \u0432 LLVM, <code>noalias<\/code> \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e.<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p align=\"left\"><strong>\u0421\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u0434\u043b\u044f \u0443\u0447\u0451\u043d\u043e\u0433\u043e<\/strong><\/p>\n<\/td>\n<td>\n<p align=\"left\">\u041c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u044d\u043b\u0435\u0433\u0430\u043d\u0442\u043d\u044b\u0439. <code>C = A * B<\/code> \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0441\u0440\u0430\u0437\u0443.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0418\u0434\u0435\u0430\u043b\u044c\u043d\u044b\u0439<\/strong>. \u0421\u043e\u0437\u0434\u0430\u043d \u0434\u043b\u044f \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u043e\u0432. \u041f\u0438\u0441\u0430\u0442\u044c \u0444\u043e\u0440\u043c\u0443\u043b\u044b \u2014 \u043e\u0434\u043d\u043e \u0443\u0434\u043e\u0432\u043e\u043b\u044c\u0441\u0442\u0432\u0438\u0435.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0421\u043b\u043e\u0436\u043d\u044b\u0439<\/strong>. \u0411\u043e\u0440\u044c\u0431\u0430 \u0441 Borrow Checker \u043e\u0442\u0432\u043b\u0435\u043a\u0430\u0435\u0442 \u043e\u0442 \u0443\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u0439.<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p align=\"left\"><strong>\u042d\u043a\u043e\u0441\u0438\u0441\u0442\u0435\u043c\u0430<\/strong><\/p>\n<\/td>\n<td>\n<p align=\"left\">50 \u043b\u0435\u0442 \u043d\u0430\u043a\u043e\u043f\u043b\u0435\u043d\u043d\u044b\u0445 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a (BLAS, LAPACK, ARPACK, \u0434\u0435\u0441\u044f\u0442\u043a\u0438 CFD-\u043f\u0430\u043a\u0435\u0442\u043e\u0432).<\/p>\n<\/td>\n<td>\n<p align=\"left\">\u041c\u043e\u043b\u043e\u0434\u0430\u044f, \u0431\u044b\u0441\u0442\u0440\u043e\u0440\u0430\u0441\u0442\u0443\u0449\u0430\u044f. \u0427\u0430\u0441\u0442\u043e \u0442\u0440\u0435\u0431\u0443\u0435\u0442 \u0432\u0440\u0430\u043f\u043f\u0435\u0440\u043e\u0432 \u0434\u043b\u044f C\/Fortran.<\/p>\n<\/td>\n<td>\n<p align=\"left\">\u041c\u043e\u043b\u043e\u0434\u0430\u044f. \u0412\u0440\u0430\u043f\u043f\u0435\u0440\u044b \u2014 \u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u044b.<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p align=\"left\"><strong>\u041f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u0438\u0437\u043c<\/strong><\/p>\n<\/td>\n<td>\n<p align=\"left\">Coarrays, OpenMP, OpenACC, MPI, CUDA Fortran. <strong>\u0412\u0441\u0451 \u0438\u0437 \u043a\u043e\u0440\u043e\u0431\u043a\u0438.<\/strong><\/p>\n<\/td>\n<td>\n<p align=\"left\">\u041c\u043d\u043e\u0433\u043e\u043f\u043e\u0442\u043e\u0447\u043d\u043e\u0441\u0442\u044c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u0430 (<code>Threads.@threads<\/code>), GPU \u0447\u0435\u0440\u0435\u0437 \u0441\u0442\u043e\u0440\u043e\u043d\u043d\u0438\u0435 \u043f\u0430\u043a\u0435\u0442\u044b.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0411\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u044b\u0439.<\/strong> Rayon \u0434\u043b\u044f CPU, WGPU\/CUDA \u0434\u043b\u044f GPU. \u0422\u0440\u0435\u0431\u0443\u0435\u0442 \u0431\u043e\u043b\u044c\u0448\u0435 \u043a\u043e\u0434\u0430.<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p align=\"left\"><strong>\u041a\u0440\u0438\u0432\u0430\u044f \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u044f<\/strong><\/p>\n<\/td>\n<td>\n<p align=\"left\">\u0421\u0440\u0435\u0434\u043d\u044f\u044f. \u041e\u0441\u043d\u043e\u0432\u044b \u043f\u0440\u043e\u0441\u0442\u044b\u0435, \u043d\u044e\u0430\u043d\u0441\u044b \u2014 \u0433\u043e\u0434\u0430\u043c\u0438.<\/p>\n<\/td>\n<td>\n<p align=\"left\">\u041d\u0438\u0437\u043a\u0430\u044f. \u041e\u0447\u0435\u043d\u044c \u043f\u043e\u0440\u043e\u0433 \u0432\u0445\u043e\u0434\u0430 \u043d\u0438\u0437\u043a\u0438\u0439.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0412\u044b\u0441\u043e\u043a\u0430\u044f<\/strong>. \u041a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u0438 \u0432\u043b\u0430\u0434\u0435\u043d\u0438\u044f \u2014 \u044d\u0442\u043e \u0431\u043e\u043b\u044c\u043d\u043e.<\/p>\n<\/td>\n<\/tr>\n<tr>\n<td>\n<p align=\"left\"><strong>\u0413\u043b\u0430\u0432\u043d\u0430\u044f \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430<\/strong><\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0412\u043e\u0437\u0440\u0430\u0441\u0442.<\/strong> \u041c\u043e\u043b\u043e\u0434\u0451\u0436\u044c \u0431\u043e\u0438\u0442\u0441\u044f. \u041c\u0435\u043d\u044c\u0448\u0435 \u043d\u043e\u0432\u044b\u0445 \u0432\u0430\u043a\u0430\u043d\u0441\u0438\u0439.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>JIT.<\/strong> \u041f\u0435\u0440\u0432\u044b\u0439 \u0437\u0430\u043f\u0443\u0441\u043a \u0442\u043e\u0440\u043c\u043e\u0437\u0438\u0442. \u0412\u0440\u0435\u043c\u044f \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0446\u0438\u0438 \u043f\u0430\u043a\u0435\u0442\u043e\u0432 \u0432\u0435\u043b\u0438\u043a\u043e.<\/p>\n<\/td>\n<td>\n<p align=\"left\"><strong>\u0421\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c.<\/strong> \u0423\u0447\u0451\u043d\u044b\u0439 \u043d\u0435 \u0445\u043e\u0447\u0435\u0442 \u0434\u0443\u043c\u0430\u0442\u044c \u043e \u0432\u0440\u0435\u043c\u0435\u043d\u0438 \u0436\u0438\u0437\u043d\u0438 \u0441\u0441\u044b\u043b\u043e\u043a.<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n<p><strong>\u041c\u043e\u0439 \u0441\u0443\u0431\u044a\u0435\u043a\u0442\u0438\u0432\u043d\u044b\u0439 \u0432\u0435\u0440\u0434\u0438\u043a\u0442:<\/strong> <\/p>\n<ul>\n<li>\n<p>\u0415\u0441\u043b\u0438 \u0432\u044b \u0441\u0442\u0440\u043e\u0438\u0442\u0435 \u043d\u043e\u0432\u044b\u0439 \u043f\u0440\u043e\u0435\u043a\u0442 \u0441 \u043d\u0443\u043b\u044f, \u0433\u0434\u0435 \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0432\u0430\u0436\u043d\u0430 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u044c \u043f\u0430\u043c\u044f\u0442\u0438, \u0438 \u0443 \u0432\u0430\u0441 \u0435\u0441\u0442\u044c \u043e\u043f\u044b\u0442\u043d\u044b\u0435 \u0441\u0438\u0441\u0442\u0435\u043c\u043d\u044b\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u044b \u2014 \u0431\u0435\u0440\u0438\u0442\u0435 <strong>Rust<\/strong>.<\/p>\n<\/li>\n<li>\n<p>\u0415\u0441\u043b\u0438 \u0432\u044b \u0443\u0447\u0451\u043d\u044b\u0439-\u043e\u0434\u0438\u043d\u043e\u0447\u043a\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0445\u043e\u0447\u0435\u0442 \u0431\u044b\u0441\u0442\u0440\u043e \u043f\u0440\u043e\u0442\u043e\u0442\u0438\u043f\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u0438 \u0441\u0440\u0430\u0437\u0443 \u0432\u0438\u0434\u0435\u0442\u044c \u043a\u0440\u0430\u0441\u0438\u0432\u044b\u0435 \u0433\u0440\u0430\u0444\u0438\u043a\u0438, \u043d\u0435 \u0432\u044b\u043b\u0435\u0437\u0430\u044f \u0438\u0437 REPL \u2014 \u0431\u0435\u0440\u0438\u0442\u0435 <strong>Julia<\/strong>.<\/p>\n<\/li>\n<li>\n<p><strong>\u041d\u043e<\/strong> \u0435\u0441\u043b\u0438 \u0443 \u0432\u0430\u0441 \u043b\u0435\u0436\u0438\u0442 500 \u0442\u044b\u0441\u044f\u0447 \u0441\u0442\u0440\u043e\u043a \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u043d\u043e\u0433\u043e \u043a\u043e\u0434\u0430 CFD-\u0440\u0435\u0448\u0430\u0442\u0435\u043b\u044f, \u0432\u044b \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442\u0435 \u0432 \u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u043a\u043e\u043b\u043b\u0430\u0431\u043e\u0440\u0430\u0446\u0438\u0438 \u0432\u0440\u043e\u0434\u0435 CERN \u0438\u043b\u0438 NOAA, \u0438 \u0432\u0430\u0448\u0430 \u0433\u043b\u0430\u0432\u043d\u0430\u044f \u0437\u0430\u0434\u0430\u0447\u0430 \u2014 \u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0431\u044b\u0441\u0442\u0440\u0435\u0435 \u043d\u0430 \u043c\u0438\u043b\u043b\u0438\u0430\u0440\u0434\u0430\u0445 \u044f\u0447\u0435\u0435\u043a \u0441\u0435\u0442\u043a\u0438 \u2014 \u0443 \u0432\u0430\u0441 \u043d\u0435\u0442 \u0432\u044b\u0431\u043e\u0440\u0430, \u043a\u0440\u043e\u043c\u0435 <strong>Fortran<\/strong>. \u0422\u043e\u0447\u043d\u0435\u0435, \u043e\u043d \u0443 \u0432\u0430\u0441 \u0435\u0441\u0442\u044c, \u043d\u043e \u043e\u043d \u0433\u043b\u0443\u043f\u044b\u0439. Fortran \u0442\u0443\u0442 \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442, \u044d\u0442\u043e \u0438\u043d\u0444\u0440\u0430\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430.<\/p>\n<\/li>\n<\/ul>\n<h4>\u0417\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435. \u041a\u043e\u043c\u0443 \u0438 \u0437\u0430\u0447\u0435\u043c \u0443\u0447\u0438\u0442\u044c Fortran \u0432 2026 \u0433\u043e\u0434\u0443<\/h4>\n<p>\u042f \u043d\u0435 \u0430\u0433\u0438\u0442\u0430\u0442\u043e\u0440 \u0438 \u043d\u0435 \u0431\u0443\u0434\u0443 \u043a\u0440\u0438\u0447\u0430\u0442\u044c: \u00ab\u0421\u0440\u043e\u0447\u043d\u043e \u0431\u0440\u043e\u0441\u0430\u0439 \u0441\u0432\u043e\u0439 React \u0438 \u0431\u0435\u0433\u0438 \u0443\u0447\u0438\u0442\u044c Fortran!\u00bb. \u042d\u0442\u043e \u0433\u043b\u0443\u043f\u043e. Fortran \u2014 \u044d\u0442\u043e \u043d\u0435 \u044f\u0437\u044b\u043a \u043e\u0431\u0449\u0435\u0433\u043e \u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f. \u042d\u0442\u043e \u0441\u043a\u0430\u043b\u044c\u043f\u0435\u043b\u044c \u0445\u0438\u0440\u0443\u0440\u0433\u0430, \u0430 \u043d\u0435 \u0448\u0432\u0435\u0439\u0446\u0430\u0440\u0441\u043a\u0438\u0439 \u043d\u043e\u0436. <\/p>\n<p><strong>\u0423\u0447\u0438\u0442\u044c Fortran \u0432 2026 \u0433\u043e\u0434\u0443 \u0441\u0442\u043e\u0438\u0442, \u0435\u0441\u043b\u0438:<\/strong> <\/p>\n<ul>\n<li>\n<p>\u0412\u044b \u0438\u0434\u0451\u0442\u0435 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0432 CFD, \u0432\u044b\u0447\u0438\u0441\u043b\u0438\u0442\u0435\u043b\u044c\u043d\u0443\u044e \u0433\u0438\u0434\u0440\u043e\u0434\u0438\u043d\u0430\u043c\u0438\u043a\u0443 \u0438\u043b\u0438 \u0430\u044d\u0440\u043e\u0434\u0438\u043d\u0430\u043c\u0438\u043a\u0443 (Ansys, OpenFOAM \u2014 \u044d\u0442\u043e \u0432\u0441\u0451 \u0432\u0440\u0430\u043f\u043f\u0435\u0440\u044b \u043d\u0430\u0434 Fortran\/C \u044f\u0434\u0440\u0430\u043c\u0438).<\/p>\n<\/li>\n<li>\n<p>\u0412\u044b \u043f\u043b\u0430\u043d\u0438\u0440\u0443\u0435\u0442\u0435 \u043a\u0430\u0440\u044c\u0435\u0440\u0443 \u0432 \u044f\u0434\u0435\u0440\u043d\u043e\u0439 \u0444\u0438\u0437\u0438\u043a\u0435, \u0430\u0441\u0442\u0440\u043e\u0444\u0438\u0437\u0438\u043a\u0435 \u0438\u043b\u0438 \u043a\u043e\u0441\u043c\u043e\u043b\u043e\u0433\u0438\u0438 (\u0432\u0441\u0435 \u043a\u0440\u0443\u043f\u043d\u044b\u0435 \u0441\u0438\u043c\u0443\u043b\u044f\u0446\u0438\u0438, \u043e\u0442 N-body \u0434\u043e \u043f\u0435\u0440\u0435\u043d\u043e\u0441\u0430 \u0438\u0437\u043b\u0443\u0447\u0435\u043d\u0438\u044f, \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u044b \u043d\u0430 \u043d\u0451\u043c).<\/p>\n<\/li>\n<li>\n<p>\u0412\u044b \u2014 \u043a\u043b\u0438\u043c\u0430\u0442\u043e\u043b\u043e\u0433, \u043c\u0435\u0442\u0435\u043e\u0440\u043e\u043b\u043e\u0433, \u043e\u043a\u0435\u0430\u043d\u043e\u043b\u043e\u0433 \u0438\u043b\u0438 \u0433\u0435\u043e\u043b\u043e\u0433 (\u0441\u0443\u043f\u0435\u0440\u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u043d\u044b\u0435 \u043c\u043e\u0434\u0435\u043b\u0438 \u0417\u0435\u043c\u043b\u0438 \u2014 \u044d\u0442\u043e \u0446\u0430\u0440\u0441\u0442\u0432\u043e Fortran).<\/p>\n<\/li>\n<li>\n<p>\u0412\u044b \u0437\u0430\u043d\u0438\u043c\u0430\u0435\u0442\u0435\u0441\u044c \u043a\u0432\u0430\u043d\u0442\u043e\u0432\u043e\u0439 \u0445\u0438\u043c\u0438\u0435\u0439 \u0438\u043b\u0438 \u043c\u043e\u043b\u0435\u043a\u0443\u043b\u044f\u0440\u043d\u043e\u0439 \u0434\u0438\u043d\u0430\u043c\u0438\u043a\u043e\u0439.<\/p>\n<\/li>\n<li>\n<p>\u0412\u044b \u043f\u0440\u043e\u0441\u0442\u043e \u0443\u0441\u0442\u0430\u043b\u0438 \u043e\u0442 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0432\u0430\u0448 Python-\u043a\u043e\u0434 \u0441 NumPy \u0443\u043f\u0438\u0440\u0430\u0435\u0442\u0441\u044f \u0432 GIL \u0438 \u043f\u0435\u0440\u0435\u0441\u044b\u043b\u043a\u0443 \u0434\u0430\u043d\u043d\u044b\u0445, \u0438 \u0445\u043e\u0442\u0438\u0442\u0435 \u043f\u043e\u043d\u044f\u0442\u044c, \u043a\u0430\u043a \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043d\u0430\u0441\u0442\u043e\u044f\u0449\u0430\u044f \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c.<\/p>\n<\/li>\n<\/ul>\n<p><strong>\u041f\u0440\u043e\u0445\u043e\u0434\u0438\u0442\u0435 \u043c\u0438\u043c\u043e, \u0435\u0441\u043b\u0438:<\/strong> <\/p>\n<ul>\n<li>\n<p>\u0412\u044b \u0432\u0435\u0431-\u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a, \u043c\u043e\u0431\u0438\u043b\u044c\u043d\u044b\u0439 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a, \u0433\u0435\u0439\u043c\u0434\u0435\u0432 \u0438\u043b\u0438 \u0434\u0430\u0442\u0430-\u0441\u0430\u0439\u0435\u043d\u0442\u0438\u0441\u0442, \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0439 \u0438\u0441\u043a\u043b\u044e\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0432 pandas\/sklearn. Fortran \u0432\u0430\u043c \u043d\u0435 \u043d\u0443\u0436\u0435\u043d. \u0412\u0430\u0448 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0439 \u2014 Python, JS, Swift, Kotlin, C#. <\/p>\n<\/li>\n<\/ul>\n<p>Fortran \u043d\u0435 \u0443\u043c\u0435\u0440. \u041e\u043d \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u0435\u0440\u0435\u0441\u0442\u0430\u043b \u0431\u044b\u0442\u044c \u044f\u0437\u044b\u043a\u043e\u043c \u0434\u043b\u044f \u0432\u0441\u0435\u0445. \u041e\u043d \u043f\u0440\u0435\u0432\u0440\u0430\u0442\u0438\u043b\u0441\u044f \u0432 \u0443\u0437\u043a\u043e\u0441\u043f\u0435\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439, \u043e\u0442\u0442\u043e\u0447\u0435\u043d\u043d\u044b\u0439 \u0434\u0435\u0441\u044f\u0442\u0438\u043b\u0435\u0442\u0438\u044f\u043c\u0438 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442 \u0434\u043b\u044f \u0442\u0435\u0445, \u043a\u0442\u043e \u0434\u0432\u0438\u0433\u0430\u0435\u0442 \u0432\u043f\u0435\u0440\u0451\u0434 \u0444\u0443\u043d\u0434\u0430\u043c\u0435\u043d\u0442\u0430\u043b\u044c\u043d\u0443\u044e \u043d\u0430\u0443\u043a\u0443. \u0418 \u043f\u043e\u043a\u0430 \u0447\u0435\u043b\u043e\u0432\u0435\u0447\u0435\u0441\u0442\u0432\u043e \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0442\u044c \u0440\u0430\u043a\u0435\u0442\u044b \u0432 \u043a\u043e\u0441\u043c\u043e\u0441 \u0438 \u043f\u044b\u0442\u0430\u0442\u044c\u0441\u044f \u043f\u0440\u0435\u0434\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u043f\u043e\u0433\u043e\u0434\u0443 \u043d\u0430 \u043f\u043e\u0441\u043b\u0435\u0437\u0430\u0432\u0442\u0440\u0430, \u0441\u0442\u0430\u0440\u044b\u0439 \u0434\u043e\u0431\u0440\u044b\u0439 Fortran \u0431\u0443\u0434\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c.<\/p>\n<p><strong><em>\u0418 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u043e\u043d \u0431\u0443\u0434\u0435\u0442 \u0431\u044b\u0441\u0442\u0440\u043e. \u041e\u0447\u0435\u043d\u044c \u0431\u044b\u0441\u0442\u0440\u043e.<\/em><\/strong><\/p>\n<\/div>\n<p>\u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/ru\/articles\/1026398\/\">https:\/\/habr.com\/ru\/articles\/1026398\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u042f \u0432\u0437\u0433\u043b\u044f\u043d\u0443\u043b \u043d\u0430 \u0430\u043f\u0440\u0435\u043b\u044c\u0441\u043a\u0438\u0439 \u0440\u0435\u0439\u0442\u0438\u043d\u0433 TIOBE \u0437\u0430 2026 \u0433\u043e\u0434 \u0438 \u043f\u0440\u043e\u0442\u0451\u0440 \u0433\u043b\u0430\u0437\u0430. Python, C, C++, Java, C# \u2014 \u0441\u043a\u0443\u0447\u043d\u043e. \u041d\u043e \u0432\u043e\u0442 \u043d\u0430 10-\u0439 \u0441\u0442\u0440\u043e\u0447\u043a\u0435 \u0432\u043e\u0441\u0441\u0435\u0434\u0430\u0435\u0442 Delphi. \u0410 Fortran, \u044f\u0437\u044b\u043a, \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043f\u0438\u0441\u0430\u043b\u0438 \u0435\u0449\u0451 \u043f\u0440\u0438 \u0446\u0430\u0440\u0435 \u0413\u043e\u0440\u043e\u0445\u0435 \u0438 \u043a\u043e\u0442\u043e\u0440\u044b\u0439, \u043f\u043e \u043c\u043d\u0435\u043d\u0438\u044e \u0432\u0441\u0435\u0439 \u00ab\u043c\u043e\u0434\u043d\u043e\u0439\u00bb \u0442\u0443\u0441\u043e\u0432\u043a\u0438, \u0434\u0430\u0432\u043d\u043e \u0434\u043e\u043b\u0436\u0435\u043d \u043b\u0435\u0436\u0430\u0442\u044c \u043d\u0430 \u0441\u0432\u0430\u043b\u043a\u0435 \u0438\u0441\u0442\u043e\u0440\u0438\u0438, \u0441\u0442\u0430\u0431\u0438\u043b\u044c\u043d\u043e \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u0432 \u0442\u043e\u043f-15. \u0412 \u043c\u0430\u0440\u0442\u0435 2025 \u0433\u043e\u0434\u0430 \u043e\u043d \u0432\u043e\u043e\u0431\u0449\u0435 \u0432\u043e\u0440\u0432\u0430\u043b\u0441\u044f \u0432 \u0434\u0432\u0430\u0434\u0446\u0430\u0442\u043a\u0443 \u0432\u043c\u0435\u0441\u0442\u0435 \u0441 \u0442\u0430\u043a\u0438\u043c\u0438 \u00ab\u043c\u0430\u043c\u043e\u043d\u0442\u0430\u043c\u0438\u00bb, \u043a\u0430\u043a Ada \u0438 COBOL. \u0427\u0442\u043e \u0437\u0430 \u0447\u0435\u0440\u0442\u043e\u0432\u0449\u0438\u043d\u0430? Rust, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043a\u0440\u0438\u0447\u0430\u043b\u0438 \u043d\u0430 \u043a\u0430\u0436\u0434\u043e\u043c \u0443\u0433\u043b\u0443 \u043a\u0430\u043a \u00ab\u0443\u0431\u0438\u0439\u0446\u0443 \u0421++\u00bb, \u043f\u044b\u0436\u0438\u0442\u0441\u044f \u043d\u0430 16-\u043c \u043c\u0435\u0441\u0442\u0435, \u0430 \u0435\u0433\u043e \u0440\u043e\u0441\u0442, \u043f\u043e \u0441\u043b\u043e\u0432\u0430\u043c \u0433\u0435\u043d\u0435\u0440\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0434\u0438\u0440\u0435\u043a\u0442\u043e\u0440\u0430 TIOBE \u041f\u043e\u043b\u0430 \u042f\u043d\u0441\u0435\u043d\u0430, \u0437\u0430\u043c\u0435\u0434\u043b\u044f\u0435\u0442\u0441\u044f. \u0412 \u044d\u0442\u043e \u0436\u0435 \u0432\u0440\u0435\u043c\u044f Fortran, \u0442\u0438\u0445\u043e \u0438 \u0431\u0435\u0437 \u043b\u0438\u0448\u043d\u0435\u0433\u043e \u0448\u0443\u043c\u0430, \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0430\u0435\u0442 \u0431\u044b\u0442\u044c \u0444\u0443\u043d\u0434\u0430\u043c\u0435\u043d\u0442\u043e\u043c, \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u0432\u0441\u044f \u043c\u0438\u0440\u043e\u0432\u0430\u044f \u043d\u0430\u0443\u043a\u0430. \u041f\u043e\u0447\u0435\u043c\u0443 \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0438 \u043d\u0435 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044b\u0432\u0430\u044e\u0442 \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u044b \u0441\u0442\u0440\u043e\u043a \u043b\u0435\u0433\u0430\u0441\u0438 \u043d\u0430 Python \u0438\u043b\u0438 Go? \u041f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u0446\u0435\u043d\u0430 \u043e\u0448\u0438\u0431\u043a\u0438 \u0432 \u043a\u043e\u0434\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0441\u0447\u0438\u0442\u0430\u0435\u0442 \u044f\u0434\u0435\u0440\u043d\u044b\u0439 \u0440\u0435\u0430\u043a\u0442\u043e\u0440 \u0438\u043b\u0438 \u043f\u0440\u043e\u0433\u043d\u043e\u0437 \u043f\u043e\u0433\u043e\u0434\u044b \u043d\u0430 \u0437\u0430\u0432\u0442\u0440\u0430, \u0438\u0441\u0447\u0438\u0441\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u0435 \u0432 \u0447\u0430\u0441\u0430\u0445 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430, \u0430 \u0432 \u043c\u0438\u043b\u043b\u0438\u0430\u0440\u0434\u0430\u0445 \u0434\u043e\u043b\u043b\u0430\u0440\u043e\u0432 \u0438 \u0447\u0435\u043b\u043e\u0432\u0435\u0447\u0435\u0441\u043a\u0438\u0445 \u0436\u0438\u0437\u043d\u044f\u0445. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0440\u0430\u0437\u0431\u0438\u0440\u0430\u0442\u044c\u0441\u044f, \u0447\u0442\u043e \u0442\u0430\u043a\u043e\u0435 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 Fortran \u0438 \u043f\u043e\u0447\u0435\u043c\u0443 \u0432\u0430\u0448 \u0441\u043a\u0435\u043f\u0441\u0438\u0441 \u043f\u043e \u043f\u043e\u0432\u043e\u0434\u0443 \u00ab\u0434\u0438\u043d\u043e\u0437\u0430\u0432\u0440\u0430\u00bb \u043d\u0435 \u0438\u043c\u0435\u0435\u0442 \u043f\u043e\u0434 \u0441\u043e\u0431\u043e\u0439 \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u043e\u0441\u043d\u043e\u0432\u0430\u043d\u0438\u0439.\u0413\u043b\u0430\u0432\u0430 1. \u0418\u0441\u0442\u043e\u0440\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u044d\u043a\u0441\u043a\u0443\u0440\u0441: Fortran \u2014 \u044d\u0442\u043e \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u043e\u0448\u043b\u043e\u0435, \u043d\u043e \u0438 \u043d\u0430\u0441\u0442\u043e\u044f\u0449\u0435\u0435\u041c\u043d\u043e\u0433\u0438\u0435 \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0442 Fortran \u043a\u0430\u043a \u043d\u0435\u0447\u0442\u043e \u0441\u0440\u0435\u0434\u043d\u0435\u0435 \u043c\u0435\u0436\u0434\u0443 \u043f\u0435\u0440\u0444\u043e\u043a\u0430\u0440\u0442\u0430\u043c\u0438 \u0438 \u043a\u0430\u043c\u0435\u043d\u043d\u044b\u043c \u0432\u0435\u043a\u043e\u043c \u0441 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u043e\u043c FORTRAN 77, \u0433\u0434\u0435 \u0432\u0441\u0451 \u043f\u0438\u0448\u0435\u0442\u0441\u044f \u043a\u0430\u043f\u0441\u043e\u043c \u0438 \u0441 \u043e\u0442\u0441\u0442\u0443\u043f\u0430\u043c\u0438 \u0432 6 \u043f\u0440\u043e\u0431\u0435\u043b\u043e\u0432. \u0414\u0440\u0443\u0437\u044c\u044f, \u044d\u0442\u043e \u043a\u0430\u043a \u0441\u0443\u0434\u0438\u0442\u044c \u043e \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445 \u0430\u0432\u0442\u043e \u043f\u043e \u0442\u0435\u043b\u0435\u0433\u0435.\u0414\u0430, FORTRAN 77 \u0431\u044b\u043b \u0441\u0443\u0440\u043e\u0432. \u041d\u043e \u044d\u0432\u043e\u043b\u044e\u0446\u0438\u044f \u043d\u0435 \u0441\u0442\u043e\u044f\u043b\u0430 \u043d\u0430 \u043c\u0435\u0441\u0442\u0435: Fortran 90 \u0432\u0432\u0451\u043b \u043c\u043e\u0434\u0443\u043b\u0438, \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0443\u044e \u043f\u0430\u043c\u044f\u0442\u044c \u0438 \u0440\u0430\u0431\u043e\u0442\u0443 \u0441 \u043c\u0430\u0441\u0441\u0438\u0432\u0430\u043c\u0438 \u043a\u0430\u043a \u0441 \u043e\u0431\u044a\u0435\u043a\u0442\u0430\u043c\u0438. Fortran 2003\/2008 \u0434\u043e\u0431\u0430\u0432\u0438\u043b\u0438 \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u0443\u044e \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e-\u043e\u0440\u0438\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0443\u044e \u043f\u0430\u0440\u0430\u0434\u0438\u0433\u043c\u0443 \u0438 \u043a\u043e-\u043c\u0430\u0441\u0441\u0438\u0432\u044b (coarrays) \u0434\u043b\u044f \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u044c\u043d\u044b\u0445 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0439.\u0410 \u0432 \u043a\u043e\u043d\u0446\u0435 2023 \u0433\u043e\u0434\u0430 \u0442\u0438\u0445\u043e \u0438 \u0431\u0443\u0434\u043d\u0438\u0447\u043d\u043e \u0432\u044b\u0448\u0435\u043b \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442 Fortran 2023 (ISO\/IEC 1539-1:2023). \u0412\u044b \u0434\u0443\u043c\u0430\u0435\u0442\u0435, \u0442\u0430\u043c \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0434\u043a\u0440\u0443\u0442\u0438\u043b\u0438 \u0441\u0442\u0430\u0440\u044b\u0435 \u0433\u0430\u0439\u043a\u0438? \u041a\u0430\u043a \u0431\u044b \u043d\u0435 \u0442\u0430\u043a. \u0412\u043e\u0442 \u043b\u0438\u0448\u044c \u043f\u0430\u0440\u0430 \u00ab\u0432\u043a\u0443\u0441\u043d\u044b\u0445\u00bb \u0444\u0438\u0447, \u043e\u0442 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0443 \u043b\u044e\u0431\u043e\u0433\u043e \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0433\u043e \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u0430 \u0437\u0430\u0433\u043e\u0440\u044f\u0442\u0441\u044f \u0433\u043b\u0430\u0437\u0430:\u0423\u0441\u043b\u043e\u0432\u043d\u044b\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f: \u0422\u0435\u043f\u0435\u0440\u044c \u043c\u043e\u0436\u043d\u043e \u043f\u0438\u0441\u0430\u0442\u044c \u043d\u0435 \u0433\u0440\u043e\u043c\u043e\u0437\u0434\u043a\u0438\u0435 IF-\u0431\u043b\u043e\u043a\u0438, \u0430 \u044d\u043b\u0435\u0433\u0430\u043d\u0442\u043d\u044b\u0439 \u0442\u0435\u0440\u043d\u0430\u0440\u043d\u044b\u0439 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440 \u043f\u0440\u044f\u043c\u043e \u043a\u0430\u043a \u0432 \u0421\u0438: value = ( a &gt; 0.0 ? a : 0.0 ).\u0410\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0435 \u0440\u0430\u0437\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u0441\u0442\u0440\u043e\u043a: \u0411\u043e\u043b\u044c\u0448\u0435 \u043d\u0438\u043a\u0430\u043a\u043e\u0433\u043e \u0440\u0443\u0447\u043d\u043e\u0433\u043e \u0432\u044b\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0431\u0443\u0444\u0435\u0440\u043e\u0432 \u043f\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u0434\u043b\u0438\u043d\u044b \u2014 \u044f\u0437\u044b\u043a \u0434\u0435\u043b\u0430\u0435\u0442 \u044d\u0442\u043e \u0441\u0430\u043c.\u0422\u0440\u0438\u0433\u043e\u043d\u043e\u043c\u0435\u0442\u0440\u0438\u044f \u0432 \u0433\u0440\u0430\u0434\u0443\u0441\u0430\u0445: \u0424\u0443\u043d\u043a\u0446\u0438\u0438 acosd, sind \u0438 \u0434\u0440\u0443\u0433\u0438\u0435 \u2014 \u043c\u0435\u043b\u043e\u0447\u044c, \u0430 \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0431\u043e\u043b\u0438 \u043e\u043d\u0430 \u0441\u043d\u0438\u043c\u0430\u0435\u0442 \u0443 \u0438\u043d\u0436\u0435\u043d\u0435\u0440\u043e\u0432 \u0438 \u0443\u0447\u0451\u043d\u044b\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u043c \u043d\u0430\u0434\u043e\u0435\u043b\u043e \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0443\u043c\u043d\u043e\u0436\u0430\u0442\u044c \u043d\u0430 pi\/180.\u041c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u0430\u044f \u0434\u043b\u0438\u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b: \u0423\u0432\u0435\u043b\u0438\u0447\u0435\u043d\u0430 \u0434\u043e 10 000 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432, \u0430 \u0434\u043b\u0438\u043d\u0430 \u043e\u0434\u043d\u043e\u0433\u043e \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440\u0430 \u2014 \u0434\u043e \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432. \u041a\u0430\u043a \u0443\u0442\u0432\u0435\u0440\u0436\u0434\u0430\u0435\u0442\u0441\u044f, \u043e\u0434\u043d\u043e\u0439 \u0438\u0437 \u0446\u0435\u043b\u0435\u0439 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u0431\u043b\u0435\u0433\u0447\u0435\u043d\u0438\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u0438\u0441\u043a\u0443\u0441\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u043c \u0438\u043d\u0442\u0435\u043b\u043b\u0435\u043a\u0442\u043e\u043c.Fortran \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u0436\u0438\u0432 \u2014 \u043e\u043d \u0430\u043a\u0442\u0438\u0432\u043d\u043e \u0440\u0430\u0437\u0432\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0438 \u0432\u043f\u0438\u0442\u044b\u0432\u0430\u0435\u0442 \u0432 \u0441\u0435\u0431\u044f \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435 \u0444\u0438\u0448\u043a\u0438.\u0413\u043b\u0430\u0432\u0430 2. \u00ab\u041a\u0440\u043e\u0432\u0430\u0432\u044b\u0439 \u044d\u043d\u0442\u0435\u0440\u043f\u0440\u0430\u0439\u0437\u00bb: \u041f\u043e\u0447\u0435\u043c\u0443 Fortran \u043d\u0435 \u0443\u043c\u0438\u0440\u0430\u0435\u0442\u0421\u043a\u0440\u044b\u0442\u044b\u0439 \u0442\u0435\u043a\u0441\u0442\u041e\u0442\u0432\u0435\u0442 \u043f\u0440\u043e\u0441\u0442 \u0438 \u0446\u0438\u043d\u0438\u0447\u0435\u043d: \u0434\u0435\u043d\u044c\u0433\u0438 \u0438 \u0441\u0442\u0440\u0430\u0445. \u041f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u044c\u0442\u0435, \u0447\u0442\u043e \u0432\u044b \u2014 \u0434\u0438\u0440\u0435\u043a\u0442\u043e\u0440 \u0430\u044d\u0440\u043e\u043a\u043e\u0441\u043c\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0430\u0433\u0435\u043d\u0442\u0441\u0442\u0432\u0430. \u0423 \u0432\u0430\u0441 \u0435\u0441\u0442\u044c 5 \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u043e\u0432 \u0441\u0442\u0440\u043e\u043a Fortran-\u043a\u043e\u0434\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 40 \u043b\u0435\u0442 \u0441\u0447\u0438\u0442\u0430\u0435\u0442 \u0430\u044d\u0440\u043e\u0434\u0438\u043d\u0430\u043c\u0438\u043a\u0443 \u043a\u0440\u044b\u043b\u0430. \u041e\u043d \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d \u0432 \u0434\u0435\u0441\u044f\u0442\u043a\u0430\u0445 \u0442\u044b\u0441\u044f\u0447 \u043b\u0451\u0442\u043d\u044b\u0445 \u0447\u0430\u0441\u043e\u0432, \u0438 \u0432 \u043d\u0451\u043c \u043d\u0435\u0442 \u043d\u0438 \u043e\u0434\u043d\u043e\u0439 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u043e\u0448\u0438\u0431\u043a\u0438. \u0412\u0430\u043c \u043f\u0440\u0435\u0434\u043b\u0430\u0433\u0430\u044e\u0442 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u044d\u0442\u043e \u043d\u0430 Rust. \u0417\u0430 3 \u0433\u043e\u0434\u0430, \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439 \u0438\u0437 50 \u0447\u0435\u043b\u043e\u0432\u0435\u043a, \u0441 \u0431\u044e\u0434\u0436\u0435\u0442\u043e\u043c \u0432 100 \u043c\u0438\u043b\u043b\u0438\u043e\u043d\u043e\u0432 \u0434\u043e\u043b\u043b\u0430\u0440\u043e\u0432. \u0412\u044b \u0441\u043e\u0433\u043b\u0430\u0441\u0438\u0442\u0435\u0441\u044c?\u0410\u043d\u0430\u043b\u0438\u0442\u0438\u043a\u0438 TIOBE \u043f\u043e\u0434\u0442\u0432\u0435\u0440\u0436\u0434\u0430\u044e\u0442: Fortran \u0436\u0438\u0432\u0451\u0442 \u043d\u0435 \u043f\u043e\u0442\u043e\u043c\u0443, \u0447\u0442\u043e \u0435\u0433\u043e \u043b\u044e\u0431\u044f\u0442, \u0430 \u043f\u043e\u0442\u043e\u043c\u0443, \u0447\u0442\u043e \u043d\u0430 \u043d\u0451\u043c \u0434\u0435\u0440\u0436\u0438\u0442\u0441\u044f \u043a\u0440\u0438\u0442\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u0438\u043d\u0444\u0440\u0430\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430: \u0430\u0432\u0438\u043e\u043d\u0438\u043a\u0430, \u044f\u0434\u0435\u0440\u043d\u044b\u0435 \u0440\u0435\u0430\u043a\u0442\u043e\u0440\u044b, \u043c\u0435\u0442\u0435\u043e\u0440\u043e\u043b\u043e\u0433\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u0441\u0443\u043f\u0435\u0440\u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u044b, \u0430\u0441\u0442\u0440\u043e\u0444\u0438\u0437\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u0441\u0438\u043c\u0443\u043b\u044f\u0446\u0438\u0438. \u041f\u0435\u0440\u0435\u043f\u0438\u0441\u0430\u0442\u044c \u2014 \u0437\u043d\u0430\u0447\u0438\u0442 \u0441 \u0432\u0435\u0440\u043e\u044f\u0442\u043d\u043e\u0441\u0442\u044c\u044e 99% \u0432\u043d\u0435\u0441\u0442\u0438 \u0441\u043e\u0442\u043d\u0438 \u043d\u043e\u0432\u044b\u0445 \u0431\u0430\u0433\u043e\u0432, \u043a\u0430\u0436\u0434\u044b\u0439 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043c\u043e\u0436\u0435\u0442 \u0441\u0442\u043e\u0438\u0442\u044c \u043a\u0430\u043a \u043a\u0440\u044b\u043b\u043e \u0441\u0430\u043c\u043e\u043b\u0451\u0442\u0430.\u0411\u043e\u043b\u0435\u0435 \u0442\u043e\u0433\u043e, \u044d\u0442\u043e\u0442 \u00ab\u0434\u0440\u0435\u0432\u043d\u0438\u0439\u00bb \u043a\u043e\u0434 \u0447\u0430\u0441\u0442\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0431\u044b\u0441\u0442\u0440\u0435\u0435, \u0447\u0435\u043c \u0435\u0433\u043e \u00ab\u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435\u00bb \u043f\u043e\u0440\u0442\u044b. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u043a\u043b\u0430\u0441\u0441\u0438\u043a\u0443 \u0436\u0430\u043d\u0440\u0430 \u2014 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 \u0447\u0438\u0441\u043b\u0430 \u03c0 \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u041c\u043e\u043d\u0442\u0435-\u041a\u0430\u0440\u043b\u043e. \u042d\u0442\u043e \u0438\u0434\u0435\u0430\u043b\u044c\u043d\u044b\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u0434\u043b\u044f \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u0438 \u044d\u0432\u043e\u043b\u044e\u0446\u0438\u0438 \u044f\u0437\u044b\u043a\u0430: \u043f\u0435\u0440\u0432\u044b\u0439 \u2014 \u0441\u0442\u0430\u0440\u044b\u0439 FORTRAN 77, \u0432\u0442\u043e\u0440\u043e\u0439 \u2014 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 Fortran 2018+.! \u0421\u0442\u0430\u0440\u044b\u0439 \u0434\u043e\u0431\u0440\u044b\u0439 FORTRAN 77 (Fixed format)! \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435: \u043c\u0435\u0442\u043a\u0438, \u043e\u0442\u0441\u0442\u0443\u043f\u044b \u0432 6 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432, \u0432\u0441\u0451 \u043a\u0430\u043f\u0441\u043e\u043c      PROGRAM PI_MONTE_CARLO_77      INTEGER I, N, COUNT      REAL X, Y, PI            N = 100000000      COUNT = 0            DO 10 I = 1, N         CALL RANDOM_NUMBER(X)  ! \u0412 77 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u0435 \u043d\u0435 \u0431\u044b\u043b\u043e \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u043e\u0433\u043e random_number,         CALL RANDOM_NUMBER(Y)  ! \u043d\u043e \u043c\u043d\u043e\u0433\u0438\u0435 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u044b \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u043b\u0438 \u0441\u0432\u043e\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u0438         IF (X*X + Y*Y .LE. 1.0) COUNT = COUNT + 1   10 CONTINUE            PI = 4.0 * REAL(COUNT) \/ REAL(N)      WRITE(*,*) &#8216;\u0412\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 Pi = &#8216;, PI      END\u0420\u0430\u0437\u043d\u0438\u0446\u0430, \u043a\u0430\u043a \u043c\u0435\u0436\u0434\u0443 \u00ab\u0416\u0438\u0433\u0443\u043b\u044f\u043c\u0438\u00bb \u0438 \u00ab\u0422\u0435\u0441\u043b\u043e\u0439\u00bb, \u0445\u043e\u0442\u044f \u043e\u0431\u0430 \u0435\u0434\u0443\u0442. \u041b\u0435\u0433\u0430\u0441\u0438-\u043a\u043e\u0434 (\u043f\u0435\u0440\u0432\u044b\u0439) \u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043d\u0430 \u043a\u0430\u043a\u043e\u043c-\u043d\u0438\u0431\u0443\u0434\u044c \u0441\u0443\u043f\u0435\u0440\u043a\u043e\u043c\u043f\u044c\u044e\u0442\u0435\u0440\u0435 NOAA, \u0438 \u0435\u0433\u043e \u043d\u0438\u043a\u0442\u043e \u043d\u0435 \u0442\u0440\u043e\u0433\u0430\u0435\u0442 \u2014 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442? \u041d\u0435 \u043b\u0435\u0437\u044c! \u0410 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0432\u0435\u0440\u0441\u0438\u044f (\u0432\u0442\u043e\u0440\u043e\u0439) \u0443\u0436\u0435 \u0447\u0438\u0442\u0430\u0435\u0442\u0441\u044f \u043a\u0430\u043a \u043a\u043e\u0434 \u043d\u0430 Python \u0441 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430\u043c\u0438 Julia, \u043d\u043e \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u043a\u043e\u043c\u043f\u0438\u043b\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u0432 \u043d\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u043c\u0430\u0448\u0438\u043d\u043d\u044b\u0439 \u043a\u043e\u0434 \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0432\u0435\u043a\u0442\u043e\u0440\u043d\u044b\u0435 \u0438\u043d\u0441\u0442\u0440\u0443\u043a\u0446\u0438\u0438 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u043e\u0440\u0430 (count(array)).\u0413\u043b\u0430\u0432\u0430 3. \u041f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c: \u0422\u0430\u043d\u0446\u044b \u0441 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u043e\u043c \u0438 \u043a\u044d\u0448\u0435\u043c\u042f \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0441\u043b\u044b\u0448\u0443: \u00ab\u041d\u043e \u0432\u0435\u0434\u044c \u0421++ \u0442\u0430\u043a\u043e\u0439 \u0436\u0435 \u0431\u044b\u0441\u0442\u0440\u044b\u0439, \u0435\u0441\u043b\u0438 \u043d\u0435 \u0431\u044b\u0441\u0442\u0440\u0435\u0435!\u00bb. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043f\u0440\u0430\u0432\u0434\u0435 \u0432 \u0433\u043b\u0430\u0437\u0430. \u0412 \u0441\u0438\u043d\u0442\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0442\u0435\u0441\u0442\u0430\u0445 \u043d\u0430 \u0446\u0435\u043b\u043e\u0447\u0438\u0441\u043b\u0435\u043d\u043d\u043e\u0439 \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u043a\u0435 \u0438\u043b\u0438 \u043f\u0430\u0440\u0441\u0438\u043d\u0433\u0435 \u0441\u0442\u0440\u043e\u043a \u2014 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e. \u041d\u043e \u043a\u043e\u0433\u0434\u0430 \u0434\u0435\u043b\u043e \u0434\u043e\u0445\u043e\u0434\u0438\u0442 \u0434\u043e \u00ab\u0447\u0438\u0441\u0442\u043e\u0439\u00bb \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u0438 \u0441 \u043c\u043d\u043e\u0433\u043e\u043c\u0435\u0440\u043d\u044b\u043c\u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430\u043c\u0438, Fortran \u0443\u0445\u043e\u0434\u0438\u0442 \u0432 \u043e\u0442\u0440\u044b\u0432. \u041f\u043e\u0447\u0435\u043c\u0443? \u0414\u0432\u0430 \u043a\u043b\u044e\u0447\u0435\u0432\u044b\u0445 \u0441\u043b\u043e\u0432\u0430: \u0430\u043b\u0438\u0430\u0441\u0438\u043d\u0433 \u0438 \u043f\u0430\u043c\u044f\u0442\u044c. Column-major. \u0412 \u043e\u0442\u043b\u0438\u0447\u0438\u0435 \u043e\u0442 C\/C++ (\u0433\u0434\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b \u0445\u0440\u0430\u043d\u044f\u0442\u0441\u044f \u043f\u043e \u0441\u0442\u0440\u043e\u043a\u0430\u043c, row-major), \u0432 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b \u0432 \u043f\u0430\u043c\u044f\u0442\u0438 \u0438\u0434\u0443\u0442 \u043f\u043e \u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c. \u042d\u0442\u043e \u0438\u0434\u0435\u0430\u043b\u044c\u043d\u043e \u043b\u043e\u0436\u0438\u0442\u0441\u044f \u043d\u0430 \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u0443 \u043b\u0438\u043d\u0435\u0439\u043d\u043e\u0439 \u0430\u043b\u0433\u0435\u0431\u0440\u044b (BLAS\/LAPACK), \u0433\u0434\u0435 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u043d\u0430\u0434 \u0432\u0435\u043a\u0442\u043e\u0440\u0430\u043c\u0438-\u0441\u0442\u043e\u043b\u0431\u0446\u0430\u043c\u0438 \u2014 \u0445\u043b\u0435\u0431 \u043d\u0430\u0441\u0443\u0449\u043d\u044b\u0439. \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u043c\u043e\u0436\u0435\u0442 \u0441\u043c\u0435\u043b\u043e \u0432\u0435\u043a\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0446\u0438\u043a\u043b\u044b, \u043d\u0435 \u0431\u043e\u044f\u0441\u044c \u0437\u0430 \u043a\u044d\u0448-\u043f\u0440\u043e\u043c\u0430\u0445\u0438.\u041f\u0440\u0430\u0432\u0438\u043b\u043e restrict. \u0412 \u0421\/C++, \u0447\u0442\u043e\u0431\u044b \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u043c\u043e\u0433 \u0430\u0433\u0440\u0435\u0441\u0441\u0438\u0432\u043d\u043e \u043e\u043f\u0442\u0438\u043c\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0446\u0438\u043a\u043b \u0441 \u0443\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044f\u043c\u0438, \u0432\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u0433\u0430\u0440\u0430\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0435\u043c\u0443 \u0447\u0435\u0440\u0435\u0437 \u043a\u043b\u044e\u0447\u0435\u0432\u043e\u0435 \u0441\u043b\u043e\u0432\u043e restrict, \u0447\u0442\u043e \u043e\u0431\u043b\u0430\u0441\u0442\u0438 \u043f\u0430\u043c\u044f\u0442\u0438 \u043d\u0435 \u043f\u0435\u0440\u0435\u0441\u0435\u043a\u0430\u044e\u0442\u0441\u044f. \u0412 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u044d\u0442\u043e \u043f\u0440\u0430\u0432\u0438\u043b\u043e \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043e \u0432 \u044f\u0437\u044b\u043a \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0434\u043b\u044f \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u043e\u0432-\u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432. \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0432\u0441\u0435\u0433\u0434\u0430 \u0437\u043d\u0430\u0435\u0442, \u0447\u0442\u043e \u043f\u0440\u0438 \u0443\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u0438 \u043c\u0430\u0442\u0440\u0438\u0446\u044b C = A * B \u0434\u0430\u043d\u043d\u044b\u0435 \u043d\u0435 \u043d\u0430\u043b\u043e\u0436\u0430\u0442\u0441\u044f \u0434\u0440\u0443\u0433 \u043d\u0430 \u0434\u0440\u0443\u0433\u0430 \u0438 \u043d\u0435 \u0438\u0441\u043f\u043e\u0440\u0442\u044f\u0442 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442.\u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0441\u0440\u0430\u0432\u043d\u0438\u043c \u043a\u043e\u0434 \u0443\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u044f \u043c\u0430\u0442\u0440\u0438\u0446. \u042f \u043d\u0430\u043f\u0438\u0441\u0430\u043b \u043d\u0430\u0438\u0432\u043d\u044b\u0439 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c (\u0442\u0440\u0438 \u0432\u043b\u043e\u0436\u0435\u043d\u043d\u044b\u0445 \u0446\u0438\u043a\u043b\u0430) \u043d\u0430 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u0438 \u043d\u0430 \u0421\u0438, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c, \u0432 \u0447\u0451\u043c \u043f\u043e\u0434\u0432\u043e\u0445. subroutine matmul_fortran(A, B, C, n)    implicit none    integer, intent(in) :: n    real(8), intent(in) :: A(n,n), B(n,n)    real(8), intent(out) :: C(n,n)    integer :: i, j, k    C = 0.0d0    do j = 1, n        do k = 1, n            do i = 1, n                ! \u0417\u0434\u0435\u0441\u044c \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0432\u0438\u0434\u0438\u0442: A(:,k) \u0438 B(k,j) \u2014 \u044d\u0442\u043e \u0447\u0435\u0442\u043a\u0438\u0435 \u043c\u0430\u0441\u0441\u0438\u0432\u044b.                ! \u041d\u0435\u0442 \u043f\u0435\u0440\u0435\u0441\u0435\u0447\u0435\u043d\u0438\u044f \u0441 C, \u0442\u0430\u043a \u043a\u0430\u043a C \u043e\u0431\u044a\u044f\u0432\u043b\u0435\u043d \u043a\u0430\u043a intent(out).                ! \u0421\u043c\u0435\u043b\u043e \u0432\u0435\u043a\u0442\u043e\u0440\u0438\u0437\u0443\u0435\u043c \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0438\u0439 \u0446\u0438\u043a\u043b \u043f\u043e &#8216;i&#8217;.                C(i,j) = C(i,j) + A(i,k) * B(k,j)            end do        end do    end doend subroutine matmul_fortran\/\/ \u0412\u041d\u0418\u041c\u0410\u041d\u0418\u0415: \u042d\u0442\u043e \u043d\u0430\u0438\u0432\u043d\u044b\u0439 \u0438 \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043e\u043f\u0430\u0441\u043d\u044b\u0439 \u043a\u043e\u0434!void matmul_c(int n, double A[n][n], double B[n][n], double C[n][n]) {    for (int i = 0; i &lt; n; ++i) {        for (int j = 0; j &lt; n; ++j) {            double sum = 0.0;            for (int k = 0; k &lt; n; ++k) {                \/\/ \u0410\u043b\u0438\u0430\u0441\u0438\u043d\u0433! \u041a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u043d\u0435 \u0437\u043d\u0430\u0435\u0442, \u043d\u0435 \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u043b\u0438 A \u043d\u0430 \u0442\u0443 \u0436\u0435 \u043f\u0430\u043c\u044f\u0442\u044c,                \/\/ \u0447\u0442\u043e \u0438 C. \u0412\u0434\u0440\u0443\u0433 \u044d\u0442\u043e C = C * A? \u0422\u043e\u0433\u0434\u0430 \u043c\u0435\u043d\u044f\u0442\u044c \u043f\u043e\u0440\u044f\u0434\u043e\u043a \u0446\u0438\u043a\u043b\u043e\u0432                \/\/ \u0438\u043b\u0438 \u0432\u0435\u043a\u0442\u043e\u0440\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u041d\u0415\u041b\u042c\u0417\u042f!                sum += A[i][k] * B[k][j];            }            C[i][j] = sum;        }    }}\u0412 \u0421\u0438-\u0432\u0435\u0440\u0441\u0438\u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0432\u044b\u043d\u0443\u0436\u0434\u0435\u043d \u00ab\u043f\u0435\u0440\u0435\u0441\u0442\u0440\u0430\u0445\u043e\u0432\u044b\u0432\u0430\u0442\u044c\u0441\u044f\u00bb \u0438 \u0433\u0435\u043d\u0435\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043c\u0435\u043d\u0435\u0435 \u043e\u043f\u0442\u0438\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u043a\u043e\u0434, \u0435\u0441\u043b\u0438 \u0432\u044b \u044f\u0432\u043d\u043e \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043b\u0438 restrict \u0438\u043b\u0438 \u043f\u0440\u0430\u0433\u043c\u044b. \u0412 \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0435 \u0436\u0435 \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430 \u0430\u043b\u0438\u0430\u0441\u0438\u043d\u0433\u0430 \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u043f\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044e \u0434\u043b\u044f \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u0441 \u0440\u0430\u0437\u043d\u044b\u043c\u0438 \u0430\u0442\u0440\u0438\u0431\u0443\u0442\u0430\u043c\u0438 intent.\u0418\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u0430\u0440\u0438\u0439 \u043d\u0435 \u0434\u0440\u0435\u043c\u043b\u0435\u0442:\u0420\u0430\u043d\u044c\u0448\u0435 \u0431\u044b\u0442\u043e\u0432\u0430\u043b\u043e \u043c\u043d\u0435\u043d\u0438\u0435, \u0447\u0442\u043e \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 GNU Fortran (gfortran) \u043f\u0440\u043e\u0438\u0433\u0440\u044b\u0432\u0430\u0435\u0442 \u043f\u0440\u043e\u043f\u0440\u0438\u0435\u0442\u0430\u0440\u043d\u044b\u043c \u0433\u0438\u0433\u0430\u043d\u0442\u0430\u043c \u0432\u0440\u043e\u0434\u0435 Intel Fortran. \u0421\u0435\u0439\u0447\u0430\u0441 \u0432 \u0438\u0433\u0440\u0443 \u0432\u043e\u0440\u0432\u0430\u043b\u0441\u044f LLVM Flang. \u0412 \u043c\u0430\u0440\u0442\u0435 2025 \u0433\u043e\u0434\u0430 \u0441 \u0432\u044b\u0445\u043e\u0434\u043e\u043c LLVM 20 \u0434\u0440\u0430\u0439\u0432\u0435\u0440 Flang \u0431\u044b\u043b \u043e\u0444\u0438\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043f\u0435\u0440\u0435\u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d \u0438\u0437 flang-new \u0432 \u043f\u0440\u043e\u0441\u0442\u043e flang, \u0447\u0442\u043e \u0433\u043e\u0432\u043e\u0440\u0438\u0442 \u043e \u043f\u043e\u043b\u043d\u043e\u0439 \u0443\u0432\u0435\u0440\u0435\u043d\u043d\u043e\u0441\u0442\u0438 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432 \u0432 \u0435\u0433\u043e \u043f\u0440\u043e\u0434\u0430\u043a\u0448\u0435\u043d-\u0433\u043e\u0442\u043e\u0432\u043d\u043e\u0441\u0442\u0438. \u0418\u0441\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u044e\u0442, \u0447\u0442\u043e \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c Flang \u0443\u0436\u0435 \u0441\u043e\u043f\u043e\u0441\u0442\u0430\u0432\u0438\u043c\u0430 \u0441 \u043b\u0438\u0434\u0435\u0440\u0430\u043c\u0438 \u0440\u044b\u043d\u043a\u0430 HPC.\u0413\u043b\u0430\u0432\u0430 4. Fortran \u0438 GPU: \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u0434\u043b\u044f CPU\u042f \u0447\u0430\u0441\u0442\u043e \u0441\u043b\u044b\u0448\u0443: \u00abFortran \u2014 \u044d\u0442\u043e \u0447\u0438\u0441\u0442\u043e \u043f\u0440\u043e CPU, \u0430 \u0434\u043b\u044f GPU \u043d\u0443\u0436\u0435\u043d Python\/CUDA\/C++\u00bb. \u042d\u0442\u043e \u043e\u043f\u0430\u0441\u043d\u043e\u0435 \u0437\u0430\u0431\u043b\u0443\u0436\u0434\u0435\u043d\u0438\u0435, \u0437\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0432 HPC-\u0441\u0440\u0435\u0434\u0435 \u0431\u044c\u044e\u0442 \u043a\u0430\u043d\u0434\u0435\u043b\u044f\u0431\u0440\u043e\u043c.\u0421\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0439 Fortran \u2014 \u044d\u0442\u043e \u043f\u0435\u0440\u0432\u043e\u043a\u043b\u0430\u0441\u0441\u043d\u044b\u0439 \u0433\u0440\u0430\u0436\u0434\u0430\u043d\u0438\u043d \u0432 \u043c\u0438\u0440\u0435 \u0443\u0441\u043a\u043e\u0440\u0438\u0442\u0435\u043b\u0435\u0439. \u0423 \u043d\u0430\u0441 \u0435\u0441\u0442\u044c \u0442\u0440\u0438 \u043c\u043e\u0449\u043d\u044b\u0445 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u044e\u0442 \u043d\u0435 \u043f\u0435\u0440\u0435\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u0442\u043e\u043d\u043d\u044b \u043b\u0435\u0433\u0430\u0441\u0438, \u0430 \u043f\u0440\u043e\u0441\u0442\u043e \u00ab\u0432\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u0443\u0441\u043a\u043e\u0440\u0435\u043d\u0438\u0435\u00bb:CUDA Fortran: \u041f\u0440\u044f\u043c\u043e\u0439 \u0434\u043e\u0441\u0442\u0443\u043f \u043a \u044f\u0434\u0440\u0430\u043c NVIDIA. \u0412\u044b \u043f\u0438\u0448\u0435\u0442\u0435 \u0430\u0442\u0440\u0438\u0431\u0443\u0442\u044b attributes(global), \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442\u0435 \u044f\u0434\u0440\u0430 \u0447\u0435\u0440\u0435\u0437 &lt;&lt;&lt;&#8230;&gt;&gt;&gt; \u0438 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442\u0435 \u0441 \u043f\u0430\u043c\u044f\u0442\u044c\u044e \u0443\u0441\u0442\u0440\u043e\u0439\u0441\u0442\u0432\u0430. \u041f\u043e\u043b\u043d\u044b\u0439 \u043a\u043e\u043d\u0442\u0440\u043e\u043b\u044c, \u043a\u0430\u043a \u0432 C++. OpenACC: \u0414\u0438\u0440\u0435\u043a\u0442\u0438\u0432\u043d\u044b\u0439 \u043f\u043e\u0434\u0445\u043e\u0434. \u0412\u044b \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442\u0435 \u0432 \u0441\u0432\u043e\u0439 \u0441\u0442\u0430\u0440\u044b\u0439 \u043a\u043e\u0434 \u0441\u0442\u0440\u043e\u0447\u043a\u0438 \u0442\u0438\u043f\u0430 !$acc parallel loop, \u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 (\u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, nvfortran \u0438\u0437 NVIDIA HPC SDK) \u0441\u0430\u043c \u0440\u0430\u0437\u0431\u0438\u0440\u0430\u0435\u0442\u0441\u044f, \u043a\u0430\u043a \u0437\u0430\u0442\u0430\u0449\u0438\u0442\u044c \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f \u043d\u0430 \u0432\u0438\u0434\u0435\u043e\u043a\u0430\u0440\u0442\u0443. DO CONCURRENT: \u0421\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u0439 \u0446\u0438\u043a\u043b \u0424\u043e\u0440\u0442\u0440\u0430\u043d\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0433\u043e\u0432\u043e\u0440\u0438\u0442 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440\u0443: \u00ab\u0417\u0434\u0435\u0441\u044c \u043d\u0435\u0442 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0435\u0439 \u043f\u043e \u0434\u0430\u043d\u043d\u044b\u043c, \u0434\u0435\u043b\u0430\u0439 \u0447\u0442\u043e \u0445\u043e\u0447\u0435\u0448\u044c, \u0445\u043e\u0442\u044c \u043d\u0430 1000 \u044f\u0434\u0435\u0440 GPU \u0440\u0430\u0437\u043c\u0430\u0436\u044c\u00bb. NVIDIA HPC SDK \u0443\u043c\u0435\u0435\u0442 \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0440\u0430\u0437\u0433\u0440\u0443\u0436\u0430\u0442\u044c \u0442\u0430\u043a\u0438\u0435 \u0446\u0438\u043a\u043b\u044b \u043d\u0430 GPU \u0441 \u0444\u043b\u0430\u0433\u043e\u043c -stdpar=gpu. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c, \u043a\u0430\u043a \u044d\u0442\u043e \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0432 \u043a\u043e\u0434\u0435. \u0412\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0434\u0438\u0440\u0435\u043a\u0442\u0438\u0432 OpenACC \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0435\u0442\u0430 \u043a\u0430\u043a\u043e\u0433\u043e-\u043d\u0438\u0431\u0443\u0434\u044c \u0442\u044f\u0436\u0435\u043b\u043e\u0433\u043e \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b\u0430 (\u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0433\u0440\u0430\u0432\u0438\u0442\u0430\u0446\u0438\u043e\u043d\u043d\u043e\u0433\u043e): program gpu_acceleration    implicit none    integer, parameter :: n = 1000000    real(8) :: pos(3, n), forces(3, n)    integer :: i, j    real(8) :: dx, dy, dz, dist_sq, inv_dist        ! \u0418\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044f \u0434\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 \u0445\u043e\u0441\u0442\u0435 (CPU)    call random_number(pos)    forces = 0.0d0        ! &#8212; \u0421\u0430\u043c\u043e\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0435: \u0434\u0438\u0440\u0435\u043a\u0442\u0438\u0432\u044b OpenACC &#8212;    ! \u041a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u043d\u0430 GPU \u043f\u0435\u0440\u0435\u0434 \u0440\u0430\u0441\u0447\u0435\u0442\u0430\u043c\u0438    !$acc data copyin(pos) copy(forces)        !$acc parallel loop    do i = 1, n        ! \u041b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0431\u0443\u0434\u0443\u0442 \u043f\u0440\u0438\u0432\u0430\u0442\u043d\u044b\u043c\u0438 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u043f\u043e\u0442\u043e\u043a\u0430 GPU        real(8) :: fx, fy, fz        fx = 0.0d0; fy = 0.0d0; fz = 0.0d0                !$acc loop reduction(+:fx, fy, fz)        do j = 1, n            if (i == j) cycle                        dx = pos(1, i) &#8212; pos(1, j)            dy = pos(2, i) &#8212; pos(2, j)            dz = pos(3, i) &#8212; pos(3, j)                        dist_sq = dx*dx + dy*dy + dz*dz + 1.0d-12            inv_dist = 1.0d0 \/ sqrt(dist_sq)  ! \u0422\u044f\u0436\u0435\u043b\u0430\u044f \u043c\u0430\u0442\u0435\u043c\u0430\u0442\u0438\u043a\u0430                        fx = fx + dx * inv_dist**3            fy = fy + dy * inv_dist**3            fz = fz + dz * inv_dist**3        end do                forces(1, i)&#8230;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-476903","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/476903","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=476903"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/476903\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=476903"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=476903"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=476903"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}