1 calls from
MARSAGLIA

SHR_KIND_MOD  1