parameter (nsce=15)
      common/sccom/sce(nsce),iprog