1 calls from
TRIDIAGONAL

SHR_KIND_MOD  1