     	PROGRAM LAYOUT_MAIN
C
C  PROGRAMMER:	RONG-SHENG ZHOU
C		ALFRED UNIVERSITY, MARCH-1987
C
C	THIS ROUTINE IMPLEMENTS A STANDALONE INTERACTIVE
C	TWO-DIMENSIONAL LAYOUT OR 2D CAD.
C
     	CHARACTER FNAME*32
C
C  INITIALIZE THE SESSION...
C
     	CALL IFINIT_SESSION
     	ICODE = 1
     	XORG  = 5.0
     	YORG  = 4.0
     	FNAME = ' '
     	ID = LAYOUT_START(ICODE,XORG,YORG,FNAME)
     	IF(ID.EQ.0) CALL LAYOUT_DIALOG
     	CALL IFINIT_EXIT
     	CALL EXIT
     	END

