d 	FUNCTION JJNLWR(IUNIT, LIST, NUMD, LOCD )
È c.		Processes an name list write.
,c.
c.	see INFO NL for further information.
ôC.
Xc-end.of.info-
¼c.
 	INTEGER IUNIT
„	CHARACTER*(*) LIST(100)
è	INTEGER LOCD(100)
LC-
°	CHARACTER*8 ITEMID
	INTEGER ID(4)
x	BYTE BD(8)
Ü	EQUIVALENCE( ID, BD )
@C.
¤	INTEGER ITEM(10)
	REAL    TEM (10)
l	EQUIVALENCE( ITEM, TEM )
ÐC.
4C.........
˜19	FORMAT( 10A )
ü29	FORMAT(' ', A7, 5(I13,','))
`	39	FORMAT(' ', A7,1P, 5( E13.5,','))
Ä	C.........
(
C.
Œ
	WRITE(IUNIT,19 ) ' $',LIST(1)
ð
C.
T200	CONTINUE
¸	DO 290 I=2,100
	  IF( LIST(I).EQ.'$END' ) GOTO 295
€	  CALL ML$GET( LOCD(I-1), 16, ID )
ä	  MAXELE = 1
H	  IF( BD(4).EQ.4 ) THEN
¬	    MAXELE = ID(4)/4
	  ENDIF
t	  ITEMID = LIST(I)//'='
Ø	  DO 240 J=1,MAXELE,5
<	    NTOP = MIN( J+4, MAXELE )-J+1
 	    CALL ML$GET( ID(2)+4*(J-1), 4*NTOP, TEM )
	    IF( BD(3).EQ.8 .OR. BD(3).EQ.4 ) THEN
h	      WRITE(IUNIT,29) ITEMID,(ITEM(K),K=1,NTOP)
Ì	    ELSE
0	      WRITE(IUNIT,39) ITEMID, (TEM(K),K=1,NTOP)
”	    ENDIF
ø	    ITEMID = ' '
\240	  CONTINUE
ÀC.
$290	CONTINUE
ˆC.
ì295	CONTINUE
P	WRITE( IUNIT, 19 ) ' $END == $',LIST(1)
´C.
9000	CONTINUE
|	RETURN
à		END