Type Alias bla_logical 

pub type bla_logical = f77_int;