setupsym Subroutine

public elemental subroutine setupsym(isym)

Arguments

Type	Intent	Optional	Attributes		Name
type(BasisFN),	intent(inout)			::	isym

Contents

Source Code

setupsym

Source Code

    elemental subroutine setupsym(isym)
        type(basisfn), intent(inout) :: isym
        isym = frozensym
    end subroutine setupsym