anchor.diff:  
           ELSEIF (task == 3) THEN
   
  +                  OPEN(UNIT=12, FILE=TRIM(filename), ACCESS='APPEND')
  +                  CALL get_time(today_char, now_char)
  +                      WRITE(12, 120) 'go for task 3', now_char
  +                  CLOSE(12)
  +
               IF (.NOT. ALLOCATED(data_est)) THEN
  +
  +              OPEN(UNIT=12, FILE=TRIM(filename), ACCESS='APPEND')
  +              CALL get_time(today_char, now_char)
  +
  +                  WRITE(12, 120) 'Setup data', now_char
  +              CLOSE(12)
   
                   CALL read_dataset(data_est, num_agents_est)
   
  
positive.code: 
      CALL MPI_COMM_GET_PARENT(PARENTCOMM, ierr)
  
  
      CALL read_specification(coeffs_a, coeffs_b, coeffs_edu, coeffs_home, shocks_cholesky, edu_start, edu_max, delta, tau, seed_sim, seed_emax, seed_prob, num_procs, num_slaves, is_debug, is_interpolated, is_myopic, request, exec_dir, maxfun, paras_fixed, num_free, is_scaled, scaled_minimum, optimizer_used, dfunc_eps, newuoa_npt, newuoa_maxfun, newuoa_rhobeg, newuoa_rhoend, bfgs_gtol, bfgs_stpmx, bfgs_maxiter)
  
      CALL fort_create_state_space(states_all, states_number_period, mapping_state_idx, edu_start, edu_max)
  
  
      CALL distribute_workload(num_emax_slaves, num_obs_slaves)
  
      CALL create_draws(periods_draws_emax, num_draws_emax, seed_emax, is_debug)
  
  
      DO WHILE (STAY_AVAILABLE)
  
  
          CALL MPI_Bcast(task, 1, MPI_INT, 0, PARENTCOMM, ierr)
  
  
negative.code:     CHARACTER(225)                  :: optimizer_used
      CHARACTER(225)                  :: exec_dir
      CHARACTER(10)                   :: request
      character(len=1024) :: filename
      CHARACTER(55)                   :: today_char
      CHARACTER(55)                   :: now_char
      CHARACTER(155)                  :: val_char
      CHARACTER(50)                   :: tmp_char
  !------------------------------------------------------------------------------
  ! Algorithm
  !------------------------------------------------------------------------------
  