source/maxlik/src_FPy/opt_main.F

   1       program ENE_OPT
   2 c Optimize the UNRES energy function by minimization of a quartic target
   3 c function or by the VMC method.
   4       implicit none
   5       include "DIMENSIONS.ZSCOPT"
   6 #ifdef MPI
   7       include "mpif.h"
   8       integer IERROR
   9 #endif
  10       include "COMMON.IOUNITS"
  11       include "COMMON.OPTIM"
  12       integer nvarr,iparm
  13       double precision x(max_paropt)
  14       call maxlik_init(nvarr,x)
  15       call maxlik_optim(nvarr,x)
  16       call bilans
  17 #ifdef MPI
  18       call MPI_Finalize( IERROR )
  19 #endif
  20       stop
  21       end
  22