anchor.diff:  
       IF(rank == 0) CALL logging_solution(-1)
   
  -
       ! Determine workload and allocate communication information.
       CALL determine_workload(num_emax_slaves, states_number_period)
   
  -
       ! Calculate the systematic payoffs
       IF(rank == 0) CALL logging_solution(2)
   
  
positive.code: 
              PRINT *, 'Ready to evaluate'
  
  
          END IF    
  
      END DO
  
negative.code: 
              CALL RANDOM_SEED(put=seed_inflated)
  
              ! Construct auxiliary objects
              shocks_cov = MATMUL(shocks_cholesky, TRANSPOSE(shocks_cholesky))
  
  