output_vtk_vector_real64 Subroutine

subroutine output_vtk_vector_real64(unit_num, data_name, x, y, z)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: unit_num
character(len=*), intent(in) :: data_name
real(kind=real64), intent(in) :: x(:)
real(kind=real64), intent(in) :: y(:)
real(kind=real64), intent(in) :: z(:)

Called by

proc~~output_vtk_vector_real64~~CalledByGraph proc~output_vtk_vector_real64 output_vtk_vector_real64 interface~write_field write_field interface~write_field->proc~output_vtk_vector_real64 proc~output_overall_vtk_fields output_overall_vtk_fields proc~output_overall_vtk_fields->interface~write_field

Source Code

    subroutine output_vtk_vector_real64(unit_num, data_name, x, y, z)
        implicit none
        integer(int32), intent(in) :: unit_num
        character(*), intent(in) :: data_name
        real(real64), intent(in) :: x(:), y(:), z(:)

        integer(int32) :: i

        write (unit_num, '(3a)') "VECTORS ", trim(adjustl(data_name)), " double"
        do i = 1, size(x)
            write (unit_num, '(3(es22.15,x))') x(i), y(i), z(i)
        end do
        write (unit_num, '(a)') ""

    end subroutine output_vtk_vector_real64