skip_scalar Subroutine

  1. read_output_vtk.f90
  2. read_output_vtk
  3. skip_scalar

private subroutine skip_scalar()

Skip read scalar from the vtk file

Arguments

None

Calls

proc~~skip_scalar~~CallsGraph proc~skip_scalar skip_scalar debugcall debugcall proc~skip_scalar->debugcall

Called by

proc~~skip_scalar~~CalledByGraph proc~skip_scalar skip_scalar proc~read_file read_file proc~read_file->proc~skip_scalar

Contents

Source Code

skip_scalar

Source Code

    subroutine skip_scalar()
      !< Skip read scalar from the vtk file
      implicit none

      DebugCall('read_output_vtk: skip_scalar')
      read(IN_FILE_UNIT, *) !'SCALARS '//trim(name)//' FLOAT'
      read(IN_FILE_UNIT, *) !'LOOKUP_TABLE default'
      do k = 1, kmx - 1
       do j = 1, jmx - 1
        do i = 1, imx - 1
          read(IN_FILE_UNIT, *)
        end do
       end do
      end do
      read(IN_FILE_UNIT, *)

    end subroutine skip_scalar