FindSymProd Subroutine

public subroutine FindSymProd(Prod, SymPairProds, nSymPairProds, iProd)

Arguments

Type IntentOptional Attributes Name
type(Symmetry) :: Prod
type(SymPairProd) :: SymPairProds(nSymPairProds)
integer :: nSymPairProds
integer :: iProd

Contents

Source Code

FindSymProd

Source Code

    SUBROUTINE FindSymProd(Prod, SymPairProds, nSymPairProds, iProd)
        implicit none
        INTEGER nSymPairProds, iProd
        TYPE(SymPairProd) SymPairProds(nSymPairProds)
        TYPE(Symmetry) Prod
        DO iProd = 1, nSymPairProds
            IF (SYMEQ(SymPairProds(iProd)%Sym, Prod)) EXIT
        end do
    END SUBROUTINE FindSymProd