source/maxlik/src_FPy.org/main_opt.F

   1       implicit none
   2 c Main program to call the python interface to zscore in a standalone mode
   3       include "DIMENSIONS"
   4       include "DIMENSIONS.ZSCOPT"
   5       include "COMMON.WEIGHTS"
   6       integer number_of_variables,i
   7       common /patch/ number_of_variables
   8       integer nvarr,iparm,comm /0/
   9       double precision xrange(maxvar,2),x(maxvar),xmin(maxvar),fmin
  10       call maxlik_init(nvarr,xrange,comm)
  11       number_of_variables=nvarr
  12       do i=1,nvarr
  13         x(i)=x_orig(i)
  14       enddo
  15       call maxlik_optim(x,xmin,fmin)
  16       end