implicit none
c Main program to call the python interface to zscore in a standalone mode
      include "DIMENSIONS"
      include "DIMENSIONS.ZSCOPT"
      include "COMMON.WEIGHTS"
      integer number_of_variables,i
      common /patch/ number_of_variables
      integer nvarr,iparm,comm /0/
      double precision xrange(maxvar,2),x(maxvar),xmin(maxvar),fmin
      call maxlik_init(nvarr,xrange,comm)
      number_of_variables=nvarr
      do i=1,nvarr
        x(i)=x_orig(i)
      enddo
      call maxlik_optim(x,xmin,fmin)
      end