테스트5

        include "..\common\flexible.blk"
        include "..\common\common.blk"


        double precision a(3,3),r32(3),r32d(3),oma(3),ramda(6,ntdof),
        &                                theta(6)

        double precision temp3(3,3),temp6(6,6),nprime(6,ntdof),
        &                                rda(3,3),rad(3,3),temp_nt(6,ntdof)

        integer i,j,x


        do i=1, 6
          do j=1, ntdof
                nprime(i,j) = 0.0d0
          enddo
        enddo

        x = 5*(tnode-1) + 1
테스트5 (rev. 1.6)
