{{{#!vim fortran
	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
}}}