TEST Function

function TEST(STRING)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=8)				::	STRING

Return Value logical

Common Blocks

READINPUT (subroutine)
"> common /TESTC/

@# KKRtags: VORONOI KKRhost

---

 TEST = 'STRING  ' IS CONTAINED IN /TESTC/.

---

Type	Attributes		Name		Initial
real		::	TESTC(16)