anchor.diff:  ! end subroutine
   
   
  -subroutine mrcc_part_dress(delta_ij_, delta_ii_,delta_ij_s2_, delta_ii_s2_,i_generator,n_selected,det_buffer,Nint,key_mask)
  +subroutine mrcc_part_dress(delta_ij_, delta_ii_,delta_ij_s2_, delta_ii_s2_,i_generator,n_selected,det_buffer,Nint,key_mask,coef)
    use bitmasks
    implicit none
   
  
positive.code:         hla = hij_cache(k_sd)
          sla = sij_cache(k_sd)
          do i_state=1,N_states
            dIa_hla(i_state,k_sd) = dIa(i_state) * hla
            dIa_sla(i_state,k_sd) = dIa(i_state) * sla
          enddo
        enddo
        do i_state=1,N_states
  
negative.code:   logical, external :: detEq, is_generable
    !double precision, external :: get_dij, get_dij_index
    double precision :: Delta_E_inv(N_states)
    double precision, intent(in) :: coef
  
    if (perturbative_triples) then
      PROVIDE one_anhil fock_virt_total fock_core_inactive_total one_creat
    endif
  