Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B module mod_A contains subroutine init write(*,*) "Initializing A" end subroutine init end module mod_A module mod_B contains subroutine init write(*,*) "Initializing B" end subroutine init end module mod_B PROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля B end

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

• # Описан модуль, который подключен к головной программе 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-переменной CF, если caf-программа скомпилирована для восьмиядерного процессора и в настройках проекта указано значение Coarray Images = 64. CoArray-переменная CF, объявлена как type (plot) CF [2,-1,2:*]
• # Используя процедуры MKL вычислите выражение . Данные находятся в файле data3.txt. В ответ введите целую часть суммы модулей мнимой части полученного вектора.
• # Используя процедуры MKL вычислите скалярное произведение двух векторов и . Данные находятся в файле data9.txt. В ответ введите целую часть результата.
• # Укажите директиву, которая предупреждает о необъявленных переменных