3 calls from
SLASET
LSAME
2
SHR_KIND_MOD
1