TableFillRow Subroutine

public subroutine TableFillRow(tab, row, content)

set row content Arguments: tab returned table row column to be changed content string array to fill in row

Arguments

Type IntentOptional Attributes Name
type(Table), intent(inout) :: tab
integer(kind=short), intent(in) :: row
character(len=*), intent(in) :: content(:)

Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: i

Source Code

SUBROUTINE TableFillRow &
  ( tab, row, content)

IMPLICIT NONE

! Arguments with intent(in):
INTEGER (KIND = short), INTENT (IN) :: row
CHARACTER (LEN = *), INTENT (IN)    :: content (:)

! Arguments with intent (inout):
TYPE (Table), INTENT (INOUT) :: tab

!local declarations:
INTEGER (KIND = short) :: i


!------------end of declaration------------------------------------------------

DO i = 1, tab % noCols
    tab % col (i) % row (row) = TRIM ( content (i) )
END DO


RETURN 
END SUBROUTINE TableFillRow