integer nparmset,myparm
      common /optim/ 
     &  nparmset,myparm