output_vtk_points_scalar_int32 Subroutine

subroutine output_vtk_points_scalar_int32(unit_num, data_name, x)

Arguments

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

Called by

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

Source Code

    subroutine output_vtk_points_scalar_int32(unit_num, data_name, x)
        implicit none
        integer(int32), intent(in) :: unit_num
        character(*), intent(in) :: data_name
        integer(int32), intent(in) :: x(:)

        write (unit_num, '(3a)') "SCALARS ", trim(adjustl(data_name)), " int 1"
        write (unit_num, '(a)') "LOOKUP_TABLE default"
        write (unit_num, '(i0)') x(:)
        write (unit_num, '(a)') ""

    end subroutine output_vtk_points_scalar_int32