d 	FUNCTION JJNLPAR( LINE, LS, STRING )
È c.		Process a Name List Parameter
,c.
c.	This is used in Name List processing
Xc.
¼c.	See INFO NL for further information.
 C.
„c-end.of.info-
èc.
L	CHARACTER*(*) LINE, STRING
°c.
100	CONTINUE
xC.
Ü200	CONTINUE
@	LS=0
¤	LEV = 0
	DO 210 JJNLPAR=1,LEN(LINE)
l	  IF( LINE(JJNLPAR:JJNLPAR).NE.' ' ) GOTO 215
Ð210	CONTINUE
4	GOTO 9000
˜C.	.........
ü215	CONTINUE
`		DO 230 JJNLPAR=JJNLPAR,LEN(LINE)
Ä		  IF( LINE(JJNLPAR:JJNLPAR).EQ.' ' ) GOTO 230
(
	  IF( LINE(JJNLPAR:JJNLPAR).EQ.'=' ) GOTO 235
Œ
	  IF( LEV.EQ.0 ) THEN
ð
	    IF( LINE(JJNLPAR:JJNLPAR).EQ.',' ) GOTO 235
T	  ENDIF
¸	  LS = LS+1
	  STRING(LS:) = LINE(JJNLPAR:JJNLPAR)
€	  IF( LINE(JJNLPAR:JJNLPAR).EQ.'(' ) LEV = LEV+1
ä	  IF( LINE(JJNLPAR:JJNLPAR).EQ.')' ) LEV = LEV-1
H230	CONTINUE
¬C.
235	CONTINUE
tC.
Ø9000	CONTINUE
<	RETURN
 		END