read_header Subroutine

  1. read_output_tec.f90
  2. read_output_tec
  3. read_header

private subroutine read_header(control)

Skip read the header in the tecplot file

Arguments

Type IntentOptional AttributesName
type(controltype), intent(in) :: control

Calls

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

Called by

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

Contents

Source Code

read_header

Source Code

    subroutine read_header(control)
      !< Skip read the header in the tecplot file
      implicit none
      type(controltype), intent(in) :: control
      integer :: n

      DebugCall('read_output_tec: read_header')
      read(IN_FILE_UNIT, *) !"variables = x y z "

      do n = 1,control%r_count
        read(IN_FILE_UNIT, *) !trim(w_list(n))
      end do

      read(IN_FILE_UNIT, *) ! "zone T=block" ...
      read(IN_FILE_UNIT, *) !"Varlocation=([1-3]=Nodal)"
      read(IN_FILE_UNIT, *) !"Varlocation=([4-",total,"]=CELLCENTERED)"
      read(IN_FILE_UNIT, *) !"STRANDID"
      read(IN_FILE_UNIT, *) !"SolutionTime"

    end subroutine read_header