GetDmat Subroutine

public subroutine GetDmat(Dmat, c_ijkl, dim_num)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(inout),		allocatable	::	Dmat(:,:)
real(kind=real64),	intent(in)			::	c_ijkl(:,:,:,:)
integer(kind=int32),	intent(in)			::	dim_num