get_name Function

private function get_name(this) result(lattice_name)

Type Bound

lattice

Arguments

Type IntentOptional Attributes Name
class(lattice) :: this

Return Value character(len=NAME_LEN)


Contents

Source Code


Source Code

    function get_name(this) result(lattice_name)
        class(lattice) :: this
        character(NAME_LEN) :: lattice_name

        lattice_name = this%name

    end function get_name