anchor.diff:  !-----------------------------------------------------------------------------------------------------------------------------------
   use IR_Precision, only : R_P, I_P, FR_P, str, strz
   use type_euler_1D, only : euler_1D
  -! use type_euler_1D_caf, only : euler_1D_caf
   use Data_Type_Command_Line_Interface, only : Type_Command_Line_Interface
   use foodie, only : adams_bashforth_integrator, &
                      euler_explicit_integrator, &
  
positive.code: logical                           :: time_serie[*]         !< Flag for activating time serie-results saving.
  logical                           :: verbose[*]            !< Flag for activating more verbose output.
  #else
  type(euler_1D)                    :: domain                !< Domain of Euler equations.
  integer(I_P)                      :: Ni                    !< Number of grid cells.
  integer(I_P)                      :: steps_max             !< Maximum number of time steps.
  logical                           :: results               !< Flag for activating results saving.
  
negative.code:   !---------------------------------------------------------------------------------------------------------------------------------
  #ifdef CAF
    if (we>1) then
      remote_state = domain%output()
      remote_U = remote_state
      if (me==1) then
        sync images(me+1)
        remote_U(:,:) = remote_state(:,:)[me+1]
        remote_U = remote_U(:, 1:Ng)
        call domain%set_ghost_cells(U_R=remote_U)
      else if (me==we) then
        sync images(me-1)
        remote_U(:,:) = remote_state(:,:)[me-1]
        remote_U = remote_U(:, Ni_image-Ng+1:Ni_image)
        call domain%set_ghost_cells(U_L=remote_U)
      else
        sync images([me-1, me+1])
        remote_U(:,:) = remote_state(:,:)[me-1]
        remote_U = remote_U(:, Ni_image-Ng+1:Ni_image)
        call domain%set_ghost_cells(U_L=remote_U)
        remote_U(:,:) = remote_state(:,:)[me+1]
        remote_U = remote_U(:, 1:Ng)
        call domain%set_ghost_cells(U_R=remote_U)
      endif
    endif
  