print_determ_vec_av Subroutine

public subroutine print_determ_vec_av(run)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), optional :: run

Contents

Source Code


Source Code

    subroutine print_determ_vec_av(run)
        integer, intent(in), optional :: run

        integer :: run_, iunit, i
        def_default(run_, run, 1)

        iunit = get_free_unit()
        open(iunit, file = 'determ_vecs_av', status = 'replace')
        associate ( rep => cs_replicas(run_))
            do i = 1, rep%determ_space_size
                write(iunit, *) rep%full_determ_vecs_av(1, i)
            end do
        end associate
        close(iunit)
    end subroutine print_determ_vec_av