SetupFreezeSym Subroutine

public subroutine SetupFreezeSym(Sym)

Arguments

Type	Intent	Optional	Attributes		Name
type(BasisFN)				::	Sym

Source Code

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