write_det Subroutine

public subroutine write_det(nunit, nI, lTerm)


Type IntentOptional Attributes Name
integer, intent(in) :: nunit
integer, intent(in) :: nI(nel)
logical, intent(in) :: lTerm


Source Code

Source Code

    subroutine write_det(nunit, nI, lTerm)

        ! Write the specified determinant (or CSF) to the output unit nunit.
        ! Terminate the line (with '\n') if lTerm = .true.
        ! In: nunit - Output (file) unit
        !     nI    - Determinant to output
        !     lTerm - Terminate line with newline character?

        integer, intent(in) :: nunit, nI(nel)
        logical, intent(in) :: lTerm

        call write_det_len(nunit, nI, nel, lterm)
    end subroutine write_det