1 calls from
LSAME

SHR_KIND_MOD  1