FindSymLabel Function

public function FindSymLabel(s)

Arguments

Type IntentOptional Attributes Name
type(Symmetry) :: s

Return Value integer


Contents

Source Code

FindSymLabel

Source Code

    integer Function FindSymLabel(s)

        IMPLICIT NONE
        Type(Symmetry) s
        integer i
        do i = 1, nSymLabels
            if (symeq(SymLabels(i), s)) exit
        end do
        if (i > nSymLabels) i = 0
        FindSymLabel = i
        return
    end Function FindSymLabel