Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру 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 matrix private integer :: A=100, B=200, C=300 complex, private :: S=9 integer, protected :: P=8 integer :: Q=100, W=200 integer, private :: N=500 end module matrix Какие из перечисленных модульных переменных могут быть использованы в качестве границ размещаемых массивов в вызывающей головной программе?
• # Объявлен модуль и головная программа module matrix real, private :: A=1.6 real, public :: B=5.8 real, protected :: C=1.0E+10 private integer :: X=50 integer :: Y=70 end module matrix PROGRAM prog use matrix, only : BNEW => B implicit none real :: C=5000, B=10 integer :: Y=800 ... Какие из вариантов выражений допустимы в головной программе ?
• # Укажите оператор, который указывает какие процедуры привязаны к типу по имени
• # Выберите верные утверждения
• # Используя процедуры MKL, вычислите Евклидову норму вектора . Данные находятся в файле data11.txt. В ответ введите целую часть результата.