. emisstile)
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp,
_RL emisstile(nchp,10)
emisstile(n,i) = 1.