anchor.diff:        E_IO = move(inside='RectilinearGrid', to_find='Piece', repeat=np, cf=rf, buffer=s_buffer) ! find the 'np' piece
         call get_char(buffer=s_buffer, attrib='Extent', val=aux, E_IO=E_IO)
         if(E_IO == 0) then      
  -        read(aux,*, iostat=E_IO) rn
  +        read(aux,*, iostat=E_IO) nx1,nx2,ny1,ny2,nz1,nz2
           if(E_IO == 0) then      
  -          nx1=rn(1); nx2=rn(2); ny1=rn(3); ny2=rn(4); nz1=rn(5); nz2=rn(6)
             NNp = (nx2-nx1+1)*(ny2-ny1+1)*(nz2-nz1+1)
             allocate(X(NNp), Y(NNp), Z(NNp), stat=E_IO)        
             E_IO = search(inside='Coordinates', to_find='DataArray', with_attribute='Name', of_value='X', buffer=s_buffer)
  
positive.code:       endif
      end select
    !---------------------------------------------------------------------------------------------------------------------------------
    end function
  
  
    function VTK_GEO_XML_STRG_1DA_R4_READ(nx1,nx2,ny1,ny2,nz1,nz2,NN,X,Y,Z,npiece,cf) result(E_IO)
  
negative.code:   !<### Examples of usage
  
    module procedure &
                     VTK_GEO_XML_STRG_1DA_R8_READ, VTK_GEO_XML_STRG_3DA_R8_READ, &! real(R8P) StructuredGrid, 1D/3D Arrays
                     VTK_GEO_XML_STRG_1DAP_R8_READ,VTK_GEO_XML_STRG_3DAP_R8_READ,&! real(R8P) StructuredGrid, 1D/3D Arrays packed API
                     VTK_GEO_XML_STRG_1DA_R4_READ, VTK_GEO_XML_STRG_3DA_R4_READ, &! real(R4P) StructuredGrid, 1D/3D Arrays
                     VTK_GEO_XML_STRG_1DAP_R4_READ,VTK_GEO_XML_STRG_3DAP_R4_READ,&! real(R4P) StructuredGrid, 1D/3D Arrays packed API
                     VTK_GEO_XML_RECT_R8_READ,                                   &! real(R8P) RectilinearGrid
                     VTK_GEO_XML_RECT_R4_READ,                                   &! real(R4P) RectilinearGrid
                     VTK_GEO_XML_UNST_R8_READ,VTK_GEO_XML_UNST_PACK_R4_READ,     &! real(R8P) UnstructuredGrid, standard and packed API
                     VTK_GEO_XML_UNST_R4_READ,VTK_GEO_XML_UNST_PACK_R8_READ       ! real(R4P) UnstructuredGrid, standard and packed API
  endinterface
  !-----------------------------------------------------------------------------------------------------------------------------------
  
  