anchor.diff:    !---------------------------------------------------------------------------------------------------------------------------------
     endfunction Get_Unit
   
  -  elemental function Upper_Case(string)
  +! XLF error : "The result of an elemental function must be a nonpointer, nonallocatable scalar, and its type parameters must be constant expressions."
  +  function Upper_Case(string)
     !---------------------------------------------------------------------------------------------------------------------------------
     !< Function for converting lower case characters of a string to upper case ones.
     !<
  
positive.code:   integer(I4P),                     intent(INOUT):: cf         !< Current file index (for concurrent files IO).
    integer(I4P),                     intent(INOUT):: Nvtk       !< Number of (concurrent) VTK files.
    type(Type_VTK_File), allocatable, intent(INOUT):: vtk(:)     !< VTK files data.
    type(Type_VTK_File), allocatable::                vtk_tmp(:) !< Temporary array of VTK files data.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
    select case(Upper_Case(trim(act)))
    case('ADD')
      if (Nvtk>0_I4P) then
        allocate(vtk_tmp(1:Nvtk))
  
negative.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endsubroutine byte_update
  
  ! XLF error: 1516-106 (S) A pure subprogram must not contain references to procedures which are not pure.
    subroutine vtk_update(act,cf,Nvtk,vtk)
    !---------------------------------------------------------------------------------------------------------------------------------
    !< Subroutine for updating (adding and removing elements into) vtk array.
    !---------------------------------------------------------------------------------------------------------------------------------
  