morphol Subroutine

private subroutine morphol(ntokens, line, first, last, token_id)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=ip)				::	ntokens
character(len=*)				::	line
integer(kind=ip)				::	first(MAX_NTOKENS)
integer(kind=ip)				::	last(MAX_NTOKENS)
character(len=1)				::	token_id(MAX_NTOKENS)

Contents