penalty.matrix(penden.env, temp = FALSE)
$P=\sum_{j=1}^{p} \lambda_j P(\lambda)_j$
with
$P(\lambda)_j=\left(\bigotimes_{l=1}^{j-1}{I}\right) \otimes {({A^{-1})^T} P {A}^{-1}} \otimes \left(\bigotimes_{l=j+1}^p {I}\right)$
The needed values are calculated or saved in the environment 'penden.env'.