Type Alias bla_logical

pub type bla_logical = f77_int;