WRITEALLSYM Subroutine

public subroutine WRITEALLSYM(IUNIT, SYM, LTERM)

Arguments

Type IntentOptional Attributes Name
integer :: IUNIT
type(BasisFN) :: SYM
logical :: LTERM

Contents

Source Code

WRITEALLSYM

Source Code

    SUBROUTINE WRITEALLSYM(IUNIT, SYM, LTERM)
        IMPLICIT NONE
        INTEGER IUNIT
        TYPE(BASISFN) SYM
        LOGICAL LTERM
        write(IUNIT, "(4I5)", advance='no') SYM%K(1), SYM%K(2), SYM%K(3), SYM%MS
        CALL WRITESYM(IUNIT, SYM%SYM, LTERM)
    END SUBROUTINE WRITEALLSYM