set_name Subroutine

private subroutine set_name(this, lat_type)

Type Bound

lattice

Arguments

Type IntentOptional Attributes Name
class(lattice) :: this
character(len=*), intent(in) :: lat_type

Source Code

    subroutine set_name(this, lat_type)
        class(lattice) :: this
        character(*), intent(in) :: lat_type

        this%name = lat_type

    end subroutine set_name