C+++
C A Fortran itemlist structure
C---
	STRUCTURE /itmlst/ 
	    UNION 
		MAP
		    INTEGER*2 buflen /0/ , code /0/
		    INTEGER*4 bufaddr /0/ , retlenadr /0/
		END MAP
		MAP
		    INTEGER*4 end_list /0/
		END MAP
	    END UNION
	END STRUCTURE ! itmlst