tablemodule Module Reference

Data Types
type	tabletype

Functions/Subroutines
subroutine, public	table_cr (this, name, title)
subroutine	table_df (this, maxbound, ntableterm, iout, transient, lineseparator, separator, finalize)
subroutine	initialize_column (this, text, width, alignment)
subroutine	set_header (this)
subroutine	allocate_strings (this, width, nlines)
subroutine	write_header (this)
subroutine	write_line (this)
subroutine	finalize (this)
subroutine	finalize_table (this)
subroutine	table_da (this)
subroutine	line_to_columns (this, line)
subroutine	add_error (this)
subroutine	add_integer (this, ival)
subroutine	add_long_integer (this, long_ival)
subroutine	add_real (this, rval)
subroutine	add_string (this, cval)
subroutine	set_maxbound (this, maxbound)
subroutine	set_kstpkper (this, kstp, kper)
subroutine	set_title (this, title)
subroutine	set_iout (this, iout)
subroutine	print_list_entry (this, i, nodestr, q, bname)
subroutine	print_separator (this, iextralines)
subroutine	reset (this)

Function/Subroutine Documentation

add_error()

subroutine tablemodule::add_error

(

class(tabletype)

this

)

Definition at line 609 of file Table.f90.

! ******************************************************************************
! add_error -- evaluate if error condition occurs when adding data to dataline
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- check that ientry is within bounds
    if (this%ientry > this%ntableterm) then
      write (errmsg, '(a,1x,i0,5(1x,a),1x,i0,1x,a)') &
        'Trying to add data to column ', this%ientry, 'in the', &
        trim(adjustl(this%name)), 'table (', trim(adjustl(this%title)), &
        ') that only has', this%ntableterm, 'columns.'
      call store_error(errmsg, terminate=.true.)
    end if
    !
    ! -- Return
    return

Here is the call graph for this function:

add_integer()

subroutine tablemodule::add_integer	(	class(tabletype)	this,
		integer(i4b), intent(in)	ival
	)

Definition at line 635 of file Table.f90.

! ******************************************************************************
! add_integer -- add integer value to the dataline
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), intent(in) :: ival
    ! -- local
    logical :: line_end
    character(len=LINELENGTH) :: cval
    real(DP) :: rval
    integer(I4B) :: width
    integer(I4B) :: alignment
    integer(I4B) :: j
! ------------------------------------------------------------------------------
    !
    ! -- write header
    if (this%icount == 0 .and. this%ientry == 0) then
      call this%write_header()
    end if
    !
    ! -- update index for tableterm
    this%ientry = this%ientry + 1
    !
    ! -- check that ientry is within bounds
    call this%add_error()
    !
    ! -- initialize local variables
    j = this%ientry
    width = this%tableterm(j)%get_width()
    alignment = this%tableterm(j)%get_alignment()
    line_end = .false.
    if (j == this%ntableterm) then
      line_end = .true.
    end if
    !
    ! -- add data to line
    if (this%write_csv) then
      if (j == 1) then
        write (this%dataline, '(G0)') ival
      else
        write (this%dataline, '(a,",",G0)') trim(this%dataline), ival
      end if
    else
      if (j == this%ntableterm) then
        call uwword(this%dataline, this%iloc, width, tabinteger, &
                    cval, ival, rval, alignment=alignment)
      else
        call uwword(this%dataline, this%iloc, width, tabinteger, &
                    cval, ival, rval, alignment=alignment, sep=this%sep)
      end if
    end if
    !
    ! -- write the data line, if necessary
    if (line_end) then
      call this%write_line()
    end if
    !
    ! -- finalize the table, if necessary
    if (this%allow_finalization) then
      call this%finalize()
    end if
    !
    ! -- Return
    return

Here is the call graph for this function:

Here is the caller graph for this function:

add_long_integer()

subroutine tablemodule::add_long_integer	(	class(tabletype)	this,
		integer(i8b), intent(in)	long_ival
	)

