subroutine optsave (ncycle,f,xx)
      implicit none
      integer ncycle
      double precision f
      double precision xx(*)
      return
      end