Укажите параметр компиляции, который разрешает подстановку функций внутри текущего исходного файла на усмотрение компилятора

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

• # Описан модуль, который подключен к головной программе module mod_1 integer, protected :: A=1,B=1,C=1 integer, private :: D, E private SetA public F, init contains subroutine SetA(X) integer X A=X-1 end subroutine SetA subroutine init_D_E(x,y) integer x,y D=X*10; E=Y*2; call SetA(0) end subroutine init_D_E integer function F F=A+D+E end function F end module mod_1 Какой результат вернет функция F после вызова процедуры init_D_E(4,5) в головной программе ?
• # Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A 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() ! вызываем процедуру из модуля A end
• # Перегрузка операции деления реализуется при помощи оператора
• # Объявлены следующие типы и переменные. type grid integer adr real alfa real beta end type grid type, extends (grid) :: flow integer coord real dist real param end type flow type, extends (flow) :: regime real, allocatable :: ux(:,:,:), uy(:,:,:), uz(:,:,:) real R1, R2, R3 end type regime class(*), pointer :: polym class(grid), pointer :: pol_grd type(flow), target :: flw Какие справедливы прикрепления ссылок ?
• # Используя процедуры MKL вычислите скалярное произведение двух векторов и . Данные находятся в файлеdata8.txt. В ответ введите целую часть результата.