d 	FUNCTION JJOPENIN( IUNIT, NAME )
– c.		Process a name list file definitions
,C.
C. OPEN A UNIT BAXED ON AN INPUT FILE NAME GIVEN BY THE USER
ôC.
Xc-end.of.info-
¼C.
 	CHARACTER*(*) NAME
„	CHARACTER*40 INN
èC.
L100	CONTINUE
°	JJOPENIN = 0
	WRITE( 6, 110 ) NAME
x110	FORMAT( '$ ',A,' ,INPUT <= @' )
Ü	READ ( 5, 120 ) NCH, INN
@120	FORMAT( Q, A )
¤	IF( INN.EQ.' ' ) THEN
	  OPEN( UNIT=IUNIT, NAME=NAME, TYPE='OLD', ERR=9000 )
l	  JJOPENIN = 3
Ð	ELSE
4	  IFST = 1
˜	  IF( INN(1:1) .EQ. '@' ) IFST = 2
ü	  OPEN( UNIT=IUNIT, NAME=INN(IFST:NCH), TYPE='OLD', ERR=100 )
`		  JJOPENIN = 1
Ä		ENDIF
(
C.
Œ
9000	CONTINUE
ð
	RETURN
T	END