read_header Subroutine

  1. read_output_vtk.f90
  2. read_output_vtk
  3. read_header

private subroutine read_header()

Skip read the header in the vtk file

Arguments

None

Calls

proc~~read_header~~CallsGraph proc~read_header read_header debugcall debugcall proc~read_header->debugcall

Called by

proc~~read_header~~CalledByGraph proc~read_header read_header proc~read_file read_file proc~read_file->proc~read_header

Contents

Source Code

read_header

Source Code

    subroutine read_header()
      !< Skip read the header in the vtk file
      implicit none

      DebugCall('read_output_vtk: read_header')
      read(IN_FILE_UNIT, *) !'# vtk DataFile Version 3.1'
      read(IN_FILE_UNIT, *) !'cfd-iitm output'   ! comment line
      read(IN_FILE_UNIT, *) !trim(read_data_format)
      read(IN_FILE_UNIT, *) !'DATASET STRUCTURED_GRID'
      !read(IN_FILE_UNIT, *)


    end subroutine read_header