set_Dc Subroutine

public subroutine set_Dc(myten, Dc, randomscal)

Arguments

Type IntentOptional AttributesName
type(tensor), intent(inout), pointer:: myten
integer, intent(in) :: Dc
real(kind=8), intent(in) :: randomscal

Contents

None