Definition at line 706 of file Table.f90.

! ******************************************************************************
! add_long_integer -- add long integer value to the dataline
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I8B), intent(in) :: long_ival
    ! -- local
    logical :: line_end
    character(len=LINELENGTH) :: cval
    real(DP) :: rval
    integer(I4B) :: ival
    integer(I4B) :: width
    integer(I4B) :: alignment
    integer(I4B) :: j
! ------------------------------------------------------------------------------
    !
    ! -- write header
    if (this%icount == 0 .and. this%ientry == 0) then
      call this%write_header()
    end if
    !
    ! -- update index for tableterm
    this%ientry = this%ientry + 1
    !
    ! -- check that ientry is within bounds
    call this%add_error()
    !
    ! -- initialize local variables
    j = this%ientry
    width = this%tableterm(j)%get_width()
    alignment = this%tableterm(j)%get_alignment()
    line_end = .false.
    if (j == this%ntableterm) then
      line_end = .true.
    end if
    !
    ! -- add data to line
    if (this%write_csv) then
      if (j == 1) then
        write (this%dataline, '(G0)') long_ival
      else
        write (this%dataline, '(a,",",G0)') trim(this%dataline), long_ival
      end if
    else
      write (cval, '(i0)') long_ival
      if (j == this%ntableterm) then
        call uwword(this%dataline, this%iloc, width, tabstring, &
                    trim(cval), ival, rval, alignment=alignment)
      else
        call uwword(this%dataline, this%iloc, width, tabstring, &
                    trim(cval), ival, rval, alignment=alignment, sep=this%sep)
      end if
    end if
    !
    ! -- write the data line, if necessary
    if (line_end) then
      call this%write_line()
    end if
    !
    ! -- finalize the table, if necessary
    if (this%allow_finalization) then
      call this%finalize()
    end if
    !
    ! -- Return
    return

Here is the call graph for this function:

Here is the caller graph for this function:

add_real()

subroutine tablemodule::add_real	(	class(tabletype)	this,
		real(dp), intent(in)	rval
	)

Definition at line 779 of file Table.f90.

! ******************************************************************************
! add_real -- add real value to the dataline
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    real(DP), intent(in) :: rval
    ! -- local
    logical :: line_end
    character(len=LINELENGTH) :: cval
    integer(I4B) :: ival
    integer(I4B) :: j
    integer(I4B) :: width
    integer(I4B) :: alignment
! ------------------------------------------------------------------------------
!
    if (rval == dhnoflo) then
      call this%add_string("INACTIVE")
    else if (rval == dhdry) then
      call this%add_string("DRY")
    else
      !
      ! -- write header
      if (this%icount == 0 .and. this%ientry == 0) then
        call this%write_header()
      end if
      !
      ! -- update index for tableterm
      this%ientry = this%ientry + 1
      !
      ! -- check that ientry is within bounds
      call this%add_error()
      !
      ! -- initialize local variables
      j = this%ientry
      width = this%tableterm(j)%get_width()
      alignment = this%tableterm(j)%get_alignment()
      line_end = .false.
      if (j == this%ntableterm) then
        line_end = .true.
      end if
      !
      ! -- add data to line
      if (this%write_csv) then
        if (j == 1) then
          write (this%dataline, '(G0)') rval
        else
          write (this%dataline, '(a,",",G0)') trim(this%dataline), rval
        end if
      else
        if (j == this%ntableterm) then
          call uwword(this%dataline, this%iloc, width, tabreal, &
                      cval, ival, rval, alignment=alignment)
        else
          call uwword(this%dataline, this%iloc, width, tabreal, &
                      cval, ival, rval, alignment=alignment, sep=this%sep)
        end if
      end if
      !
      ! -- write the data line, if necessary
      if (line_end) then
        call this%write_line()
      end if
      !
      ! -- finalize the table, if necessary
      if (this%allow_finalization) then
        call this%finalize()
      end if
    end if
    !
    ! -- Return
    return

