Removed dead code

ocaml/.gitignore

@@ -1,6 +1,7 @@
 *.cmi
 *.cmx
 *.o
+*.cmo
 ezfio.ml
 Qptypes.ml
 .ls_md5

src/SAMPLING/dmc_step.irp.f

@@ -135,7 +135,6 @@ for p in properties:
 END_SHELL
 
 
-   ! Brownian step
    double precision               :: p,q
    real                           :: delta_x
    logical                        :: accepted
@@ -299,7 +298,6 @@ BEGIN_PROVIDER [ double precision, pop_weight, (0:dmc_projection+1) ]
 ! Population weight of DMC
  END_DOC
  pop_weight = 1.d0
- pop_weight(dmc_projection) = 1.d0/dble(size(pop_weight))
 END_PROVIDER
 
  BEGIN_PROVIDER [ integer, trapped_walk, (walk_num_8) ]

src/SAMPLING/reconfigure.irp.f

@@ -1,52 +1,3 @@
-subroutine reconfigure_old(ipos,w)
-  implicit none
-  integer, intent(inout)         :: ipos(walk_num)
-  double precision, intent(in)   :: w(walk_num)
-  
-  integer                        :: kptab(walk_num), kmtab(walk_num)
-  double precision               :: wp(walk_num), wm(walk_num)
-  double precision               :: tmp
-  
-  integer                        :: k, l
-  double precision               :: qmc_ranf, rand
-  integer                        :: ipos_tmp(walk_num*2)
-  
-  l=0
-  do k=1,walk_num
-    tmp = w(k)-1.d0
-    rand = qmc_ranf()
-    if (tmp >= 0.d0) then
-      l=l+1
-      ipos_tmp(l) = k
-      if (rand < tmp) then
-        l=l+1
-        ipos_tmp(l) = k
-      endif
-    else
-      if (rand > -tmp) then
-        l=l+1
-        ipos_tmp(l) = k
-      endif
-    endif
-  enddo
-  if (l>walk_num) then
-    do k=l,walk_num+1,-1
-      rand = qmc_ranf() * dble(walk_num)
-      ipos_tmp(int(rand)+1) = ipos_tmp(k) 
-    enddo
-  else
-    do k=l+1,walk_num
-      rand = qmc_ranf() * dble(k-1)
-      ipos_tmp(k) = ipos_tmp(int(rand)+1)
-    enddo
-  endif
-
-  do k=1,walk_num
-    ipos(k) = ipos_tmp(k)
-  enddo
-
-end
-
 subroutine reconfigure(ipos,w)
   implicit none
   integer, intent(inout)         :: ipos(*)