FindSymLabel Function

public function FindSymLabel(s)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry)				::	s

Return Value integer

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