Here is the call graph for this function:

Here is the caller graph for this function:

add_string()

subroutine tablemodule::add_string	(	class(tabletype)	this,
		character(len=*)	cval
	)

Definition at line 857 of file Table.f90.

! ******************************************************************************
! add_string -- add string value to the dataline
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    character(len=*) :: cval
    ! -- local
    logical :: line_end
    integer(I4B) :: j
    integer(I4B) :: ival
    real(DP) :: rval
    integer(I4B) :: width
    integer(I4B) :: alignment
! ------------------------------------------------------------------------------
    !
    ! -- write header
    if (this%icount == 0 .and. this%ientry == 0) then
      call this%write_header()
    end if
    !
    ! -- update index for tableterm
    this%ientry = this%ientry + 1
    !
    ! -- check that ientry is within bounds
    call this%add_error()
    !
    ! -- initialize local variables
    j = this%ientry
    width = this%tableterm(j)%get_width()
    alignment = this%tableterm(j)%get_alignment()
    line_end = .false.
    if (j == this%ntableterm) then
      line_end = .true.
    end if
    !
    ! -- add data to line
    if (this%write_csv) then
      if (j == 1) then
        write (this%dataline, '(a)') trim(adjustl(cval))
      else
        write (this%dataline, '(a,",",a)') &
          trim(this%dataline), trim(adjustl(cval))
      end if
    else
      if (j == this%ntableterm) then
        call uwword(this%dataline, this%iloc, width, tabstring, &
                    cval, ival, rval, alignment=alignment)
      else
        call uwword(this%dataline, this%iloc, width, tabstring, &
                    cval, ival, rval, alignment=alignment, sep=this%sep)
      end if
    end if
    !
    ! -- write the data line, if necessary
    if (line_end) then
      call this%write_line()
    end if
    !
    ! -- finalize the table, if necessary
    if (this%allow_finalization) then
      call this%finalize()
    end if
    !
    ! -- Return
    return

Here is the call graph for this function:

Here is the caller graph for this function:

allocate_strings()

subroutine tablemodule::allocate_strings	(	class(tabletype)	this,
		integer(i4b), intent(in)	width,
		integer(i4b), intent(in)	nlines
	)

Definition at line 333 of file Table.f90.

! ******************************************************************************
! allocate_strings -- Allocate allocatable character arrays
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), intent(in) :: width
    integer(I4B), intent(in) :: nlines
    ! -- local
    character(len=width) :: string
    character(len=width) :: linesep
    integer(I4B) :: n
! ------------------------------------------------------------------------------
    !
    ! -- initialize local variables
    string = ''
    linesep = repeat('-', width)
    !
    ! -- initialize variables
    this%nheaderlines = nlines
    if (this%add_linesep) then
      this%nheaderlines = this%nheaderlines + 2
    end if
    this%nlinewidth = width
    !
    ! -- allocate deferred length strings
    allocate (this%header(this%nheaderlines))
    allocate (this%linesep)
    allocate (this%dataline)
    !
    ! -- initialize lines
    this%linesep = linesep(1:width)
    this%dataline = string(1:width)
    do n = 1, this%nheaderlines
      this%header(n) = string(1:width)
    end do
    !
    ! -- fill first and last header line with
    !    linesep
    if (this%add_linesep) then
      this%header(1) = linesep(1:width)
      this%header(nlines + 2) = linesep(1:width)
    end if
    !
    ! -- return
    return

finalize()

subroutine tablemodule::finalize

(

class(tabletype)

this

)

Definition at line 460 of file Table.f90.

! ******************************************************************************
! finalize -- Private method that test for last line. If last line the
!             public finalize_table method is called
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- finalize table if last entry
    if (this%icount == this%maxbound) then
      call this%finalize_table()
    end if
    !
    ! -- return
    return

finalize_table()

