1 calls from
FFTRIG

SHR_KIND_MOD  1