TableCreate Subroutine

private subroutine TableCreate(tab)

create a new table from scratch and initialize variables Arguments: tab returned table

Arguments

Type	Intent	Optional	Attributes		Name
type(Table),	intent(out)			::	tab

Source Code

SUBROUTINE TableCreate &
  ( tab )

IMPLICIT NONE

! Arguments with intent (out):
TYPE (Table), INTENT (OUT) :: tab

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

tab % title = ''
tab % id = ''
tab % noRows = 0
tab % noCols = 0
NULLIFY ( tab % col)

RETURN 
END SUBROUTINE TableCreate