subroutine tablemodule::finalize_table

(

class(tabletype)

this

)

Definition at line 483 of file Table.f90.

! ******************************************************************************
! finalize -- Public method to finalize the table
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- write the final table separator
    call this%print_separator(iextralines=1)
    !
    ! -- flush file
    flush (this%iout)
    !
    ! -- reinitialize variables
    call this%reset()
    !
    ! -- return
    return

initialize_column()

subroutine tablemodule::initialize_column	(	class(tabletype)	this,
		character(len=*), intent(in)	text,
		integer(i4b), intent(in)	width,
		integer(i4b), intent(in), optional	alignment
	)

Definition at line 198 of file Table.f90.

! ******************************************************************************
! initialize_column -- Initialize data for a column
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    character(len=*), intent(in) :: text
    integer(I4B), intent(in) :: width
    integer(I4B), intent(in), optional :: alignment
    ! -- local
    integer(I4B) :: idx
    integer(I4B) :: ialign
! ------------------------------------------------------------------------------
    !
    ! -- process optional dummy variables
    if (present(alignment)) then
      ialign = alignment
    else
      ialign = tabcenter
    end if
    !
    ! -- update index for tableterm
    this%ientry = this%ientry + 1
    idx = this%ientry
    !
    ! -- check that ientry is in bounds
    if (this%ientry > this%ntableterm) then
      write (errmsg, '(a,a,a,i0,a,1x,a,1x,a,a,a,1x,i0,1x,a)') &
        'Trying to add column "', trim(adjustl(text)), '" (', &
        this%ientry, ') in the', trim(adjustl(this%name)), 'table ("', &
        trim(adjustl(this%title)), '") that only has', this%ntableterm, &
        'columns.'
      call store_error(errmsg, terminate=.true.)
    end if
    !
    ! -- initialize table term
    call this%tableterm(idx)%initialize(text, width, alignment=ialign)
    !
    ! -- create header when all terms have been specified
    if (this%ientry == this%ntableterm) then
      call this%set_header()
      !
      ! -- reset ientry
      this%ientry = 0
    end if
    !
    ! -- return
    return

Here is the call graph for this function:

line_to_columns()

subroutine tablemodule::line_to_columns	(	class(tabletype)	this,
		character(len=linelength), intent(in)	line
	)

Definition at line 560 of file Table.f90.

! ******************************************************************************
! line_to_columns -- convert a line to the correct number of columns
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    character(len=LINELENGTH), intent(in) :: line
    ! -- local
    character(len=LINELENGTH), allocatable, dimension(:) :: words
    integer(I4B) :: nwords
    integer(I4B) :: icols
    integer(I4B) :: i
! ------------------------------------------------------------------------------
    !
    ! -- write header
    if (this%icount == 0 .and. this%ientry == 0) then
      call this%write_header()
    end if
    !
    ! -- parse line into words
    call parseline(line, nwords, words, 0)
    !
    ! -- calculate the number of entries in line but
    !    limit it to the maximum number of columns if
    !    the number of words exceeds ntableterm
    icols = this%ntableterm
    icols = min(nwords, icols)
    !
    ! -- add data (as strings) to line
    do i = 1, icols
      call this%add_term(words(i))
    end do
    !
    ! -- add empty strings to complete the line
    do i = icols + 1, this%ntableterm
      call this%add_term(' ')
    end do
    !
    ! -- clean up local allocatable array
    deallocate (words)
    !
    ! -- Return
    return

Here is the call graph for this function:

print_list_entry()

subroutine tablemodule::print_list_entry	(	class(tabletype)	this,
		integer(i4b), intent(in)	i,
		character(len=*), intent(in)	nodestr,
		real(dp), intent(in)	q,
		character(len=*), intent(in)	bname
	)

Definition at line 1018 of file Table.f90.

