TableSetColHeader Subroutine

public subroutine TableSetColHeader(tab, col, header)

set header of a specified column Arguments: tab returned table col column to be changed header header string

Arguments

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

Source Code

SUBROUTINE TableSetColHeader &
  ( tab, col, header)

IMPLICIT NONE

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

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


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

tab % col (col) % header = TRIM (header)

RETURN 
END SUBROUTINE TableSetColHeader