13 calls from
SGEBAK
LSAME
7
SHR_KIND_MOD
1
SSCAL
2
SSWAP
2
XERBLA
1