SetupFreezeSym Subroutine

public subroutine SetupFreezeSym(Sym)

Arguments

Type IntentOptional Attributes Name
type(BasisFN) :: Sym

Contents

Source Code

SetupFreezeSym

Source Code

    SUBROUTINE SetupFreezeSym(Sym)
        IMPLICIT NONE
        TYPE(BasisFN) Sym
!         FrozenSym=NullBasisFn
!   Set to be totally symmetric
        FrozenSym = Sym
    END SUBROUTINE SetupFreezeSym