anchor.diff:    character(len=:), allocatable       :: fmt
     character(len=:), allocatable       :: type
     character(len=:), allocatable       :: data
  -  integer(I4P)                        :: np, i, j, offs, N_Byte, pos
  +  integer(I4P)                        :: np, i, j, offs, N_Byte, pos, s
  +  integer(I1P), allocatable           :: dI1P(:)
  +  real(R4P), allocatable              :: XYZp(:)
     !---------------------------------------------------------------------------------------------------------------------------------
   
     !---------------------------------------------------------------------------------------------------------------------------------
  
positive.code:       endif
  
      case(binary)
  ! not implemented
  
      case(raw)
  
  
negative.code:   integer(I4P),           intent(OUT) :: nz1      !< Initial node of z axis.
    integer(I4P),           intent(OUT) :: nz2      !< Final node of z axis.
    integer(I4P),           intent(OUT) :: NN       !< Number of nodes
    real(R4P), allocatable, intent(OUT) :: XYZ(:,:) !< x coordinates
    integer(I4P), optional, intent(IN)  :: npiece   !< Number of the piece to read (by default: 1)
    integer(I4P), optional, intent(IN)  :: cf       !< Current file index (for concurrent files IO).
    integer(I4P)                        :: E_IO     !< Input/Output inquiring flag: $0$ if IO is done, $> 0$ if IO is not done
  