LCHKSYMD Function

public function LCHKSYMD(NI, NJ, NEL, G1, nBasisMax)

Arguments

Type IntentOptional Attributes Name
integer :: NI(NEL)
integer :: NJ(NEL)
integer :: NEL
type(BasisFN) :: G1(*)
integer :: nBasisMax(5,*)

Return Value logical


Source Code

    LOGICAL FUNCTION LCHKSYMD(NI, NJ, NEL, G1, NBASISMAX)
        IMPLICIT NONE
        TYPE(BASISFN) ISYM, JSYM, G1(*)
        INTEGER NEL, NI(NEL), NJ(NEL), nBasisMax(5, *)
        CALL GETSYM(NI, NEL, G1, NBASISMAX, ISYM)
        CALL GETSYM(NJ, NEL, G1, NBASISMAX, JSYM)
        LCHKSYMD = LCHKSYM(ISYM, JSYM)
        RETURN
    END FUNCTION LCHKSYMD