anchor.diff:    
     integer :: II, blok
     
  +  call wall_time(wall)
  +  print *, "cepa0", wall
     provide det_cepa0_active delta_cas lambda_mrcc
     provide mo_bielec_integrals_in_map
     allocate(idx_sorted_bit(N_det))
  
positive.code:   end do
    
    call wall_time(wall)
    print *, wall
  !   stop
   END_PROVIDER
   
  
negative.code:       end do
      end do
      !$OMP END PARALLEL DO
      print *, npres
      npre=0
      do i=1,N_det_ref
        npre += npres(i)
      end do
      print *, npre
      stop
      do i=1,N_det_ref
      do j=1,i
          delta_cas(j,i,i_state) = delta_cas(i,j,i_state)
  