output_vtk_vector_int32 Subroutine

subroutine output_vtk_vector_int32(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
integer(kind=int32), intent(in) :: x(:)
integer(kind=int32), intent(in) :: y(:)
integer(kind=int32), intent(in) :: z(:)

Called by

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

Source Code

    subroutine output_vtk_vector_int32(unit_num, data_name, x, y, z)
        implicit none
        integer(int32), intent(in) :: unit_num
        character(*), intent(in) :: data_name
        integer(int32), 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(i0,x))') x(i), y(i), z(i)
        end do
        write (unit_num, '(a)') ""

    end subroutine output_vtk_vector_int32