anchor.diff:    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
  
positive.code:   logical :: ok
    logical, external :: detEq
    integer, external :: omp_get_thread_num
    
    delta_ij_mrcc = 0d0
    delta_ii_mrcc = 0d0
    delta_ij_s2_mrcc = 0d0
  
negative.code:       n = n - 1
  
        if(n /= 0) then
          call mrcc_part_dress(delta_ij_mrcc, delta_ii_mrcc, delta_ij_s2_mrcc, delta_ii_s2_mrcc, gen,n,buf,N_int,omask,1d0)
        endif
  
      end do
  