Определение типа полиморфной переменной происходит посредством оператора

Каким атрибутом следует описать процедуру, привязанную к типу по имени, чтобы получить доступ к переменной, посредством которой вызывалась данная процедура ?

Даны два типа описанных в модуле 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

Даны два типа

  type person    character(64) name    character(64) lastname  end type person  type robot    character(32) mech    integer(8)    period  end type robot

Создайте тип office, который

наследует тип person

содержит поле типа robot, в виде одномерного динамического массива

содержит поле типа character(64), являющееся ссылкой

В ответ введите размер в байтах переменной типа office

Даны два типа

  type grid    real(8) x1,y1,x2,y2    integer(8) adr  end type grid  type point    real(8) x    real(8) y  end type point

Создайте тип region, который содержит поля:

типа point, в виде одномерного динамического массива

типа real(8), в виде трехмерного динамического массива

В ответ введите размер в байтах переменной типа region

Даны два типа описанных в модуле 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

Даны два типа описанных в модуле hydro

module hydro  type point    real(8) x    real(8) y  end type point  type, extends (point) :: expoint    real(16), allocatable :: x1,y1,x2,y2    character(8) code  end type expoint...end module hydro

В тип expoint добавляются две модульные процедуры procA и procB. Процедуры не имеют формальных параметров. На сколько изменится размер в байтах переменной типа expoint после добавления процедур ?

Процедурные указатели объявляются при помощи оператора

Внешние процедуры объявляются после оператора

Неограниченно полиморфная переменная объявляется при помощи оператора

Перегрузка операции присваивания реализуется при помощи оператора