to_MomentTensor Function

public function to_MomentTensor(phi, delta, lambda, M) result(ret)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: phi
real(kind=real64), intent(in) :: delta
real(kind=real64), intent(in) :: lambda
real(kind=real64), intent(in) :: M

Return Value real(kind=real64), (3,3)