Это инкриминируемый код (он связан с другим вопросом, который я задал, здесь ): program foo use mpi implicit none type double_st sequence real(kind(0.d0)) :: x,y,z integer :: acc end type double_st integer, parameter...