! ******************************************************************************
! print_list_entry -- write flow term table values
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), intent(in) :: i
    character(len=*), intent(in) :: nodestr
    real(DP), intent(in) :: q
    character(len=*), intent(in) :: bname
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- fill table terms
    call this%add_term(i)
    call this%add_term(nodestr)
    call this%add_term(q)
    if (this%ntableterm > 3) then
      call this%add_term(bname)
    end if
    !
    ! -- return
    return

print_separator()

subroutine tablemodule::print_separator	(	class(tabletype)	this,
		integer(i4b), optional	iextralines
	)

Definition at line 1047 of file Table.f90.

! ******************************************************************************
! print_separator -- print a line separator to the table
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), optional :: iextralines
    ! -- local
    integer(I4B) :: i
    integer(I4B) :: iextra
    integer(I4B) :: width
! ------------------------------------------------------------------------------
    !
    ! -- process optional variables
    if (present(iextralines)) then
      iextra = iextralines
    else
      iextra = 0
    end if
    !
    ! -- initialize local variables
    width = this%nlinewidth
    !
    ! -- print line separator
    if (this%add_linesep) then
      write (this%iout, '(1x,a)') this%linesep(1:width)
      do i = 1, iextra
        write (this%iout, '(/)')
      end do
    end if
    !
    ! -- return
    return

reset()

subroutine tablemodule::reset

(

class(tabletype)

this

)

Definition at line 1086 of file Table.f90.

! ******************************************************************************
! reset -- Private method to reset table counters
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- reset counters
    this%ientry = 0
    this%icount = 0
    this%first_entry = .true.
    !
    ! -- return
    return

set_header()

subroutine tablemodule::set_header

(

class(tabletype)

this

)

Definition at line 252 of file Table.f90.

! ******************************************************************************
! set_header -- Set the table object header
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- local
    character(len=LINELENGTH) :: cval
    integer(I4B) :: width
    integer(I4B) :: alignment
    integer(I4B) :: nlines
    integer(I4B) :: iloc
    integer(I4B) :: ival
    real(DP) :: rval
    integer(I4B) :: j
    integer(I4B) :: n
    integer(I4B) :: nn
! ------------------------------------------------------------------------------
    !
    ! -- initialize variables
    width = 0
    nlines = 0
    !
    ! -- determine total width and maximum number of lines
    do n = 1, this%ntableterm
      width = width + this%tableterm(n)%get_width()
      nlines = max(nlines, this%tableterm(n)%get_header_lines())
    end do
    !
    ! -- add length of separators
    width = width + this%ntableterm - 1
    !
    ! -- allocate the header and line separator
    call this%allocate_strings(width, nlines)
    !
    ! -- build final header lines
    do n = 1, this%ntableterm
      call this%tableterm(n)%set_header(nlines)
    end do
    !
    ! -- build header
    do n = 1, nlines
      iloc = 1
      this%iloc = 1
      if (this%add_linesep) then
        nn = n + 1
      else
        nn = n
      end if
      do j = 1, this%ntableterm
        width = this%tableterm(j)%get_width()
        alignment = this%tableterm(j)%get_alignment()
        call this%tableterm(j)%get_header(n, cval)
        if (this%write_csv) then
          if (j == 1) then
            write (this%header(nn), '(a)') trim(adjustl(cval))
          else
            write (this%header(nn), '(a,",",G0)') &
              trim(this%header(nn)), trim(adjustl(cval))
          end if
        else
          if (j == this%ntableterm) then
            call uwword(this%header(nn), iloc, width, tabucstring, &
                        cval(1:width), ival, rval, alignment=alignment)
          else
            call uwword(this%header(nn), iloc, width, tabucstring, &
                        cval(1:width), ival, rval, alignment=alignment, &
                        sep=this%sep)
          end if
        end if
      end do
    end do
    !
    ! -- return
    return

Here is the call graph for this function:

set_iout()

subroutine tablemodule::set_iout	(	class(tabletype)	this,
		integer(i4b), intent(in)	iout
	)

