print_null_det Subroutine

public subroutine print_null_det(nunit, t_newline)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nunit
logical, intent(in), optional :: t_newline

Contents

Source Code

print_null_det

Source Code

    subroutine print_null_det(nunit, t_newline)
        integer, intent(in) :: nunit
        logical, intent(in), optional :: t_newline

        integer :: i

        do i = 1, nBasis - 1
            write(nunit, "(A1)", advance='no') "-"
        end do

        if (present(t_newline) .and. t_newline) then
            write(nunit, "(A1)") "-"
        else
            write(nunit, "(A1)", advance='no') "-"
        end if

    end subroutine print_null_det