SetupFreezeAllSym Subroutine

public subroutine SetupFreezeAllSym(Sym)

Arguments

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

Contents

Source Code

SetupFreezeAllSym

Source Code

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