integer         js     ,nn,nl1,nl2
      common /idata1/ js(200),nn,nl1,nl2