anchor.diff:  
     call MPI_COMM_RANK(MPI_COMM_WORLD, my_rank, ierr)
     call MPI_COMM_SIZE(MPI_COMM_WORLD, num_procs, ierr)
  -#else
  -  my_rank = 0
  -  num_procs = 1
  -#endif
   
     memory_space = DTK_HOST_SPACE
   
  
positive.code:   deallocate(f_field_name)
    deallocate(udata)
  
  #ifdef HAVE_MPI
    ! Finalize MPI must be called after releasing all handles
    call MPI_FINALIZE(ierr)
  #endif
  
  end program
  
negative.code:   allocate(udata(u%size_1 * u%space_dim))
    u%data = c_loc(udata)
  
    ! Initialize MPI subsystem
    call MPI_INIT(ierr)
    if (ierr /= 0) then
  