У меня есть класс! & Gt; Класс, представляющий общий сетевой тип :: net_t private character (:), allocatable :: net_type! & Lt; Тип сетевого целого (вид = ...