Definition at line 997 of file Table.f90.

! ******************************************************************************
! set_iout -- reset iout
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), intent(in) :: iout
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- set iout
    this%iout = iout
    !
    ! -- return
    return

set_kstpkper()

subroutine tablemodule::set_kstpkper	(	class(tabletype)	this,
		integer(i4b), intent(in)	kstp,
		integer(i4b), intent(in)	kper
	)

Definition at line 953 of file Table.f90.

! ******************************************************************************
! set_kstpkper -- reset kstp and kper
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), intent(in) :: kstp
    integer(I4B), intent(in) :: kper
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- set maxbound
    this%kstp = kstp
    this%kper = kper
    !
    ! -- return
    return

set_maxbound()

subroutine tablemodule::set_maxbound	(	class(tabletype)	this,
		integer(i4b), intent(in)	maxbound
	)

Definition at line 929 of file Table.f90.

! ******************************************************************************
! set_maxbound -- reset maxbound
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), intent(in) :: maxbound
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- set maxbound
    this%maxbound = maxbound
    !
    ! -- reset counters
    call this%reset()
    !
    ! -- return
    return

set_title()

subroutine tablemodule::set_title	(	class(tabletype)	this,
		character(len=*), intent(in)	title
	)

Definition at line 976 of file Table.f90.

! ******************************************************************************
! set_maxbound -- reset maxbound
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    character(len=*), intent(in) :: title
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- set maxbound
    this%title = title
    !
    ! -- return
    return

table_cr()

subroutine, public tablemodule::table_cr	(	type(tabletype), pointer	this,
		character(len=*), intent(in)	name,
		character(len=*), intent(in)	title
	)

Definition at line 84 of file Table.f90.

! ******************************************************************************
! table_cr -- Create a new table object
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    type(TableType), pointer :: this
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: title
    ! -- local
! ------------------------------------------------------------------------------
    !
    ! -- check if table already associated and reset if necessary
    if (associated(this)) then
      call this%table_da()
      deallocate (this)
      nullify (this)
    end if
    !
    ! -- Create the object
    allocate (this)
    !
    ! -- initialize variables
    this%name = name
    this%title = title
    !
    ! -- Return
    return

Here is the caller graph for this function:

table_da()

subroutine tablemodule::table_da

(

class(tabletype)

this

)

Definition at line 509 of file Table.f90.

! ******************************************************************************
! table_da -- deallocate
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- dummy
    integer(I4B) :: i
! ------------------------------------------------------------------------------
    !
    ! -- deallocate each table term
    do i = 1, this%ntableterm
      call this%tableterm(i)%da()
    end do
    !
    ! -- deallocate space for tableterm
    deallocate (this%tableterm)
    !
    ! -- deallocate character scalars and arrays
    deallocate (this%linesep)
    deallocate (this%dataline)
    deallocate (this%header)
    !
    ! -- deallocate scalars
    if (this%transient) then
      deallocate (this%kstp)
      deallocate (this%kper)
    end if
    deallocate (this%sep)
    deallocate (this%write_csv)
    deallocate (this%first_entry)
    deallocate (this%transient)
    deallocate (this%add_linesep)
    deallocate (this%allow_finalization)
    deallocate (this%iout)
    deallocate (this%maxbound)
    deallocate (this%nheaderlines)
    deallocate (this%nlinewidth)
    deallocate (this%ntableterm)
    deallocate (this%ientry)
    deallocate (this%iloc)
    deallocate (this%icount)
    !
    ! -- Return
    return

table_df()

subroutine tablemodule::table_df	(	class(tabletype)	this,
		integer(i4b), intent(in)	maxbound,
		integer(i4b), intent(in)	ntableterm,
		integer(i4b), intent(in)	iout,
		logical, intent(in), optional	transient,
		logical, intent(in), optional	lineseparator,
		character(len=1), intent(in), optional	separator,
		logical, intent(in), optional	finalize
	)

