anchor.diff:  
       !/* internal objects        */
   
  -    REAL(our_dble)                  :: crit_val(num_agents_est * num_periods)
  +    REAL(our_dble), ALLOCATABLE    :: crit_val(:)
  +
       REAL(our_dble)                  :: draws_prob_raw(num_draws_prob, 4)
       REAL(our_dble)                  :: payoffs_systematic(4)
       REAL(our_dble)                  :: crit_val_contrib
  
positive.code:     INTEGER(our_int)                :: counts(4)
      INTEGER(our_int)                :: choice
      INTEGER(our_int)                :: period
      INTEGER(our_int)                :: exp_a
      INTEGER(our_int)                :: exp_b
      INTEGER(our_int)                :: idx
      INTEGER(our_int)                :: edu
      INTEGER(our_int)                :: i
      INTEGER(our_int)                :: s
      INTEGER(our_int)                :: k
      INTEGER(our_int)                :: j
  
negative.code: !******************************************************************************
  !******************************************************************************
  SUBROUTINE fort_evaluate(rslt, periods_payoffs_systematic, mapping_state_idx, periods_emax, states_all, shocks_cholesky, data_array, periods_draws_prob)
  
      !   DEVELOPMENT NOTES
      !
      !   This routine accepts assumed shape arrays to allow its use during parallel execution as well. This is also the reasoning behind relaxing the alignment with the PYTHON counterpart.
  
      !/* external objects        */
  
  