테스트5

        c--- �~O��~J��~^~@ 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
테스트5 (rev. 1.7)
