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

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

• # Переменные, объявленные как protected
• # Описан модуль, который подключен к головной программе module mod_1 integer, private :: A=1,B=1,C=1 integer, protected :: 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 end subroutine init_D_E integer function F F=A+D+E end function F end module mod_1 Какой результат вернет функция F после вызова процедуры init_D_E(2,3) в головной программе ?
• # Выберите допустимые объявления модульных переменных для данного варианта программы module mod_A implicit none ! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(x) real x A=A**2 B=x+A end subroutine init_solver end module mod_A PROGRAM prog use mod_A, Anew => A implicit none x=1.5 Anew=x+1 write(*,*) Anew+B call init_solver(1.6) end
• # Даны два типа описанных в модуле gas_dynamics type base complex(8), allocatable :: points(:) logical, allocatable :: errors(:) integer, private :: size end type base type, extends(base) :: baseX character(32) file character(32) name logical stat end type baseX Создайте тип composite, который: содержит поле типа baseX, в виде динамической переменнойсодержит поле типа integer(2), в виде ссылкисодержит поле типа integer(8) В ответ введите размер в байтах переменной типа composite
• # Укажите директиву, которая указывает сколько байт следует отводить для целого типа по умолчанию