src-HCD-5D/optsave_dum.f

   1       subroutine optsave (ncycle,f,xx)
   2       implicit none
   3       integer ncycle
   4       double precision f
   5       double precision xx(*)
   6       return
   7       end