output_vtk_points_scalar_real64 Subroutine

subroutine output_vtk_points_scalar_real64(unit_num, data_name, x)

Arguments

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

Called by

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

Source Code

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

        write (unit_num, '(3a)') "SCALARS ", trim(adjustl(data_name)), " double 1"
        write (unit_num, '(a)') "LOOKUP_TABLE default"
        write (unit_num, '(es22.15)') x(:)
        write (unit_num, '(a)') ""

    end subroutine output_vtk_points_scalar_real64