SUBROUTINE CSM0
C	INITIALIZATION
	INTEGER TEST(9)
	COMMON REALS(395),INTS(547)
	EQUIVALENCE (INTS(525),TEST(1))
	WRITE(4,10)
10	FORMAT(1H1,10X,34HCONTINUOUS SYSTEM MODELING PROGRAM//)
	DO 20 I=1,547
20	INTS(I)=0
	DO 30 I=1,395
30	REALS(I)=0.0
	DO 50 I=1,8
50	TEST(I)=1
	RETURN
	END