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:   character(len=:), allocatable       :: fmt
    character(len=:), allocatable       :: type
    character(len=:), allocatable       :: data
    integer(I4P)                        :: np, i, j, k, offs, N_Byte, pos, s
    integer(I1P), allocatable           :: dI1P(:)
    real(R4P), allocatable              :: XYZp(:)
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
  