read_scalar Subroutine

  1. read_output_tec.f90
  2. read_output_tec
  3. read_scalar

private subroutine read_scalar(var, name, index)

Read scalar from the tecplot file

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(out), dimension(index:imx-index,index:jmx-index,index:kmx-index):: var
character(len=*), intent(in) :: name
integer, intent(in) :: index

Calls

proc~~read_scalar~2~~CallsGraph proc~read_scalar~2 read_scalar debugcall debugcall proc~read_scalar~2->debugcall

Called by

proc~~read_scalar~2~~CalledByGraph proc~read_scalar~2 read_scalar proc~read_file~2 read_file proc~read_file~2->proc~read_scalar~2

Contents

Source Code

read_scalar

Source Code

    subroutine read_scalar(var, name, index)
      !< Read scalar from the tecplot file
      implicit none
      integer, intent(in) :: index
      real(wp), dimension(index:imx-index,index:jmx-index,index:kmx-index), intent(out) :: var
      character(len=*),       intent(in):: name

      DebugCall('read_output_tec'//trim(name))
      read(IN_FILE_UNIT, *) (((var(i, j, k),i=1,imx-1), j=1,jmx-1), k=1,kmx-1)

    end subroutine read_scalar