SUBROUTINE	CLFCNA(FCNA)
C
C	Subroutine to unfold vectored FCNA
C
	INTEGER*4	FCNA				! FCNA to be converted
	INCLUDE	'CLCOMMON.FTN'		! Common blocks
	IFCNT	= IAND( ISHFT(FCNA,-28) , "17 )		! FUNCTION COUNT
	ICCNT	= IAND( ISHFT(FCNA,-25) , "7 )		! CRATE COUNT
	INCNT	= IAND( ISHFT(FCNA,-20) , "37 )		! SLOT NUMBER COUNT
	IACNT	= IAND( ISHFT(FCNA,-16) , "17 )		! ADDRESS COUNT
	IFCNA	= IAND(FCNA,"177777)			! INITIAL FCNA
	DO 66 JF	= 0,IFCNT
	DO 66 JC	= 0,ICCNT
	DO 66 JN	= 0,INCNT
	DO 66 JA	= 0,IACNT
	FCNA	= IFCNA + JA + JN*"20 + JC*"1000 + JF*"10000
	CALL LIST(FCNA,1)				! PUT FCNA INTO CLIST
	I	= IAND(FCNA,"7000)/"1000		! CRATE NUMBER
	ICMASK	= IOR( ICMASK,ISHFT(1,I) )		! CUMULATIVE CRATE MASK
66	CONTINUE
	END