{{{#!vim fortran
	c--- 포트란 mass data debug for pusan program -----------------------

	if (t .eq. 0) then
	  write(10,321)
321	  format('===Mass matrix of Gun system===')
        write(10,322) ((gm_c(i,j),j=1,ntdof+10),i=1,ntdof+10)
322     format(10e12.5)
	endif

 	  call accelt_chassis

	if (t .eq. 0) then
	  write(10,323)
323	  format(/,'===Mass matrix of Gun & Chassis system===')
        write(10,322) ((gm_c(i,j),j=1,ntdof+10),i=1,ntdof+10)
	endif


}}}