Используя процедуры MKL, вычислите произведение , где - треугольная квадратная матрица,-квадратная матрица. Данные находятся в файле и записаны по строкам). В ответ введите целую часть суммы модулей элементов главной диагонали матрицы .

Правильный ответ:

• # Переменные, объявленные как public
• # Выберите допустимые объявления модульных переменных для данного варианта программы module mod_A implicit none ! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*sin(val)+A end subroutine init_solver end module mod_A PROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Bnew=1+Anew write(*,*) Bnew+Anew+X call init_solver(-1.0) end
• # Для типа point выберите правильный код финальной процедуры DeletePoint module flow integer, private :: INDEX type point integer x,y,z integer color logical stat contains final :: DeletePoint end type point CONTAINS ... subroutine InitFlow() INDEX=0 end subroutine InitFlow end module flow
• # Чему равна нижняя граница первого измерения coarray-переменной CF, если caf-программа скомпилирована для восьмиядерного процессора и в настройках проекта указано значение Coarray Images = 0. CoArray-переменная CF, объявлена как type (cell) CF [2,2:*]
• # Используя процедуры MKL вычислите выражение . Данные находятся в файле data3.txt. В ответ введите целую часть суммы модулей мнимой части полученного вектора.