Главная /
Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel /
Даны два типа описанных в модуле gas_dynamics module gas_dynamics type grid real(8), allocatable :: dat(:,:,:) real(8), allocatable :: xcoord(:) real(8), allocatable :: ycoord(:) real(8), allocatable :: zcoord(:) end type grid type particle real(8), alloc
Даны два типа описанных в модуле gas_dynamics
module gas_dynamics
type grid
real(8), allocatable :: dat(:,:,:)
real(8), allocatable :: xcoord(:)
real(8), allocatable :: ycoord(:)
real(8), allocatable :: zcoord(:)
end type grid
type particle
real(8), allocatable, private :: ux(:,:,:)
real(8), allocatable, private :: uy(:,:,:)
real(8), allocatable, private :: uz(:,:,:)
real(8), allocatable, private :: tm(:,:,:)
end type particle
...
end module gas_dynamics
Создайте тип plot, который:
наследует поля типа grid
содержит поле типа particle
, в виде одномерного динамического массива содержит два поля типа complex(8)
, в виде одномерных динамических массивов
В ответ введите размер в байтах переменной типа plot
вопрос
grid
particle
, в виде одномерного динамического массиваcomplex(8)
, в виде одномерных динамических массивовПравильный ответ:
276
Сложность вопроса
84
Сложность курса: Программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel
75
Оценить вопрос
Комментарии:
Аноним
Это очень простецкий вопрос по интуиту.
24 дек 2018
Аноним
Кто ищет данные ответы inuit? Это же элементарно (я не ботан)
11 окт 2016
Другие ответы на вопросы из темы программирование интуит.
- # Выберите допустимые объявления модульных переменных для данного варианта программы module mod_A implicit none ! здесь следует объявить модульные переменные public init_solver contains subroutine init_solver(val) real val x=val*1.0E-10 end subroutine init_solver end module mod_A PROGRAM prog use mod_A, Anew => A, Bnew => B implicit none Anew = Anew + 1 write(*,*) Bnew+1 call init_solver(-1.0) Anew=Bnew+1 end
- # Какие функции используются в выражении res=sin(2.0)*cos(2.0) module mod_F contains real function sin(x) sin=sqrt(sqrt(sqrt(x))) end function sin real function cos(x) cos=x**2.0**2.0 end function cos end module mod_F PROGRAM prog use mod_F, only : cos implicit none real res res=sin(2.0)*cos(1.0) end
- # Укажите функцию, которая возвращает номер копии caf-программы
- # Используя процедуры MKL вычислите выражение . Данные находятся в файле data5.txt. В ответ введите целую часть суммы модулей полученного вектора.
- # Используя процедуры MKL, вычислите произведение , где - треугольная квадратная матрица,-квадратная матрица. Данные находятся в файле и записаны по строкам). В ответ введите целую часть суммы модулей элементов главной диагонали матрицы .