lattice
function get_name(this) result(lattice_name) class(lattice) :: this character(NAME_LEN) :: lattice_name lattice_name = this%name end function get_name