Какие из циклов не подходят для параллелизации с использованием опции компилятора /Qparallel

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

• # Объявлен модуль и головная программа module matrix real :: M=1000 real, private :: MP=3000 real, protected :: MT = 5000 integer, public :: S1=50 integer, protected :: S2=70 end module matrix PROGRAM prog use matrix, only : M, MT implicit none integer :: MP=5000 integer :: S1=10, S2=30 ... Какие из вариантов выражений допустимы в головной программе ?
• # Описан модуль, который подключен к головной программе module mod_1 integer, private :: A,B,C private SetA public F, init contains subroutine SetA(X) integer X A=X+1 end subroutine SetA subroutine init() call SetA(500); B=20; C=10 end subroutine integer function F F=A+B+C end function F end module mod_1 Какой результат вернет функция F после вызова процедуры init в головной программе ?
• # Укажите верные объявления coarray-переменных
• # Используя процедуры MKL, вычислите произведение , где - квадратная матрица, -вектор. Данные находятся в файле записана по строкам). В ответ введите номер минимального по модулю элемента вектора .
• # Используя процедуры MKL, вычислите произведение , где - треугольная квадратная матрица,-квадратная матрица. Данные находятся в файле и записаны по строкам). В ответ введите целую часть суммы модулей элементов главной диагонали матрицы .