skip_scalar Subroutine

  1. read_output_tec.f90
  2. read_output_tec
  3. skip_scalar

private subroutine skip_scalar()

Skip read scalar from the tecplot file

Arguments

None

Calls

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

Called by

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

Contents

Source Code

skip_scalar

Source Code

    subroutine skip_scalar()
      !< Skip read scalar from the tecplot file
      implicit none
      real(wp) :: dummy

      DebugCall('read_output_tec: skip_scalar')
      read(IN_FILE_UNIT, *) (((dummy ,i=1,imx-1), j=1,jmx-1), k=1,kmx-1)

    end subroutine skip_scalar