Definition at line 117 of file Table.f90.

! ******************************************************************************
! table_df -- Define the new table object
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    integer(I4B), intent(in) :: maxbound
    integer(I4B), intent(in) :: ntableterm
    integer(I4B), intent(in) :: iout
    logical, intent(in), optional :: transient
    logical, intent(in), optional :: lineseparator
    character(len=1), intent(in), optional :: separator
    logical, intent(in), optional :: finalize
! ------------------------------------------------------------------------------
    !
    ! -- allocate scalars
    allocate (this%sep)
    allocate (this%write_csv)
    allocate (this%first_entry)
    allocate (this%transient)
    allocate (this%add_linesep)
    allocate (this%allow_finalization)
    allocate (this%iout)
    allocate (this%maxbound)
    allocate (this%nheaderlines)
    allocate (this%nlinewidth)
    allocate (this%ntableterm)
    allocate (this%ientry)
    allocate (this%iloc)
    allocate (this%icount)
    !
    ! -- allocate space for tableterm
    allocate (this%tableterm(ntableterm))
    !
    ! -- initialize values based on optional dummy variables
    if (present(transient)) then
      this%transient = transient
      allocate (this%kstp)
      allocate (this%kper)
    else
      this%transient = .false.
    end if
    if (present(separator)) then
      this%sep = separator
      if (separator == ',') then
        this%write_csv = .true.
      else
        this%write_csv = .false.
      end if
    else
      this%sep = ' '
      this%write_csv = .false.
    end if
    if (present(lineseparator)) then
      this%add_linesep = lineseparator
    else
      this%add_linesep = .true.
    end if
    if (present(finalize)) then
      this%allow_finalization = finalize
    else
      this%allow_finalization = .true.
    end if
    !
    ! -- initialize variables
    this%first_entry = .true.
    this%iout = iout
    this%maxbound = maxbound
    this%ntableterm = ntableterm
    this%ientry = 0
    this%icount = 0
    !
    ! -- return
    return

write_header()

subroutine tablemodule::write_header

(

class(tabletype)

this

)

Definition at line 385 of file Table.f90.

! ******************************************************************************
! write_table -- Write the table header
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- local
    character(len=LINELENGTH) :: title
    integer(I4B) :: width
    integer(I4B) :: n
! ------------------------------------------------------------------------------
    !
    ! -- initialize local variables
    width = this%nlinewidth
    !
    ! -- write the table header
    if (this%first_entry) then
      ! -- write title
      title = this%title
      if (this%transient) then
        write (title, '(a,a,i6)') trim(adjustl(title)), '   PERIOD ', this%kper
        write (title, '(a,a,i8)') trim(adjustl(title)), '   STEP ', this%kstp
      end if
      if (len_trim(title) > 0) then
        write (this%iout, '(/,1x,a)') trim(adjustl(title))
      end if
      !
      ! -- write header
      do n = 1, this%nheaderlines
        write (this%iout, '(1x,a)') this%header(n) (1:width)
      end do
    end if
    !
    ! -- reinitialize variables
    this%first_entry = .false.
    this%ientry = 0
    this%icount = 0
    !
    ! -- return
    return

write_line()

subroutine tablemodule::write_line

(

class(tabletype)

this

)

Definition at line 431 of file Table.f90.

! ******************************************************************************
! write_line -- Write the data line
! ******************************************************************************
!
!    SPECIFICATIONS:
! ------------------------------------------------------------------------------
    ! -- modules
    ! -- dummy
    class(TableType) :: this
    ! -- local
    integer(I4B) :: width
! ------------------------------------------------------------------------------
    !
    ! -- initialize local variables
    width = this%nlinewidth
    !
    ! -- write the dataline
    write (this%iout, '(1x,a)') this%dataline(1:width)
    !
    ! -- update column and line counters
    this%ientry = 0
    this%iloc = 1
    this%icount = this%icount + 1
    !
    ! -- return
    return